Question : Accéder à l'embout avant au support d'Oracle

Bonjour, le besoin du

I de relier mon accès d'entrée à quelques tables d'Oracle 10g.  questions du

1st :  Est-ce que je peux employer une corde de raccordement pour faire ceci ?  Je ne veux pas employer un DSN.  question du

2ns.  Je dois employer un conducteur générique d'ODBC… si je peux me relier à Oracle dans le code de VBA, utilisation que quelqu'un me fournissent la corde de raccordement et la substance de raccordement d'AGITATION d'exemple ?

Thanks… class= de

Réponse : Accéder à l'embout avant au support d'Oracle

Vous pouvez essayer ce code -- mais vous pouvez devoir tordre la variable de strConn pour construire la corde de raccordement pour le conducteur exact que vous allez employer.

Pour l'employer appeler juste la fonction, passant dans les paramètres required.  En outre, vous pouvez devoir faire mettre à jour votre dossier de TNSNAMES.ORA.
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 :

Fonction ConnectOracleTable (strTblName comme corde, _
                sServer comme corde, sUID comme corde, sPWD comme corde) comme booléenne

Sur l'erreur Connect_Err GoTo

    Faible strConn comme corde
    Faible DB comme base de données
    Faible tbl comme TableDef
    
    Placer DB = CurrentDb ()
        
    strConn = « ODBC ;  »
    strConn = strConn et « DRIVER= {conducteur de Microsoft ODBC pour Oracle} ;  »
    strConn = strConn et « Server= » et sServer et » ; « 
    strConn = strConn et « UID= » et sUID et » ; « 
    strConn = strConn et « PWD= » et sPWD et » ; « 
    
    Si (DoesTblExist (strTblName) = faux) puis
        Placer le tbl = le db.CreateTableDef (strTblName, le _
                      dbAttachSavePWD, strTblName, _
                      strConn)
        tbl de db.TableDefs.Append
    Autrement
        Placer le tbl = le db.TableDefs (le strTblName)
        tbl. Relier = strConn
        tbl.RefreshLink
    Finir si
    ConnectOracleTable = rectifient

Connect_Exit :
    Placer le tbl = rien
    Placer DB = rien
    Sortir la fonction

Connect_Err :
    ConnectOracleTable = faux
    MsgBox errent et « - » et erreur et vbCrLf et « attache de Tableau échouée. »
    Résumé Connect_Exit
    
Fonction de fin

'***************************************************************
'La fonction de DoesTblExist valide l'existence d'un TableDef
'objet dans la base de données courante. Le résultat détermine si
le 'objet devrait être apposé ou son relier la propriété régénérée.
'***************************************************************

Fonction DoesTblExist (strTblName comme corde) comme booléen
   Sur le résumé d'erreur après
   Faible DB comme base de données, tbl comme TableDef
   Placer DB = CurrentDb
   Placer le tbl = le db.TableDefs (le strTblName)
   Si Err.Number = puis '   article 3265 non trouvé.
      DoesTblExist = faux
      Sortir la fonction
   Finir si
   DoesTblExist = rectifient
   Placer le tbl = rien
   Placer DB = rien
Finir la fonction
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us