Hi!
Access 97:
Dim cnn As ADODB.Connection
Dim prov As String
Dim rst As ADODB.Recordset
Dim sql As String
prov = "Microsoft.Jet.OLEDB.3.51"
Set cnn = New ADODB.Connection
cnn.Provider = prov
cnn.Open "C:\MeineDB.mdb", "Admin"
sql = "SELECT ......"
Set rst = New ADODB.Recordset
Set rst.ActiveConnection = cnn
rst.CursorType = adOpenKeyset
rst.LockType = adLockOptimistic
rst.Open strSQL
MySQL:
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim sConn As String
Dim sServer As String
Dim sUserName As String
Dim sPassword As String
Dim sDBName As String
Dim sql As String
sServer = "localhost"
sUserName = "Benutzername"
sPassword = "Kennwort"
sDBName = "datenbankname"
Set cnn = New ADODB.Connection
sConn = "Provider=MSDASQL;Driver=MySQL;" & _
"Server=" & sServer & ";Database=" & sDBName
oConn.Open sConn, sUserName, sPassword
sql = "SELECT ......"
Set rst = New ADODB.Recordset
Set rst.ActiveConnection = cnn
rst.CursorType = adOpenKeyset
rst.LockType = adLockOptimistic
rst.Open strSQL
Als Alternative kann auch eine ODBC-Datenquelle (DSN) auf dem Rechner eingerichtet werden
mfg
WB
|