conectarme a una bd con dao 3.51 en vb6
Publicado por israel gonzalez mejia (3 intervenciones) el 17/01/2006 15:30:07
Hola, Gracias por leer este mensaje. Mi problema es el siguiente:
Utilizo vb6 y dao para conectarme a una bd de access y quisiera saber como conectarme a la misma base de datos en la parte del opendatabase con un vinculo de datos odbc que se llama CORREOS para ejecutar una consulta, y no tener que especificar la ruta de la bd, que tendria que cambiarle a mi codigo que es el siguiente:
Dim db As Database
Dim rs As Recordset
Const PathBase As String = "D:\bases\correos.mdb"
Dim num As String
Dim c As String
c = "COUNT(*)"
Set db = OpenDatabase(PathBase)
Set rs = db.OpenRecordset("SELECT " & c & " AS sumas FROM adscripciones", dbOpenDynaset)
If rs.BOF = True And rs.EOF = True Then
Exit Sub
End If
With rs
clave = CStr(.Fields("sumas"))
End With
MsgBox clave
Utilizo vb6 y dao para conectarme a una bd de access y quisiera saber como conectarme a la misma base de datos en la parte del opendatabase con un vinculo de datos odbc que se llama CORREOS para ejecutar una consulta, y no tener que especificar la ruta de la bd, que tendria que cambiarle a mi codigo que es el siguiente:
Dim db As Database
Dim rs As Recordset
Const PathBase As String = "D:\bases\correos.mdb"
Dim num As String
Dim c As String
c = "COUNT(*)"
Set db = OpenDatabase(PathBase)
Set rs = db.OpenRecordset("SELECT " & c & " AS sumas FROM adscripciones", dbOpenDynaset)
If rs.BOF = True And rs.EOF = True Then
Exit Sub
End If
With rs
clave = CStr(.Fields("sumas"))
End With
MsgBox clave
Valora esta pregunta
0