a uhmmm primero tienes k hacer hacer un referencia. Te vas al menu
Proyecto y le das click en
Referencias..., luego te va ah salir un cuadro tienes k hacerle un chek a
Microsoft ActiveX Data Objects 2.6 Library una vez activada esa opcion pones algo parecido a esto.
En un modulo pone esto:
Option Explicit
Public CN As ADODB.Connection 'Variable para la conexion a la BDD
'-------------------------------------------------------------------------------------------------------------
'\\ -- Sub para conectar la Base de Datos
'-------------------------------------------------------------------------------------------------------------
Sub Conectar()
Dim RST As New ADODB.Recordset
Set CN = New ADODB.Connection
Set RST = New ADODB.Recordset
With CN
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
App.path & "\LaBaseDeDato.mdb" & ";Persist Security Info=False"
.CursorLocation = adUseClient
.Open
End With
End Sub
y esto en un form: para conectar una tabla x desde la base datos en un Grid
Option Explicit
Dim RSTabla As New ADODB.Recordset
Sub ConectarTabla()
Set RSTabla = New ADODB.Recordset
With RSTabla
.CursorLocation = adUseClient
.Open "Select * From NombreTabla", CN, adOpenStatic, adLockOptimistic
End With
End Sub
Private Sub Form_Load()
Call Conectar 'Conctamos la BDD
Call ConectarTabla
Set DataGrid1.DataSource = RSTabla
DataGrid1.Refresh
End Sub
Slu2....
Autor
En línea
