Jusque la tt semble correct, mais a partir du recordset ici ca ne va plus
Set rsADO = New ADODB.Recordset
rsADO.Open "SELECT cstr(Numero) From Minutes WHERE (cstr(Num_Min)" & Num_Min & " And cstr(Num_Arp) " & Num_Arp & ");", cnnADO, adOpenDynamic, adLockReadOnly
'store = rsADO!CStr(Minutes.Numero)
Do While Not rsADO.EOF
rsADO.MoveNext
Loop
If rsADO.EOF = "" Then
store = G_NORESULTS
Else
store = rsADO!CStr(Numero)
End If
Il n execute pas ma requete et dans store j ai pas de valeur, je crois que le rsADO a un pb y a til quelqu un qui m aider ?
Loop
Close #ifile
dbEffHandler:
End Sub
Supposons que cela fonctionne et que dans store j ai les bonnes valeurs
quel sera le bout de code qu il faut pour se connecter a une BD mysql et ecrire les valeurs Num_Civ et Num_Rue ds les champs appropries ?