Cuestión : Tener acceso a las partes frontales al respaldo de Oracle

Hola, necesidad del

I de conectar mi acceso anticipado a algunas tablas de Oracle 10g.  preguntas del

1st:  ¿Puedo utilizar una secuencia de la conexión para hacer esto?  No quiero utilizar un DSN.  pregunta del

2ns.  ¿Necesito utilizar un conductor genérico de ODBC… si puedo conectar con Oracle en el código de VBA, uso que alguien me suministra la secuencia de la conexión y la materia de la conexión de la DIFICULTAD del ejemplo?

Thanks… class= del

Respuesta : Tener acceso a las partes frontales al respaldo de Oracle

Usted puede intentar este código -- pero usted puede necesitar pellizcar la variable del strConn para construir la secuencia de la conexión para el conductor exacto que usted va a utilizar.

Para utilizarlo apenas llamar la función, pasando en los parámetros required.  También, usted puede necesitar hacer su archivo de TNSNAMES.ORA poner al día.
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:

Función ConnectOracleTable (strTblName como secuencia, _
                sServer como secuencia, sUID como secuencia, sPWD como secuencia) como boleana

En el error Connect_Err indicado

    strConn dévil como secuencia
    DB dévil como base de datos
    Tbl dévil como TableDef
    
    Fijar DB = CurrentDb ()
        
    strConn = “ODBC; ”
    strConn = strConn y “DRIVER= {conductor de Microsoft ODBC para Oracle}; ”
    strConn = strConn y “Server=” y sServer y”; “
    strConn = strConn y “UID=” y sUID y”; “
    strConn = strConn y “PWD=” y sPWD y”; “
    
    Si (DoesTblExist (strTblName) = falso) entonces
        Fijar el tbl = db.CreateTableDef (strTblName, el _
                      dbAttachSavePWD, strTblName, _
                      strConn)
        tbl de db.TableDefs.Append
    
        Fijar el tbl = db.TableDefs (el strTblName)
        tbl. Conectar = strConn
        tbl.RefreshLink
    Terminar si
    ConnectOracleTable = verdad

Connect_Exit:
    Fijar el tbl = nada
    Fijar DB = nada
    Salir la función

Connect_Err:
    ConnectOracleTable = falso
    MsgBox yerra y “-” y error y vbCrLf y “fijación de la tabla fallada.”
    Curriculum vitae Connect_Exit
    
Función del final

'***************************************************************
'La función de DoesTblExist valida la existencia de un TableDef
'objeto en la base de datos actual. El resultado determina si
el 'objeto debe ser añadido o su conectar la característica restaurada.
'***************************************************************

Función DoesTblExist (strTblName como secuencia) como boleano
   En curriculum vitae del error después
   DB dévil como base de datos, tbl como TableDef
   Fijar DB = CurrentDb
   Fijar el tbl = db.TableDefs (el strTblName)
   Si Err.Number = entonces '   artículo 3265 no encontrado.
      DoesTblExist = falso
      Salir la función
   Terminar si
   DoesTblExist = verdad
   Fijar el tbl = nada
   Fijar DB = nada
Terminar la función
Otras soluciones  
 
programming4us programming4us