pro de recherche ds Access 2000 en Vb

Question

'Voici mon bout de code qui ne fonctionne pas

Option explicit

Dim cnnADO As New ADODB.Connection
Dim cmdADO As New ADODB.Command
Dim rsADO As New ADODB.Recordset

Private Sub Form_Load()

Ici j ouvre un fichier .txt et je lis ce qu il y a dedans ligne par ligne et je les stokes ds un tableau 

Do Until EOF(ifile)

comptligne =   comptligne + 1
Line Input #ifile, sValeur
bi = Replace(sValeur, " ", "")

b = Split(bi, vbTab)
Num_Min = b(0)

b = Split(bi, vbTab)
Num_Arp = b(1)

b = Split(bi, vbTab)
Num_Civ = b(2)
    
b = Split(bi, vbTab)
Num_Rue = b(3)
    

  ma connexion avec ma BD access 2000         

cnnADO.Provider   = "Microsoft.Jet.OLEDB.4.0"
cnnADO.ConnectionString =   "C:\WINDOWS\Bureau\Des_rueVB\GroupGiroux.mdb"
cnnADO.Open

cmdADO.ActiveConnection = cnnADO

  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 ?   

Merci d avance

Brnan

PatriceVB · Answer

il ne fo pas utiliser de fonctions vb dans ta requete sql : enleve tous les cstr...
@+

Pro de recherche ds Access 2000 en Vb

1 réponse