Lire une BD à partir dEXCEL

Résolu
Signaler
Messages postés
231
Date d'inscription
mercredi 27 avril 2005
Statut
Membre
Dernière intervention
10 juin 2009
-
Messages postés
231
Date d'inscription
mercredi 27 avril 2005
Statut
Membre
Dernière intervention
10 juin 2009
-
Bonjour,
je veux lire une table Access depuis excel, pour recuperer les données stockées dans la table access
jai essayé de ce code :
Dim cnn As ADOBD.Connection
Set cnn = New ADODB.Connection
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\M2 MIL\Premier semestre\VRP\VRP.mdb;"
cnn.Open


Dim rstCurr As New ADODB.Recordset
Dim strSQL As String
strSQL = "SELECT Count(*) As nb From Clients"
rstCurr.Open strSQL, cnn, adOpenStatic, adLockPessimistic


nbC = rstCurr![nb]
rstCurr.Close
cnn.Close


Dim nomCli() As String
Dim X() As Integer
Dim Y() As Integer
ReDim nomCli(nbC) As String
ReDim X(nbC) As Integer
ReDim Y(nbC) As Integer


strSQL = "SELECT * From Clients"
rstCurr.Open strSQL, cnn, adOpenStatic, adLockPessimistic


Do While Not (rstCurr.EOF)
nomCli(i) = rstCurr![nomCli]
X(i) = rstCurr![XCli]
Y(i) = rstCurr![YCli]
i = i + 1
        rstCurr.moveNext
Loop

Mais le problème est que jai un message d'eurreur "Type défini par l'utilisateur non défini"
lorsque jai debeugue je trouve que le problème est dans "ADOBD.Connection"
est ce que vous pouvez maider svp.

Un problème = des solutions
programation .....

3 réponses

Messages postés
231
Date d'inscription
mercredi 27 avril 2005
Statut
Membre
Dernière intervention
10 juin 2009

c'est bon j'ai trouvé où il été le problème.
en faite, dans la feuille de code, il faillait que je rejoute aux references la librairie ADO Merci bcp.
mais j'ai pas encord resolut le problème apparament jon' ai un autre 

Un problème = des solutions
programation .....
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
73
ADODB   pas ADOBD

Renfield
Admin CodeS-SourceS- MVP Visual Basic
Messages postés
231
Date d'inscription
mercredi 27 avril 2005
Statut
Membre
Dernière intervention
10 juin 2009

oui merci ta raison c'est adobd.


mais meme si je change la synthaxe, jai toujours le meme message d'erreur.


pq moi en faite ce que code je l'ai ecrit dans feuille VBA d'excel.

Un problème = des solutions
programation .....