Consultando datos de una tabla usando código. Parte 2.
Tenemos la siguiente tabla en Access
Si queremos navegar por los registros, entonces debemos hacer esto
'Se define una variable que tendrá la cadena de conexión Dim sbConecta As String sbConecta = "Provider=Microsoft.Jet.OLEDB.4.0;" sbConecta += "Data Source = c:\temp\ejemplo.mdb" 'Se declara un objeto para conectarse a la base de datos Dim objConexion As OleDbConnection = New OleDbConnection(sbConecta) objConexion.Open() 'Muestra el proveedor y la fuente de datos del objeto conexión MsgBox("Proveedor: " + objConexion.Provider + " y Fuente: " + objConexion.DataSource) 'Crea un objeto DataAdapter para manejar múltiples registros Dim objAdaptador As New OleDbDataAdapter 'Crea un objeto DataSet para manejar múltiples registros Dim objConjuntoDatos As New DataSet 'La sentencia SQL para consultar Dim sbSQLconsulta As String sbSQLconsulta = "SELECT * FROM personas" '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 las columnas y el tipo de dato que hay en el DataSet Dim objColumna As DataColumn For Each objColumna In objConjuntoDatos.Tables(0).Columns MsgBox(objColumna.ColumnName & " es de tipo: " & objColumna.DataType.ToString) Next 'Muestra registro por registro Dim objDatoCampo As DataRow For Each objDatoCampo In objConjuntoDatos.Tables(0).Rows MsgBox(objDatoCampo(0) & " -- " & objDatoCampo(1)) Next 'Cierra la conexión objConexion.Close()
