04/11/2005, 08:15
|
| | | Fecha de Ingreso: agosto-2005 Ubicación: Colombia/Santander/Bucaramanga
Mensajes: 19
Antigüedad: 18 años, 8 meses Puntos: 0 | |
| hola, depronto te pueda ayudar esto
declaras en General
Private mdb*nombre _que_quieras_dar* As Database
Ahora donde desees colocar el código para conectárte (combo, texto, u otro control) declaras
Dim Rs as RecordSet
y con esto abrirás la BD
Set mdb*Nombre que diste arriba a la BD* = DBEngine.OpenDatabase("C:\\Documents and Settings\\Roberto\\Mis documentos\\Academia de Policias\\BaseDatos\\Control.mdb ")
Set rsASME = mdb*Nombre que diste arriba a la BD*.OpenRecordset("nombre de la tabla", dbOpenDynaset).
El recordset es para recorrer la BD.
Espero te haya ayudado un poco. |