Pro de recherche ds Access 2000 en Vb

brnan Messages postés 1 Date d'inscription vendredi 27 décembre 2002 Statut Membre Dernière intervention 5 janvier 2003 - 5 janv. 2003 à 10:12
PatriceVB Messages postés 562 Date d'inscription dimanche 16 décembre 2001 Statut Modérateur Dernière intervention 26 décembre 2007 - 5 janv. 2003 à 11:37
'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

PatriceVB Messages postés 562 Date d'inscription dimanche 16 décembre 2001 Statut Modérateur Dernière intervention 26 décembre 2007
5 janv. 2003 à 11:37
il ne fo pas utiliser de fonctions vb dans ta requete sql : enleve tous les cstr...
@+
0
Rejoignez-nous