Vraag : Het vooreind van de toegang aan de File van Oracle

Hello,/>I behoefte


1st:  Kan ik een verbindingskoord om dit te doen gebruiken?  Ik wil geen DSN gebruiken.  vraag

2ns.  Ik moet een generische bestuurder gebruiken ODBC… als ik met Oracle in de VBA code, gebruik kan verbinden iemand me van verbindingskoord en de verbindingsmateriaal van de voorbeeldDRUKTE voorziet?

Thanks…

Antwoord : Het vooreind van de toegang aan de File van Oracle

U kunt deze code proberen -- maar u kunt de strConnvariabele moeten knijpen om het verbindingskoord voor de nauwkeurige bestuurder te bouwen dat u gaat gebruiken.

Om te gebruiken roept het enkel de functie, die in de vereiste parameters overgaan.  Ook, kunt u moeten uw Bijgewerkt tnsnames.ora- dossier hebben.
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:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:

Functie ConnectOracleTable (strTblName als Koord, _
                sServer als Koord, sUID als Koord, sPWD als Koord) zoals Van Boole

Op Fout GoTo Connect_Err

    Schemerige strConn als Koord
    Schemerige db als Gegevensbestand
    Schemerige tbl als TableDef
    
    Vastgesteld db = CurrentDb ()
        
    strConn = „ODBC; “
    strConn = strConn & „DRIVER= {de Bestuurder van Microsoft ODBC voor Oracle}; “
    strConn = strConn & „Server=“ & sServer &“; „
    strConn = strConn & „UID=“ & sUID &“; „
    strConn = strConn & „PWD=“ & sPWD &“; „
    
    Als (DoesTblExist (strTblName) = Vals) toen
        Reeks tbl = db.CreateTableDef (strTblName, _
                      dbAttachSavePWD, strTblName, _
                      strConn)
        db.TableDefs.Append tbl
    Anders
        Reeks tbl = db.TableDefs (strTblName)
        tbl. Verbind = strConn
        tbl.RefreshLink
    Beëindig als
    ConnectOracleTable = Waar

Connect_Exit:
    Reeks tbl = niets
    Vastgesteld db = niets
    De Functie van de uitgang

Connect_Err:
    ConnectOracleTable = Vals
    MsgBox vergist zich & „-“ & maken de Fout & vbCrLf & de „Lijst ontbroken.“ vast
    Hervat Connect_Exit
    
Beëindig Functie

'***************************************************************
De 'functie DoesTblExist bevestigt het bestaan van een TableDef
'voorwerp in het huidige gegevensbestand. Het resultaat bepaalt als
het 'voorwerp zou moeten worden toegevoegd of zijn Connect bezit verfrist.
'***************************************************************

Functie DoesTblExist (strTblName als Koord) zoals Van Boole
   Op Fout hervat daarna
   Verduister db als Gegevensbestand, tbl als TableDef
   Plaats db = CurrentDb
   Plaats tbl = db.TableDefs (strTblName)
   Als Err.Number = toen '   gevonden niet Punt 3265.
      DoesTblExist = Vals
      De Functie van de uitgang
   Eind als
   DoesTblExist = Waar
   Reeks tbl = niets
   Vastgesteld db = niets
De Functie van het eind
Andere oplossingen  
 
programming4us programming4us