Questione : Avere bisogno dei progetti della dimostrazione che mostrano fuori la finestra visiva del filetto dello studio 2010.

Sono nuovo a multifilo ed il wold gradice giocare intorno con lo studio visivo 2010 ed è finestra del filetto.  Così chiunque ha una dimostrazione (o due) che posso allora caricare programmi oggetto ottengo di avvertire questa parte dell'ido?

Thanks,
newbieweb class= del

Risposta : Avere bisogno dei progetti della dimostrazione che mostrano fuori la finestra visiva del filetto dello studio 2010.

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