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
| Sub MacroTest()
'¤¤¤¤¤¤¤¤¤Déclaration des variables¤¤¤¤¤¤¤¤¤¤
Dim cNx As ADODB.Connection
Dim oRS As ADODB.Recordset
Dim sSQL As String
'¤¤¤¤¤¤¤¤¤FIN Déclaration¤¤¤¤¤¤¤¤¤¤
'On déclare le nouvel objet connexion
Set cNx = New ADODB.Connection
'Chaine de connexion
cNx.ConnectionString = "ODBC;DRIVER={Oracle dans Ora10_2_0_3};SERVER={AliasBDD};UID=User;PWD=MDP"
cNx.Open
'On lance la requête SQL
sSQL = "Select name from datatable;"
Set oRS = New ADODB.Recordset
oRS.Open sSQL, cNx, adOpenStatic
'On vérifie le retour de requête
MsgBox IIf(oRS.EOF, "Il n'y a aucun enregistrement", "Il y a au moins un enregistrement")
'On implémente la case excel avec le résultat de la requête
With ThisWorkbook.Worksheets("Feuil1")
.Range("E2").ClearContents
.Range("E2").CopyFromRecordset oRS
End With
'On ferme le tout !
oRS.Close
cNx.Close
Set oRS = Nothing
Set cNx = Nothing
End Sub |
