1.
myDSN="DSN=MeineDatenbankDSN"
set db = server.CreateObject("ADODB.Connection")
db.open myDSN
Set ds = Server.CreateObject("ADODB.Recordset")
mysql = "select * from MeineTab"
ds.open mysql, db, 2, 3
...
Manipulationen
...
ds.close
db.close
set ds = nothing
set db = nothing
2.
dbPath = "C:\Datenbanken\MeineDB.mdb"
Set db = server.CreateObject("ADODB.Connection")
db.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & dbPath
Set ds = server.CreateObject("ADODB.recordset")
mysql = "Select * from [Howto]"
ds.Open mysql, db, 2, 3
...
Manipulationen
...
db.close
ds.close
set ds=nothing
set db=nothing
|