ODBC Datenbankverbindung ohne Konfiguration

[yidaki]

Hallo,

ich möchte gerne eine ODBC öffnen ohne diese vorher unter den Microsoft - Data-Sourcen zu konfigurieren.

==> Jeder im Netz soll die Möglichkeit haben das Sheet aufzurufen, ohne die ODBC einzustellen.

Falls jemand ein einfaches Beispiel parad hat wär ich sehr dankbar, suche schon seit längerem. Konnte leider nichts gescheites finden.

 

[yidaki]

Also hier etwas Code um das ganz etwas verständlicher zu machen... Wobei denke ich das Problem der Datenbank durch "{Microsoft ODBC for Oracle}" in Set.dbase gelöst ist.

Ich möchte nun den select in ein recordset schreiben um ihn später auszulesen...

Sub CreateWorkspaceX()

    Dim wrkODBC As Workspace
    Dim recSet As Recordset
    Dim dBase As Database
    Dim Rs As Recordset
    
    dbname = "usrname"
    dbUser = "user"
    dbPW = "passwort"

    Set wrkODBC = CreateWorkspace("ws" & dbname, dbUser, dbPW, dbUseODBC)
    Workspaces.Append wrkODBC
    
    Set dBase = wrkODBC.OpenConnection(dbname, dbDriverNoPrompt, True, "ODBC;DRIVER={Microsoft ODBC for Oracle};DSN=" & dbname & ";UID=" & dbUser & ";PWD=" & dbPW & ";Server=" & dbname)
    'dBase.OpenRecordset ("Select t.tr_nr from fs_hd_tr_booking_detail_v t")
    
    
' An dieser Stelle bekomme ich im Moment eine Fehlermeldung ..."type missmatch"
Set Rs = _
    dBase.OpenRecordset("Select t.tr_nr from fs_hd_tr_booking_detail_v t")
    
    wrkODBC.Close
End Sub

 

[yidaki]

Sorry, .....

stück für stück kommt alles an tageslicht....

Das Recordset musste als DAO.Recordset definiert werden... damit funktioniert es

trotzdem danke!