Access fin

[yonerflash]

¿Con qué orden llego al final de una base de datos hecha en Access?

[eperedo]

Creo que debes explicar mejor tu duda. A que te refieres con el final??

[Valery-Net]

Te refieres a una tabla ?

[yonerflash]

Mover por los registros. Puede ser con un dataTable

[yonerflash]

Así es como me conecto
MODULE
Dim cnn As New OleDb.OleDbConnection

Public Function conectar() As OleDb.OleDbConnection
Try
Dim ruta As String
ruta = Application.StartupPath & "\" & "empresa.accdb"
If cnn.State = 1 Then cnn.Close()
cnn.ConnectionString = "provider = microsoft.Ace.Oledb.12.0; data source = '" & ruta & "'"
cnn.Open()
Return cnn
Catch ex As Exception
MessageBox.Show(Err.Description)
Return Nothing
End Try
End Function

Microsoft.Jet.OLEDB.4.0

En el formulario
Dim objConexion As New OleDb.OleDbConnection
Dim objcomando As New OleDb.OleDbCommand

LOAD
objConexion = conectar()

Así busco
Try
objcomando.Connection = objConexion
objcomando.CommandText = "select * from tblcliente where idcliente ='" & Val(texId.Text) & "'"

Dim dt As New DataTable
Dim da As New OleDb.OleDbDataAdapter(objcomando)
da.Fill(dt)

If dt.Rows.Count = 0 Then

[freegirl]

Código vb:

If dt.Rows.Count = 0 Then 
msgbox("Ná y menos")
Exit Sub
End if
 
'un ejemplo de como recorrer el datatable. Hay varias formas, pero te pongo 1:
For Each fila As DataRow In dt.Rows
'pon aquí el código que quieras
'ejemplo cualquiera:
nombreCliente = fila("Nombre")
next