Cuestión : Necesitar los proyectos de la versión parcial de programa que demuestran apagado la ventana visual del hilo de rosca del estudio 2010.

Soy nuevo a multi-threading y el wold tiene gusto de jugar alrededor con el estudio visual 2010 y es ventana del hilo de rosca.  ¿Cualquier persona tiene tan una versión parcial de programa (o dos) que puedo entonces transferir consigo experimentar esta parte del IDE?

Thanks,
newbieweb class= del

Respuesta : Necesitar los proyectos de la versión parcial de programa que demuestran apagado la ventana visual del hilo de rosca del estudio 2010.

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