Docencia Autor

Visual Basic .NET (Llenando de datos un objeto visual)

Paso 1: Se conecta a la base de datos.
Paso 2: Crea un adaptador que usa la conexión del Paso 1.
Paso 3: Llena el DataSet con el adaptador del Paso 2.
Paso 4: Coloca los datos de forma visible para el usuario interrogando el DataSet.

En el ejemplo los dos textbox se llaman txtCodigo y txtNombre

Este es el código de los Pasos 1 al 4, colóquelo en el código del evento del botón de conexión.

'Se define una variable que tendrá la cadena de conexión
Dim sbConecta As String
sbConecta = "Provider=Microsoft.Jet.OLEDB.4.0;"

'Abre el cuadro de dialogo para buscar la base de datos
Dim sbArchivo As String
OpenFileDialog1.ShowDialog()
sbArchivo = OpenFileDialog1.FileName
sbConecta += "Data Source = " + sbArchivo

'Se declara un objeto para conectarse a la base de datos
objConexion.ConnectionString = sbConecta
Try
    objConexion.Open()
Catch objExcepcion As System.Data.OleDb.OleDbException
    MsgBox("Error al conectarse a: " + sbArchivo)
    Exit Sub
End
Try

'La sentencia SQL para consultar
Dim sbSQLconsulta As String
sbSQLconsulta = "SELECT * FROM Departamento"

'Relaciona el adaptador con la conexión y el comando SQL
objAdaptador.SelectCommand = New OleDbCommand(sbSQLconsulta, objConexion)
 

'Llena el objeto DataSet
objAdaptador.Fill(objConjuntoDatos)

'Muestra el primer registro en pantalla
Dim objDatoCampo As
DataRow

iPosicion = 0
objDatoCampo = objConjuntoDatos.Tables(0).Rows(iPosicion)
txtCodigo.Text = objDatoCampo(0)
txtNombre.Text = objDatoCampo(1)

 

Para usar los botones de atrás y adelante (btnAtras y btnAdelante) de tal manera que pueda pasear por los registros de la tabla, coloque este código de evento

Descargue código fuente