Base de datos programación vba inicio de sesión con contraseña de múltiples cuentas
Atenuar SQL como cadena
Atenuar i como entero
mydata = ThisWorkbook.Path & "\Addressbook.mdb" 'Especificar base de datos
mytable = "Chongtong Company" 'Especificar tabla de datos
Set cnn = New ADODB.Connection 'Establecer una conexión con la base de datos
Con cnn
.Provider = "microsoft.jet.oledb.4.0"
.Properties("Fuente de datos") = mytable
.Properties("jet oledb:contraseña de la base de datos") = "mm1314" ' Contraseña
.Abrir mis datos
Terminar con