Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel probleme avec ado en vba

probleme avec ado en vba

3 réponses
Avatar
pzayd
bonjour , je developpe une macro qui se connecte a une base oracle ,
avec le visual basic editor d'excel .... voila mon code , je suis
debutant en vba , kd je compile il ne reconnais pas "adodb.connection
"ou otre pkoi ??
Sub GetOracleList(Valg As Long)

Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim fld As ADODB.Field
Dim Sok As String

Sok = "SELECT PROG_ID, TITTEL" & Chr(10)
Sok = Sok & "FROM ORADUMMY.PROG" & Chr(10)
Sok = Sok & "WHERE PROG_ID = " & Valg

'here it is:
cnn.Open "Driver={Microsoft ODBC for Oracle};" &
"Server=ORADUMMY.world;" & "Uid=HaraldAtWork;" & "Pwd=NiceTryHarald;"
rst.Open Sok, cnn, adOpenForwardOnly, adLockReadOnly

Sheets(1).Cells(2, 1).CopyFromRecordset rst
rst.Close


End Subo

merci de votre aide ...
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
michdenis
Bonjour Zouzou,

Voici une adresse où tu pourras trouver la chaîne de connection pour une base oracle.


http://www.able-consulting.com/ado_conn.htm?f­o_conn.htm


Salutations!



"zouzou" a écrit dans le message de news:
bonjour , je developpe une macro qui se connecte a une base oracle ,
avec le visual basic editor d'excel .... voila mon code , je suis
debutant en vba , kd je compile il ne reconnais pas "adodb.connection
"ou otre pkoi ??
Sub GetOracleList(Valg As Long)

Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim fld As ADODB.Field
Dim Sok As String

Sok = "SELECT PROG_ID, TITTEL" & Chr(10)
Sok = Sok & "FROM ORADUMMY.PROG" & Chr(10)
Sok = Sok & "WHERE PROG_ID = " & Valg

'here it is:
cnn.Open "Driver={Microsoft ODBC for Oracle};" &
"Server=ORADUMMY.world;" & "Uid=HaraldAtWork;" & "Pwd=NiceTryHarald;"
rst.Open Sok, cnn, adOpenForwardOnly, adLockReadOnly

Sheets(1).Cells(2, 1).CopyFromRecordset rst
rst.Close


End Subo

merci de votre aide ...
Avatar
Gaspareau
J'en connait qui ont aussi des problèmes avec des ado mais pas
nécessairement en VBA !!!!


"michdenis" a écrit dans le message de
news:
Bonjour Zouzou,

Voici une adresse où tu pourras trouver la chaîne de connection pour une
base oracle.



http://www.able-consulting.com/ado_conn.htm?f­o_conn.htm


Salutations!



"zouzou" a écrit dans le message de
news:

bonjour , je developpe une macro qui se connecte a une base oracle ,
avec le visual basic editor d'excel .... voila mon code , je suis
debutant en vba , kd je compile il ne reconnais pas "adodb.connection
"ou otre pkoi ??
Sub GetOracleList(Valg As Long)

Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim fld As ADODB.Field
Dim Sok As String

Sok = "SELECT PROG_ID, TITTEL" & Chr(10)
Sok = Sok & "FROM ORADUMMY.PROG" & Chr(10)
Sok = Sok & "WHERE PROG_ID = " & Valg

'here it is:
cnn.Open "Driver={Microsoft ODBC for Oracle};" &
"Server=ORADUMMY.world;" & "Uid=HaraldAtWork;" & "Pwd=NiceTryHarald;"
rst.Open Sok, cnn, adOpenForwardOnly, adLockReadOnly

Sheets(1).Cells(2, 1).CopyFromRecordset rst
rst.Close


End Subo

merci de votre aide ...




Avatar
J-Dan
bonsoir Gaspareau,

bravo, j'apprécie trop ce genre d'humour.
Si un jour j'ouvre un groupnews LalandeDePomerol.fr.Excel
je te fais MVP d'honneur.

continue

;-))))))))))))))))

J-Dan

-----Message d'origine-----
J'en connait qui ont aussi des problèmes avec des ado
mais pas

nécessairement en VBA !!!!


"michdenis" a écrit dans le
message de

news:
Bonjour Zouzou,

Voici une adresse où tu pourras trouver la chaîne de
connection pour une


base oracle.


http://www.able-consulting.com/ado_conn.htm?
f­o_conn.htm




Salutations!



"zouzou" a écrit dans le message de
news:

bonjour , je developpe une macro qui se connecte a une
base oracle ,


avec le visual basic editor d'excel .... voila mon
code , je suis


debutant en vba , kd je compile il ne reconnais
pas "adodb.connection


"ou otre pkoi ??
Sub GetOracleList(Valg As Long)

Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim fld As ADODB.Field
Dim Sok As String

Sok = "SELECT PROG_ID, TITTEL" & Chr(10)
Sok = Sok & "FROM ORADUMMY.PROG" & Chr(10)
Sok = Sok & "WHERE PROG_ID = " & Valg

'here it is:
cnn.Open "Driver={Microsoft ODBC for Oracle};" &
"Server=ORADUMMY.world;" & "Uid=HaraldAtWork;"
& "Pwd=NiceTryHarald;"


rst.Open Sok, cnn, adOpenForwardOnly, adLockReadOnly

Sheets(1).Cells(2, 1).CopyFromRecordset rst
rst.Close


End Subo

merci de votre aide ...





.