ADODB et FIND

Question

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

lolokun · Answer

Bonjour,

Tu appelles ta fonction Mysql_Find avec 5 paramètres, or tu ne la déclares qu'avec 4 paramètres..

lolokun · Answer

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

adex91 · Answer

Ok, j'ai vu 

Merci

ADODB et FIND

3 réponses

Votre réponse

Discussions similaires