ADODB et FIND

Signaler
Messages postés
6
Date d'inscription
dimanche 19 août 2007
Statut
Membre
Dernière intervention
31 janvier 2008
-
Messages postés
6
Date d'inscription
dimanche 19 août 2007
Statut
Membre
Dernière intervention
31 janvier 2008
-
Bonjour,

je veux vérifier si un enregistrement existe dans ma base de données :

Dans le 'Form' j'insere les lignes suivantes :

  DataId = Trim$(Text11.Text)
 
  Set Rs = MySQL_Find(Connexion, "*", "dbreferences", "reference", DataId) 

Dans mon fichier MYSQL.bas, j'ai la fonction suivante :

Public Sub MySQL_Find(ByRef MySQL_Conn As ADODB.Connection, ByVal Table As String, ByVal Field1 As String, ByVal Value1 As String)
  
    MySQL_Conn.Execute "FIND FROM `" & Table & Field1 & "` LIKE `" & Value1
 
End Sub

Mais quand je lance l'application, j'ai un message d'erreur :

Erreur de compilation:
Nombre d'arguments incorrect ou affectation de propriété incorrecte

Je ne suis pas un crack en VB6, je cherche quelqu'un pour m'éclairer.

Merci d'avance

3 réponses

Messages postés
1241
Date d'inscription
mardi 10 octobre 2006
Statut
Membre
Dernière intervention
27 août 2013
5
Bonjour,

Tu appelles ta fonction Mysql_Find avec 5 paramètres, or tu ne la déclares qu'avec 4 paramètres..
Messages postés
1241
Date d'inscription
mardi 10 octobre 2006
Statut
Membre
Dernière intervention
27 août 2013
5
En plus, tu peux utiliser directement la méthode rs.find :


Rs.Find "champ Like '"& tontextbox.text & "'

Pour tester le resultat de la recherche:

If Err.Number Or Rs.BOF Or Rs.EOF Then
        Err.Clear
        MsgBox "Il n'existe pas "
        Else
        MsgBox Rs!champ
End If
Messages postés
6
Date d'inscription
dimanche 19 août 2007
Statut
Membre
Dernière intervention
31 janvier 2008

 Ok, j'ai vu

Merci