Programación de base de datos Vba
Opción explícita
096 Dim base de datos como objeto
097 Private subform_Load()
098 Establecer base de datos = nueva conexión adodb
099 Llamada. base de datos open(" proveedor = Microsoft . jet . oledb . 4.0; fuente de datos = Data.mdb") 'Conéctese a la base de datos
100 Si ((database. state) = (adstatepen )) Entonces<. /p>
101 MsgBox("¡Conexión exitosa!")
102 Otros
103 MsgBox("¡Conexión fallida!")
104 Finalizar si
105 Conector final
106 Subformulario privado_Descarga (cancelación de entero)
107 Base de datos. Cerrar Cierra la base de datos.
108 Establecer base de datos = ninguna' variable de base de datos clara
109 Conector final