Ohne DSN auf Access Datenbank zugreifen

[Alexander Volkmer]

Hallo,

ich möchte gerne per ASP ohne DSN auf eine Access2000 Datenbank zugreifen.
Könnt ihr mir bitte dabei Helfen, per System DSN klappt es.

dim connObj, rs
set ConnObj = Server.CreateObject("ADODB.Connection")
ConnObj.Mode = adModeRead
ConnObj.Open "ACCESS"
sql = "SELECT * FROM [test]"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, connObj, 3, 3

Vielen Dank!

Alexander

[Stefan Falz]

Hallo,

ich möchte gerne per ASP ohne DSN auf eine Access2000 Datenbank zugreifen.
Könnt ihr mir bitte dabei Helfen, per System DSN klappt es.

dim connObj, rs
set ConnObj = Server.CreateObject("ADODB.Connection")
ConnObj.Mode = adModeRead
ConnObj.Open "ACCESS"
sql = "SELECT * FROM [test]"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, connObj, 3, 3

Vielen Dank!

Alexander

Hallo,

nachstehend der Inhalt der benötigten Dateien

dbconn.dsn
----------
[ODBC]
DRIVER=Microsoft Access Driver (*.mdb)
ReadOnly=0
UserCommitSync=Yes
Threads=20
SafeTransactions=1
PageTimeout=5
MaxScanRows=8
MaxBufferSize=8192
ImplicitCommitSync=Yes
FIL=MS Access
DriverId=25

Die Driver-ID mußt Du evtl. noch anpassen

dbopen.inc
<%
' -- Zuweisen des Pfads der Datei DBConn.dsn
  DSNFilePath = "filedsn=" & Server.MapPath("./") & "\dbconn.dsn"

' --- Zuweisen des Pfads der Datenbank verwaltung.mdb
  DBPath = "DBQ=" & Server.MapPath("./") & "\dbconn.mdb"

' --- Zuweisen der Datenbankverbindung
  Set obj_conn = Server.CreateObject("ADODB.Connection")

' --- Öffnen der Datenbankverbindung
   obj_conn.open DSNFilePath & ";" & DBPath & ";UID=admin;PWD="
%>

Tschau, Stefan

P.S.: Schau mal bei http://www.asp-database.de vorbei. Dort findest Du solche Infos auch.

[Wowbagger]

Hi Alexander,

so geht's, ohne daß die DB als ODBC quelle angemeldet sein muß:

set conn= Server.CreateObject("ADODB.Connection")
DSN= "DRIVER={Microsoft Access Driver (*.mdb)};"
DSN= DSN & "DBQ=pfad_zur_db"
conn.Open DSN

und dann wie üblich:

set rs= Server.CreateObject("ADODB.Recordset")
sql= "SQL-statement"
rs.Open sql, conn
.
.
.

tschau,
/*,*/
Wowbagger

[Alexander Volkmer]

Danke geht hervorragend!

Alexander