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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
|
Public ConnectOracle As DAO.Database
Sub Connect_Oracle()
'************************
' Erreur renvoyée : ORA-12170 : TNS: Connect timeout occured
'************************
Dim Srv_Oracle As String
Dim Itc_Oracle As String
Dim User As String
Dim PassWord As String
Srv_Oracle = "serveur_oracle"
Itc_Oracle = "instance_oracle"
User = "user_oracle"
PassWord = "pwd_oracle"
Dim connexion As ADODB.Connection
Set connexion = New ADODB.Connection
connexion.Provider = "MSDAORA.1"
connexion.Properties("Data Source").value = Itc_Oracle
connexion.Properties("User Id").value = User
connexion.Properties("Password").value = Password
connexion.Open
End sub
Sub Connect_Oracle2()
'************************
' Erreur renvoyée : [Microsoft][Gestionnaire de pilotes ODBC] Source de données introuvable et nom de pilote non spécifié
'************************
Dim Srv_Oracle As String
Dim Itc_Oracle As String
Dim User As String
Dim PassWord As String
Srv_Oracle = "serveur_oracle"
Itc_Oracle = "instance_oracle"
User = "user_oracle"
PassWord = "pwd_oracle"
'Déclaration de la variable de connexion
Dim cnx As ADODB.Connection
Set cnx = New ADODB.Connection
'Définition de la chaîne de connexion
cnx.ConnectionString = "UID=" + User & ";PWD=" & Password & ";" & "DRIVER=OraOLEDB.Oracle;Server=" & Srv_Oracle & "." & Itc_Oracle & ";"
'Ouverture de la base de données
cnx.Open
end sub
sub Connect_Oracle3()
'************************
' Erreur renvoyée : Variable ou bloc with non déclaré
'************************
Dim Srv_Oracle As String
Dim Itc_Oracle As String
Dim User As String
Dim PassWord As String
Srv_Oracle = "serveur_oracle"
Itc_Oracle = "instance_oracle"
User = "user_oracle"
PassWord = "pwd_oracle"
'Defining variables
Dim cnOra As ADODB.Connection
Dim rsOra As ADODB.Recordset
'Making an ODBC connection according TO ADO
cnOra.Open "DRIVER={Oracle ODBC Driver}; DSN=" & Itc_Oracle & "; UID=" & User & ";PWD=" & PassWord & ";"
end sub |
