Bueno, aqui te dejo un ejemplo de una de mis conexiones y puedes crearte tu propio control data de una forma sencilla.
PrimeroHaces el codigo que muestra los datos de tu base en los labels
Modulo para conectar
Imports ADODB
Module xConex
Public conuser As New ADODB.Connection
Public tusuarios As New ADODB.Recordset
Public Sub conectar()
conuser.ConnectionString = "Provider = microsoft.jet.oledb.4.0; data source = users.mdb"
'para que funcione la base de datos debe estar en la misma carpeta que el programa. Siiiii adios app.path
Try
conuser.Open()
Catch ex As Exception
MsgBox("No se pudo encontrar la base de datos primaria para el logon, vuelva a instalar la aplicacion y si el problema persiste contacte a su administrador de software", MsgBoxStyle.Critical)
Application.ExitThread()
End Try
End Sub
End Module
SegundoEn tu programa creas un procedimiento para abrir y refrescar la info.
private sub abrirusuarios()
With tusuarios
.ActiveConnection = conuser
.CursorType = CursorTypeEnum.adOpenKeyset
.LockType = LockTypeEnum.adLockOptimistic
.Open("usuarios")
If .RecordCount = 0 Then
.close
exit sub
'O mostrar un mensaje que diga que la tabla esta vacia.
Else
TextBox1.Text = .fields(0).value
label2.Text = .fields(1).value
' y asi sucesivamente mientras te queden campos en la tabla
.Close()
End If
End With
end sub
terceroReunes unos cuantos botones y haces lo siguiente
Boton1
Etiqueta: ">"
Codigo: if not nombre tabla.Eof then nombretabla.movenext
abrirusuarios()
Boton2
Etiqueta: ">>"
Codigo: if not nombre tabla.Eof then nombretabla.movelast
abrirusuarios()
Boton3
Etiqueta: "<"
Codigo: if not nombre tabla.Bof then nombretabla.moveprevious
abrirusuarios()
Boton4
Etiqueta: "<<"
Codigo: if not nombre tabla.Bof then nombretabla.movefirst
abrirusuarios()
*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
uy me canse, espero que te sirva de mucho en tu migracion, yo tambien esto en ese proceso.
Feliz Navidad,
Ab.
