Programmgesteuertes erstellen von ODBC-Verbindungs-und link-Tabellen in MS Access

Verwenden wir Microsoft Access als reporting-Frontend für Oracle. Die Daten werden über eine ODBC-Verbindung, und es gibt zwei verknüpften Tabellen in Access zu Oracle, die die raw-Daten-Tabellen. Ich möchte in der Lage sein, die Verbindung und Verknüpfung der Tabellen aus der Access-Datei. Diese Weise Benutzer nicht haben, um sorgen über die Einrichtung eines DSN für die ODBC-Verbindung (die meisten von Ihnen sind nicht sehr technisch Benutzer und erfordert hand-holding für so etwas), und wir können schließlich haben die Access-Datei zeigen Sie auf unterschiedliche test-Umgebungen und Berichte zu generieren.

Ist es möglich, die Verbindung zur Datenbank dynamisch erstellt, wenn die Datei geöffnet ist, und kann ich dynamisch ändern, wo meine Verknüpften Tabellen verknüpfen?

InformationsquelleAutor FrustratedWithFormsDesigner | 2010-06-22

  1. 11

    Möchten Sie eine DSN-lose verknüpften Tabelle-Verbindung von Access. Es ist möglich und ich habe es getan, aber ich habe nicht den code bei mir. Ich glaube, es war so etwas wie der unten (dieser verwendet eine SQL Server-Datenquelle, aber in Oracle würde nur eine etwas andere connection-string). Um die Tabelle(N), die beim Start erstellt werden Sie brauchen, um zu überprüfen, die für die Existenz jedes tabledef-Objekts, bevor Sie versuchen, erstellen Sie Sie erneut und rufen Sie ein Unterprogramm auf, wie die unten beim Access-Datenbank öffnen.

    Function LinkTables()
    Dim DB As Database, tDef As TableDef
    Set DB = CurrentDb
    Set tDef = DB.CreateTableDef("YourAccessLinkedTableNameHere")
    tDef.Connect = "ODBC;Driver={SQL Server};Server=srvname;Database=dbname;UID=sqluserid;PWD=sqlpwd"
    tDef.SourceTableName = "dbo.YourSourceTableNameHere"
    DB.TableDefs.Append tDef
End Function
    Beachten Sie, dass die Verbindungszeichenfolge format ist unterschiedlich für jede Datenbank gibt. Schauen Sie hier für einen Verweis: carlprothman.net/Default.aspx?tabid=81
    Wenn Sie nicht brauchen, um bewusst sein, was geschieht in der UI-Schicht Zugreifen, dann ersetzen: Set DB = CurrentDb zu: Set DB = Workspaces(0).Databases(0) oder: Set DB = dbEngine(0)(0), Weil es wesentlich schneller; so viel wie fünf tausend mal schneller.

    InformationsquelleAutor Tahbaza

  2. 6

    Ich meine Programmierung auf einer workstation mit einem DSN definiert ist, und dann vor der Verteilung für die Produktion verwenden, führen Sie eine Variante des Doug Steele s-code zu konvertieren alle DSN-basierte strings anschließen, werden die DSN.

    InformationsquelleAutor David-W-Fenton

Schreibe einen Kommentar