Pro de recherche ds Access 2000 en Vb

Signaler
Messages postés
1
Date d'inscription
vendredi 27 décembre 2002
Statut
Membre
Dernière intervention
5 janvier 2003
-
Messages postés
562
Date d'inscription
dimanche 16 décembre 2001
Statut
Modérateur
Dernière intervention
26 décembre 2007
-
'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

1 réponse

Messages postés
562
Date d'inscription
dimanche 16 décembre 2001
Statut
Modérateur
Dernière intervention
26 décembre 2007
1
il ne fo pas utiliser de fonctions vb dans ta requete sql : enleve tous les cstr...
@+
0