Red de conocimiento informático - Aprendizaje de código fuente - Base de datos programación vba inicio de sesión con contraseña de múltiples cuentas

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