Alexander Volkmer: Ohne DSN auf Access Datenbank zugreifen

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

  1. 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.

  2. 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

    1. Danke geht hervorragend!

      Alexander