Depende que conexion deseas puede ser con DAO o con ADO En caso de que sea DAO Activas la referencia Microsoft DAO 3.6 Object Library Dim WSSIG As Workspace Dim BDMAT As Database Dim Rs As Recordset Sub Abrir() Set WSSIG = DBEngine.Workspaces(0) Set BDMAT = WSSIG.OpenDatabase(App.Path & "\Materiales.mdb") End Sub 'Cuando hagas una consulta: SQL = "Select * From TempRptMateriales" Set Rs = BDMAT.OpenRecordset(SQL, dbOpenSnapshot) If Rs.RecordCount > 0 Then MSGBOX "Listo" End If Si desea conectarte por medio ADO, te lo pongo en otro comentario.
Cuando te conectas por medio de ADO, activas la Referencia Microsoft ActiveX Data Objects 2.7 Library Dentro de un Modulo Public Rs As ADODB.Recordset Public Sql As String Public cnbase As ADODB.Connection Sub Abrir() Ruta = App.Path & "\Materiales.mdb" 'donde esta tu ruta de base datos Conexion = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & Ruta & "" Set cnbase = New ADODB.Connection cnbase.ConnectionString = Conexion cnbase.Open Conexion End Sub 'esto cuando quieras llenar un combo Sql = "Select * From CatAreas" Combo1.Text = "" Abrir 'Manda llamar al procedimiento Set Rs = New ADODB.Recordset If Rs.State = adStateOpen Then Rs.Close Rs.CursorLocation = adUseClient Rs.CursorType = adOpenDynamic Rs.LockType = adLockOptimistic Rs.Open Sql, cnbase 'Asi llenas un combo Do While Not Rs.EOF Combo1.AddItem Rs!Area Rs.MoveNext Loop SALUDOS!!!!
Valora esta respuesta
0
Comentar
Urge, filtrar registros en crystal report desde VB