Consultando datos de una tabla usando código. Parte 1.

	free hosting image hosting hosting reseller online album e-shop famous people

Tenemos la siguiente tabla en Access

Si queremos saber cuantos registros existen en esa tabla debemos usar:

select count(*) from Personas

¿Cómo hacer eso en Visual Basic .NET e imprimirlo?

Este es el código:

'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 comando con la instrucción SQL

Dim objComando As New OleDbCommand

objComando.Connection = objConexion 'Le pasa la conexión

objComando.CommandText = "SELECT COUNT(*) FROM personas" 'La sentencia SQL

Dim iNumeroRegistros As Integer

'Ejecuta la consulta y devuelve la primera columna de la primera fila del conjunto de resultados

' devuelto por la consulta

iNumeroRegistros = objComando.ExecuteScalar

'Muestra el resultado

MsgBox("Numero de registros es: " & CStr(iNumeroRegistros))

'Cierra la conexión

objConexion.Close()