Lire une BD à partir dEXCELRésolu

Question

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 .....

h_adil · Accepted Answer

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 .....

Renfield · Answer

ADODB   pas ADOBD

Renfield
Admin CodeS-SourceS- MVP Visual Basic

h_adil · Answer

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 .....

Lire une BD à partir dEXCEL

3 réponses

Votre réponse