Questione : Accedere alla parte frontale al sostegno di Oracle

Ciao, necessità del

I di collegare il mio accesso a fine frontale ad alcune tabelle di Oracle 10g.  domande del

1st:  Posso usare una stringa del collegamento per fare questo?  Non voglio usare un DSN.  domanda del

2ns.  Devo usare un driver generico di ODBC… se posso collegarmi ad Oracle nel codice di VBA, uso che qualcuno mi fornisce la stringa del collegamento ed il roba del collegamento di DIFFICOLTÀ di esempio?

Thanks… class= del

Risposta : Accedere alla parte frontale al sostegno di Oracle

Potete provare questo codice -- ma potete avere bisogno di di tweak la variabile dello strConn per costruire la stringa del collegamento per il driver esatto che state andando usare.

Per usarlo denominare appena la funzione, passante nei parametri required.  Inoltre, potete avere bisogno di di fare la vostra lima di TNSNAMES.ORA aggiornare.
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:

Funzione ConnectOracleTable (strTblName come stringa, _
                sServer come stringa, sUID come stringa, sPWD come stringa) come booleana

Sull'errore Connect_Err di avanzamento

    strConn fioco come stringa
    Db fioco come base di dati
    Tbl fioco come TableDef
    
    Regolar db = CurrentDb ()
        
    strConn = “ODBC; „
    strConn = strConn & “DRIVER= {driver di Microsoft ODBC per Oracle}; „
    strConn = strConn & “Server=„ & sServer &„; “
    strConn = strConn & “UID=„ & sUID &„; “
    strConn = strConn & “PWD=„ & sPWD &„; “
    
    Se (DoesTblExist (strTblName) = falso) allora
        Regolare il tbl = db.CreateTableDef (strTblName, _
                      dbAttachSavePWD, strTblName, _
                      strConn)
        tbl di db.TableDefs.Append
    Altrimenti
        Regolare il tbl = db.TableDefs (strTblName)
        tbl. Collegar = strConn
        tbl.RefreshLink
    Concluder se
    ConnectOracleTable = allinea

Connect_Exit:
    Regolare il tbl = niente
    Regolar db = niente
    Uscire la funzione

Connect_Err:
    ConnectOracleTable = falso
    MsgBox erra & “-„ & errore & vbCrLf & “attaccatura della Tabella venuta a mancare.„
    Riassunto Connect_Exit
    
Funzione di conclusione

'***************************************************************
'La funzione di DoesTblExist convalida l'esistenza di un TableDef
'oggetto nella base di dati corrente. Il risultato determina se
'l'oggetto dovrebbe aggiungersi o relativo collegare la proprietà rinfrescata.
'***************************************************************

Funzione DoesTblExist (strTblName come stringa) come booleano
   Sul riassunto di errore dopo
   Db fioco come base di dati, tbl come TableDef
   Regolar db = CurrentDb
   Regolare il tbl = db.TableDefs (strTblName)
   Se Err.Number = allora '   articolo 3265 non trovato.
      DoesTblExist = falso
      Uscire la funzione
   Concluder se
   DoesTblExist = allinea
   Regolare il tbl = niente
   Regolar db = niente
Concludere la funzione
Altre soluzioni  
 
programming4us programming4us