A petición de unos jóvenes que programan en Visual Basic .NET he publicado el siguiente post donde explico detalladamente estas operaciones básicas hacia una Base de Datos.
Se supone que ya se tiene creado un proyecto en donde vamos agregar los elementos que se describen a continuación.
1. Se agrega un archivo de Clase de Visual Basis .NET lo guardamos con cualquier nombre (en mi caso lo nombre AccesoBd.vb)
2. Dentro de esa clase de VB.net copiamos los siguientes Namespaces (Librerias de Clases) y lo pegamos en la parte de arriba de nuestro archivo de clase.
Imports System
Imports System.Diagnostics
Imports System.Data
Imports System.Data.Odbc
3. Dentro de nuestro cuerpo de la clase copiamos el siguiente código, que son los métodos que vamos a utilizar desde cualquier formulario que hagamos.
Dim conexion As New OdbcConnection("dsn=bd;")
Public Sub conectar()
Try
conexion.Open()
Catch ex As Exception
Trace.WriteLine(ex.ToString())
End Try
End Sub
Public Sub desconectar()
Try
conexion.Close()
Catch ex As Exception
Trace.WriteLine(ex.ToString())
End Try
End Sub
Public Function consultaDS(ByVal sqlCad As String) As DataSet
Dim ds As New DataSet()
Try
Dim adaptador As New OdbcDataAdapter(sqlCad, conexion)
adaptador.Fill(ds)
Catch ex As Exception
Trace.WriteLine(ex.ToString())
End Try
Return ds
End Function
Public Function EjecutarSql(ByVal cadenaSQL As String) As OdbcCommand
Dim orden As New OdbcCommand(cadenaSQL, conexion)
Return orden
End Function
