Frage : Auf Vorderseite zur Oracle-Unterstützung zurückgreifen

Hallo,

I Notwendigkeit, meinen Zugang Vorderseiten zu einigen Tabellen Oracle-10g anzuschließen.  

1st Fragen:  Kann ich eine Anschlussschnur benutzen, um dies zu tun?  Ich möchte nicht ein DSN verwenden.  

2ns Frage.  Ich muss einen generischen ODBC Fahrer benutzen…, wenn ich an Oracle im VBA Code anschließen kann, Gebrauch, den jemand mich mit Anschlussschnur und Beispiel AUFHEBEN-Anschlussmaterial zur Verfügung stellen?

Thanks…

Antwort : Auf Vorderseite zur Oracle-Unterstützung zurückgreifen

Sie können diesen Code versuchen -- aber Sie können die strConn Variable zwicken müssen, um die Anschlussschnur für den genauen Fahrer zu errichten, den Sie benutzen werden.

Um ihn zu verwenden die Funktion einfach benennen und in die erforderlichen Parameter überschreiten.  Auch Sie können müssen Ihre TNSNAMES.ORA Akte aktualisieren lassen.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
6:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:

Funktion ConnectOracleTable (strTblName als Schnur, _
                sServer als Schnur, sUID als Schnur, sPWD als Schnur) wie Boolesch

Auf Störung Goto- Connect_Err

    Schwaches strConn als Schnur
    Schwaches DB als Datenbank
    Schwaches tbl als TableDef
    
    Einstellen DB = CurrentDb ()
        
    strConn = „ODBC; “
    strConn = strConn u. „DRIVER= {Fahrer Microsoft-ODBC für Oracle}; “
    strConn = strConn u. „Server=“ u. sServer u.“; „
    strConn = strConn u. „UID=“ u. sUID u.“; „
    strConn = strConn u. „PWD=“ u. sPWD u.“; „
    
    Wenn (DoesTblExist (strTblName) = falsch) dann
        Tbl = db.CreateTableDef (strTblName, _ einstellen
                      dbAttachSavePWD, strTblName, _
                      strConn)
        db.TableDefs.Append tbl
    Sonst
        Tbl = db.TableDefs (strTblName) einstellen
        tbl. Anschließen = strConn
        tbl.RefreshLink
    Beenden wenn
    ConnectOracleTable = richten aus

Connect_Exit:
    Tbl einstellen = nichts
    Einstellen DB = nichts
    Funktion herausnehmen

Connect_Err:
    ConnectOracleTable = falsch
    MsgBox irren sich u. „-“ u. Störung u. vbCrLf u. „die verlassene Tabellenbefestigung.“
    Zusammenfassung Connect_Exit
    
Enden-Funktion

'***************************************************************
'Die DoesTblExist Funktion validiert das Bestehen von einem TableDef
'Gegenstand in der gegenwärtigen Datenbank. Das Resultat stellt wenn fest
'Gegenstand sollte angefügt werden, oder sein das erneuerte Eigentum anschließen.
'***************************************************************

Funktion DoesTblExist (strTblName als Schnur) wie Boolesch
   Auf Störungs-Zusammenfassung zunächst
   Schwaches DB als Datenbank, tbl als TableDef
   Einstellen DB = CurrentDb
   Tbl = db.TableDefs (strTblName) einstellen
   Wenn Err.Number = dann '   Einzelteil 3265 nicht gefunden.
      DoesTblExist = falsch
      Funktion herausnehmen
   Beenden wenn
   DoesTblExist = richten aus
   Tbl einstellen = nichts
   Einstellen DB = nichts
Funktion beenden
Weitere Lösungen  
 
programming4us programming4us