base mysql

[mickael_one]

Salut le forum

J'ai un problème de retour de base mysql !!
ma macro est du style :

Dim Cnx As Connection, requete As String, resultat As Recordset
'
Set Cnx = CreateObject('ADODB.Connection')
Cnx.ConnectionString = 'table;'
Cnx.Open
'
requete = 'SELECT * FROM conges WHERE incidence='1''
Set resultat = Cnx.Execute(requete)
If (Not resultat.EOF) Then
for i=0 to resultat.RecordCount
'
'et là je fais plein de truc super bien
'
next i
end if

Mon problème est que mon RecordCount reste toujours à -1 quelque soit le nombre de résultat !!! 🙁 Donc en fait, ça fonctionne pour le premier résultat trouvé, mais ça ne boucle pas ! Savez vous pourquoi ?

Merci beaucoup

 

[Enzobob]

Bonsoir as-tu essayé la méthode?

Do While Not resultat.EOF

là tu fais plein de truc super bien

resultat.MoveNext
loop

amitiés

 

[MichelXld]

bonjour Mickael_one , bonjour Enzobob

tu trouveras dans ce lien quelques infos sur la propriéré RecordCount

Lien supprimé



bonne journée
MichelXld

 

[mickael_one]

bonjour Enzobob, MichelXld, le forum,

D'abord, merci Enzobob, mais le problème ne vient pas de la boucle mais du fait que le recordcount reste à -1.

MichelXLD, j'ai été voir ton lien et après une matinée a essayer tout, dans tous les sens, je n'y arrive pas ! :unsure:

j'ai essayé :

Dim Cnx As Connection, requete As String, resultat As Recordset

requete = 'SELECT * FROM table WHERE incidence='1''
Set Cnx = CreateObject('ADODB.Connection')
Cnx.ConnectionString = 'table;'
With Cnx
.ActiveConnection = Cnx
.Open requete, , adOpenStatic, adLockOptimistic, adCmdText
End With
Set resultat = Cnx.Execute(requete)

Il me dit que le nombre d'argument est incorect ou affectation incorect pour le .open requete...

j'ai essayé :

Dim Cnx As Connection, requete As String, resultat As Recordset

requete = 'SELECT * FROM table WHERE incidence='1''
Set Cnx = CreateObject('ADODB.Connection')
Cnx.ConnectionString = 'table;'
With resultat
.ActiveConnection = Cnx
.Open requete, , adOpenStatic, adLockOptimistic, adCmdText
End With
Set resultat = Cnx.Execute(requete)

là, il me dit que Variable objet ou variable de bloc With non défini !

Ca doit te paraitre évident mais moi je nage un peu (beaucoup)
Bref, si tu peux encore m'aider un petit peu, ça serait très sympa !
Merci beaucoup

 

[Enzobob]

Bonjour mickael_one et le forum

tu peux essayer ca je l'utilise assez souvent cela marche bien, par contre pense à rajouter la reference à ado dans vba.
pour ton deuxieme exemple je crois que le problème viens simplement du fait que la connection à la base ne c'est pas faite.

Private Sub MaConnection()
Dim Cnx As ADODB.Connection
Dim requete As String

Set Cnx = New ADODB.Connection
requete = 'driver={Microsoft Access Driver (*.mdb)};dbq=' 'ta base de données
Cnx.Open requete
End Sub

Private Sub MaRequete()
Dim resultat As ADODB.Recordset

Call MaConnection
Set resultat = New ADODB.Recordset
RsDotation.Open 'SELECT * FROM table WHERE incidence = '1 ;', Cnx, adOpenStatic, adLockOptimistic, adCmdText
'ensuite ta requete d'affichage
End Sub
Enjoy

 

[Enzobob]

Enzobob écrit:

Bonjour mickael_one et le forum

tu peux essayer ca je l'utilise assez souvent cela marche bien, par contre pense à rajouter la reference à ado dans vba.
pour ton deuxieme exemple je crois que le problème viens simplement du fait que la connection à la base ne c'est pas faite.

Private Sub MaConnection()
Dim Cnx As ADODB.Connection
Dim requete As String

Set Cnx = New ADODB.Connection
requete = 'driver={Microsoft Access Driver (*.mdb)};dbq=' 'ta base de données
Cnx.Open requete
End Sub

Private Sub MaRequete()
Dim resultat As ADODB.Recordset

Call MaConnection
Set resultat = New ADODB.Recordset
resultat.Open 'SELECT * FROM table WHERE incidence = '1 ;', Cnx, adOpenStatic, adLockOptimistic, adCmdText
'ensuite ta requete d'affichage
End Sub
Enjoy

 

[Enzobob]

re
Je m'étais un peu plante dans la variable open dans la procedure MaRequete. vous aurez réctifier de vous même j'en suis sûr.
😱