VB: db zugriff beispiel

[wbendl]

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