Aide sur ADO
Résolu
harmedevil
Messages postés
16
Date d'inscription
samedi 16 octobre 2004
Statut
Membre
Dernière intervention
16 septembre 2008
-
15 sept. 2008 à 21:51
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 16 sept. 2008 à 17:09
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 16 sept. 2008 à 17:09
A voir également:
- Vba byref argument type mismatch
- Asp.net ado - Forum ASP.NET
- Ado access - Conseils pratiques -Visual Basic / VB.NET
- Ado recordset ✓ - Forum Visual Basic 6
- Ado connection - Forum Delphi / Pascal
- Ado sql - Forum Visual Basic 6
45 réponses
LIBRE_MAX
Messages postés
1402
Date d'inscription
mardi 1 mai 2007
Statut
Membre
Dernière intervention
7 octobre 2012
6
16 sept. 2008 à 02:00
16 sept. 2008 à 02:00
Ok !
Maintenant fais exactement ceci. Et à la lettre !
Public Function RECHERCHER(xValeur As Variant, xChamp As String) _
As Boolean
rse.MoveFirst
rechmat = False
Do While Not rse.EOF
If x = rse.Fields(xChp) Then
rechmat = True
Exit Function
End If
rse.MoveNext
Wend
End Function
Ensuite places un ButtnCommand dans ton formulaire
et nommes le cmdRecherche
Dans l' événement Click
Private Sub cmdRecherche
Dim Valeur As Variant
Valeur=Text(1).Text
If Rechercher(Valeur,"Matricule")=True Then
MsgBox "Trouvé"
Else
MsgBox " Introuvable"
End If
End Sub
Si ça marchen fais une autre recherche dans le champ Nm
Private Sub cmdRecherche
Dim Valeur As Variant
Valeur=Text(1).Text
If Rechercher(Valeur,"Nom")=True Then
MsgBox "Trouvé"
Else
MsgBox " Introuvable"
End If
End Sub
<hr />
[] Ce qui va sans dire. va mieux en le disant.
<hr />
Maintenant fais exactement ceci. Et à la lettre !
Public Function RECHERCHER(xValeur As Variant, xChamp As String) _
As Boolean
rse.MoveFirst
rechmat = False
Do While Not rse.EOF
If x = rse.Fields(xChp) Then
rechmat = True
Exit Function
End If
rse.MoveNext
Wend
End Function
Ensuite places un ButtnCommand dans ton formulaire
et nommes le cmdRecherche
Dans l' événement Click
Private Sub cmdRecherche
Dim Valeur As Variant
Valeur=Text(1).Text
If Rechercher(Valeur,"Matricule")=True Then
MsgBox "Trouvé"
Else
MsgBox " Introuvable"
End If
End Sub
Si ça marchen fais une autre recherche dans le champ Nm
Private Sub cmdRecherche
Dim Valeur As Variant
Valeur=Text(1).Text
If Rechercher(Valeur,"Nom")=True Then
MsgBox "Trouvé"
Else
MsgBox " Introuvable"
End If
End Sub
<hr />
[] Ce qui va sans dire. va mieux en le disant.
<hr />
LIBRE_MAX
Messages postés
1402
Date d'inscription
mardi 1 mai 2007
Statut
Membre
Dernière intervention
7 octobre 2012
6
16 sept. 2008 à 02:03
16 sept. 2008 à 02:03
rectifies
RECHERCHER = False
Do While Not rse.EOF
If xValeur= rse.Fields(xChamp) Then
RECHERCHER = True
Exit Function
End If
rse.MoveNext
Wend
End Function
<hr />
[] Ce qui va sans dire. va mieux en le disant.
<hr />
RECHERCHER = False
Do While Not rse.EOF
If xValeur= rse.Fields(xChamp) Then
RECHERCHER = True
Exit Function
End If
rse.MoveNext
Wend
End Function
<hr />
[] Ce qui va sans dire. va mieux en le disant.
<hr />
PCPT
Messages postés
13272
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
47
15 sept. 2008 à 22:41
15 sept. 2008 à 22:41
Salut,
EDIT....
tu as reposté mais ce n'était pas plus lisible, je reposte ton message ;)
<hr size="2" width="100%" />
Bonjour à tous ^^, je vous explique mon problème!
Je suis débutant sur ADO ...
Dans un projet je dois parcourir un recordset et faire une reherche voila comment g procédé:
g crée une fonction dans le module pour pouvoir l'appeler dans tout le projet comme suit:
records est le recordset et x l'élément recherché
Public Function
rechmat(records, x)
As Boolean
records.MoveFirst rechmat = False
While records.EOF = False
If Trim(x) = Trim(records!Matricule) Then
rechmat = True
Exit Function
Else
records.MoveNext
End If
Wend
End Function
cela marche tres bien cependant je voudrais faire une fonction qui puisse me servir pour n'importe quel element, po seulement "Matricule"!!!!
g essayé ceci mais ca ne marche po :
Public Function
rechmat(records, x, elmt)
As
Boolean
records.MoveFirst
rechmat = False
While records.EOF = False
If Trim(x) = Trim(records!elmt) Then
rechmat = True
Exit Function
Else
records.MoveNext
End If
Wend
End Function
Si quelqu'un a une petite idée ^^ merci d'avance.
<hr size="2" width="100%" />
tu aurais pu faire un effort de français....
le TYPAGE n'est pas facultatif.....
si ELMT est un STRING, ce n'est pas
records!elmt
mais
records.fields(elmt).value
EDIT....
tu as reposté mais ce n'était pas plus lisible, je reposte ton message ;)
<hr size="2" width="100%" />
Bonjour à tous ^^, je vous explique mon problème!
Je suis débutant sur ADO ...
Dans un projet je dois parcourir un recordset et faire une reherche voila comment g procédé:
g crée une fonction dans le module pour pouvoir l'appeler dans tout le projet comme suit:
records est le recordset et x l'élément recherché
Public Function
rechmat(records, x)
As Boolean
records.MoveFirst rechmat = False
While records.EOF = False
If Trim(x) = Trim(records!Matricule) Then
rechmat = True
Exit Function
Else
records.MoveNext
End If
Wend
End Function
cela marche tres bien cependant je voudrais faire une fonction qui puisse me servir pour n'importe quel element, po seulement "Matricule"!!!!
g essayé ceci mais ca ne marche po :
Public Function
rechmat(records, x, elmt)
As
Boolean
records.MoveFirst
rechmat = False
While records.EOF = False
If Trim(x) = Trim(records!elmt) Then
rechmat = True
Exit Function
Else
records.MoveNext
End If
Wend
End Function
Si quelqu'un a une petite idée ^^ merci d'avance.
<hr size="2" width="100%" />
tu aurais pu faire un effort de français....
le TYPAGE n'est pas facultatif.....
si ELMT est un STRING, ce n'est pas
records!elmt
mais
records.fields(elmt).value
LIBRE_MAX
Messages postés
1402
Date d'inscription
mardi 1 mai 2007
Statut
Membre
Dernière intervention
7 octobre 2012
6
15 sept. 2008 à 22:52
15 sept. 2008 à 22:52
"je voudrais faire une fonction qui puisse me servir pour n'importe quel element"
Il suddit alors de passer le nom du champ en âramètre
Public Function rechmat(records As RecordSet, cChp As String , x As String) As Boolean
records.MoveFirst
rechmat = False
While records.EOF = False
If Trim(x) = Trim(records.Fields(xChp)) Then
rechmat = True
Exit Function
Else
records.MoveNext
End If
Wend
End Function
Seulement voilà :
Cet exemple n' est valable que pour un champ type string.
Pour avoir une function valable pur n' importe quel type de champ,
Il faudra passr l' argument x en variant et faire abstractio
de Trim..
Public Function rechmat(records As RecordSet, cChp As String, x As Variant) As Boolean
records.MoveFirst
rechmat = False
While records.EOF = False
If x = records.Fields(xChp) Then
rechmat = True
Exit Function
End If
records.MoveNext
Wend
End Function
Autre façon de faire: Utiliser le numéro ordinal du champ
au lieu de son nom.
Public Function rechmat(records As RecordSet, cChp As Integer x As Variant) As Boolean
records.MoveFirst
rechmat = False
While records.EOF = False
If x = records.Fields(xChp) Then
rechmat = True
Exit Function
End If
records.MoveNext
Wend
End Function
<hr />
[] Ce qui va sans dire. va mieux en le disant.
<hr />
Il suddit alors de passer le nom du champ en âramètre
Public Function rechmat(records As RecordSet, cChp As String , x As String) As Boolean
records.MoveFirst
rechmat = False
While records.EOF = False
If Trim(x) = Trim(records.Fields(xChp)) Then
rechmat = True
Exit Function
Else
records.MoveNext
End If
Wend
End Function
Seulement voilà :
Cet exemple n' est valable que pour un champ type string.
Pour avoir une function valable pur n' importe quel type de champ,
Il faudra passr l' argument x en variant et faire abstractio
de Trim..
Public Function rechmat(records As RecordSet, cChp As String, x As Variant) As Boolean
records.MoveFirst
rechmat = False
While records.EOF = False
If x = records.Fields(xChp) Then
rechmat = True
Exit Function
End If
records.MoveNext
Wend
End Function
Autre façon de faire: Utiliser le numéro ordinal du champ
au lieu de son nom.
Public Function rechmat(records As RecordSet, cChp As Integer x As Variant) As Boolean
records.MoveFirst
rechmat = False
While records.EOF = False
If x = records.Fields(xChp) Then
rechmat = True
Exit Function
End If
records.MoveNext
Wend
End Function
<hr />
[] Ce qui va sans dire. va mieux en le disant.
<hr />
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
harmedevil
Messages postés
16
Date d'inscription
samedi 16 octobre 2004
Statut
Membre
Dernière intervention
16 septembre 2008
15 sept. 2008 à 23:04
15 sept. 2008 à 23:04
Je suis désolé j'utilise Opera c'est pourquoi je ne voyais pas le plugin de word...
Je tiens a vous remércier d'avoir réponsu ci vite c'est très gentil ^^
Je vais peut etre abuser mais pour l'appelle je fais comment parsqu'il me sort une erreur " Byref argument type mismatch" !!
Je tiens a vous remércier d'avoir réponsu ci vite c'est très gentil ^^
Je vais peut etre abuser mais pour l'appelle je fais comment parsqu'il me sort une erreur " Byref argument type mismatch" !!
LIBRE_MAX
Messages postés
1402
Date d'inscription
mardi 1 mai 2007
Statut
Membre
Dernière intervention
7 octobre 2012
6
16 sept. 2008 à 00:34
16 sept. 2008 à 00:34
Supposons que tu cherches le Matricule 208 et que ta fonctio s' appelle REXCHERCHER
tU L4 APPELLE COMME CECI/
iF rECHERCHER(rs,"Matricule",208)=True Yjen
<Traitement>
Else
MsgBox "...Introuvable !"
End If
Remarques:
Si ton recordset est publique, il n' est pas necessaire
de le passer en paramçtre.
Essayes de construire ta fonction ainsi:
Public Function RECHERCHER(XChp As String, x As Variant)
As Boolean
<hr />
[] Ce qui va sans dire. va mieux en le disant.
<hr />
tU L4 APPELLE COMME CECI/
iF rECHERCHER(rs,"Matricule",208)=True Yjen
<Traitement>
Else
MsgBox "...Introuvable !"
End If
Remarques:
Si ton recordset est publique, il n' est pas necessaire
de le passer en paramçtre.
Essayes de construire ta fonction ainsi:
Public Function RECHERCHER(XChp As String, x As Variant)
As Boolean
<hr />
[] Ce qui va sans dire. va mieux en le disant.
<hr />
LIBRE_MAX
Messages postés
1402
Date d'inscription
mardi 1 mai 2007
Statut
Membre
Dernière intervention
7 octobre 2012
6
16 sept. 2008 à 00:38
16 sept. 2008 à 00:38
Désolé pour les erreurs de frappes, mais j' ai du mal en ce moment à voir ce que je tapes !
<hr />
[] Ce qui va sans dire. va mieux en le disant.
<hr />
<hr />
[] Ce qui va sans dire. va mieux en le disant.
<hr />
harmedevil
Messages postés
16
Date d'inscription
samedi 16 octobre 2004
Statut
Membre
Dernière intervention
16 septembre 2008
16 sept. 2008 à 00:47
16 sept. 2008 à 00:47
Oh c'est déja un grand effort de prendre le temps de lire mes bétises!!! :)
c encore trs gentil a toi ... cempendant l'interetde ma fonction et de comparer par exemple le matricule(qui sera sais au clavier) avec un autre qui fera parti de l'élément Matricule d'une table.
Private Sub Text1_Change(Index As Integer)
If rechmat(rse, Text1(1), Matricule) = True Then
nom.Text = rse!nom
End If
End Sub
rse: Le recordset
text1(1): Le texte a comparer (Je sais ca va sans dire... mas je l'écris vu ta sinatr lol)
Matricule: c'est l'élément avec lequel sera comparé le text1(1)
c encore trs gentil a toi ... cempendant l'interetde ma fonction et de comparer par exemple le matricule(qui sera sais au clavier) avec un autre qui fera parti de l'élément Matricule d'une table.
Private Sub Text1_Change(Index As Integer)
If rechmat(rse, Text1(1), Matricule) = True Then
nom.Text = rse!nom
End If
End Sub
rse: Le recordset
text1(1): Le texte a comparer (Je sais ca va sans dire... mas je l'écris vu ta sinatr lol)
Matricule: c'est l'élément avec lequel sera comparé le text1(1)
LIBRE_MAX
Messages postés
1402
Date d'inscription
mardi 1 mai 2007
Statut
Membre
Dernière intervention
7 octobre 2012
6
16 sept. 2008 à 00:47
16 sept. 2008 à 00:47
l' erreur sur le type peut provenir de la variable x.
qu' Il faut la déclarer Variant.
Exemple
Dim x As Variant
x=208
iF rECHERCHER(rs,"Matricule",x)=True Then
<Traitement>
Else
MsgBox "...Introuvable !"
End If
<hr />
[] Ce qui va sans dire. va mieux en le disant.
<hr />
qu' Il faut la déclarer Variant.
Exemple
Dim x As Variant
x=208
iF rECHERCHER(rs,"Matricule",x)=True Then
<Traitement>
Else
MsgBox "...Introuvable !"
End If
<hr />
[] Ce qui va sans dire. va mieux en le disant.
<hr />
harmedevil
Messages postés
16
Date d'inscription
samedi 16 octobre 2004
Statut
Membre
Dernière intervention
16 septembre 2008
16 sept. 2008 à 00:50
16 sept. 2008 à 00:50
des petites fautes de frappe donc je le réecris: :p
Oh c'est déja un grand effort de prendre le temps de lire mes bétises!!! :)
c encore très gentil a toi ... cependant l'interet de ma fonction est de comparer par exemple le matricule(qui sera saisi au clavier) avec un autre qui fera parti de l'élément Matricule d'une table.
Private Sub Text1_Change(Index As Integer)
If rechmat(rse, Text1(1), Matricule) = True Then
nom.Text = rse!nom
End If
End Sub
rse: Le recordset
text1(1): Le texte a comparer (Je sais ca va sans dire... mas je l'écris vu ta signature lol)
Matricule: c'est l'élément avec lequel sera comparé le text1(1)
Oh c'est déja un grand effort de prendre le temps de lire mes bétises!!! :)
c encore très gentil a toi ... cependant l'interet de ma fonction est de comparer par exemple le matricule(qui sera saisi au clavier) avec un autre qui fera parti de l'élément Matricule d'une table.
Private Sub Text1_Change(Index As Integer)
If rechmat(rse, Text1(1), Matricule) = True Then
nom.Text = rse!nom
End If
End Sub
rse: Le recordset
text1(1): Le texte a comparer (Je sais ca va sans dire... mas je l'écris vu ta signature lol)
Matricule: c'est l'élément avec lequel sera comparé le text1(1)
LIBRE_MAX
Messages postés
1402
Date d'inscription
mardi 1 mai 2007
Statut
Membre
Dernière intervention
7 octobre 2012
6
16 sept. 2008 à 01:00
16 sept. 2008 à 01:00
dans rechmat(rse, Text1(1), Matricule) tu as intervertit les paramètres
Si ta Fonction est déclarée comme ceci:
rechmat(rse, NomDuChamp, ValeurDuChamp)
L' appelle sera
rechmat(rse, "Matricule", Me.Text1(1).Text)
Mais si ton champ matricyle est numérique, tu dois convertir Text(1à.Text en Integer ou en long avant.
<hr />
[] Ce qui va sans dire. va mieux en le disant.
<hr />
Si ta Fonction est déclarée comme ceci:
rechmat(rse, NomDuChamp, ValeurDuChamp)
L' appelle sera
rechmat(rse, "Matricule", Me.Text1(1).Text)
Mais si ton champ matricyle est numérique, tu dois convertir Text(1à.Text en Integer ou en long avant.
<hr />
[] Ce qui va sans dire. va mieux en le disant.
<hr />
LIBRE_MAX
Messages postés
1402
Date d'inscription
mardi 1 mai 2007
Statut
Membre
Dernière intervention
7 octobre 2012
6
16 sept. 2008 à 01:03
16 sept. 2008 à 01:03
je parlais de moi pour les petites fautes de frappe ...
Je suis en ce moment dans un endroit mal éclairé.
<hr />
[] Ce qui va sans dire. va mieux en le disant.
<hr />
Je suis en ce moment dans un endroit mal éclairé.
<hr />
[] Ce qui va sans dire. va mieux en le disant.
<hr />
harmedevil
Messages postés
16
Date d'inscription
samedi 16 octobre 2004
Statut
Membre
Dernière intervention
16 septembre 2008
16 sept. 2008 à 01:09
16 sept. 2008 à 01:09
Je te montre ma fonction etma declaration mainenant:
Public Function rechmat(records As Recordset, x As Variant, y As String) As Boolean
records.MoveFirst
rechmat = False
While records.EOF = False
If x = records.Fields(y) Then
rechmat = True
Exit Function
Else
records.MoveNext
End If
Wend
End Function
Private Sub Text1_Change(ByRef Index As Integer)
If rechmat(rse, Text1(1).Text, "Matricule") = True Then
nom.Text = rse!nom
End If
End Sub
J'ai maintenant une erreur "type mismatch sur la ligne: " If rechmat(rse, Text1(1).Text, "Matricule") = True Then"
Désolé de prendre de votre temps
Public Function rechmat(records As Recordset, x As Variant, y As String) As Boolean
records.MoveFirst
rechmat = False
While records.EOF = False
If x = records.Fields(y) Then
rechmat = True
Exit Function
Else
records.MoveNext
End If
Wend
End Function
Private Sub Text1_Change(ByRef Index As Integer)
If rechmat(rse, Text1(1).Text, "Matricule") = True Then
nom.Text = rse!nom
End If
End Sub
J'ai maintenant une erreur "type mismatch sur la ligne: " If rechmat(rse, Text1(1).Text, "Matricule") = True Then"
Désolé de prendre de votre temps
harmedevil
Messages postés
16
Date d'inscription
samedi 16 octobre 2004
Statut
Membre
Dernière intervention
16 septembre 2008
16 sept. 2008 à 01:16
16 sept. 2008 à 01:16
attends un peu!!! t marocain??
LIBRE_MAX
Messages postés
1402
Date d'inscription
mardi 1 mai 2007
Statut
Membre
Dernière intervention
7 octobre 2012
6
16 sept. 2008 à 01:24
16 sept. 2008 à 01:24
changes le nom de ton recordset.
records est un mot réservé.
Public Function rechmat(rs As Recordset, x As Variant, y As String) As Boolean
Private Sub Text1_Change(ByRef Index As Integer)
Dim x As Variant
Si tin champ est de type String
x=Text(1).Text
Si tin champ est de type Integer
x=CInt(Text(1).Text)
If rechmat(rse, x, "Matricule") = True Then
nom.Text = rse!nom
End If
End Sub
<hr />
[] Ce qui va sans dire. va mieux en le disant.
<hr />
records est un mot réservé.
Public Function rechmat(rs As Recordset, x As Variant, y As String) As Boolean
Private Sub Text1_Change(ByRef Index As Integer)
Dim x As Variant
Si tin champ est de type String
x=Text(1).Text
Si tin champ est de type Integer
x=CInt(Text(1).Text)
If rechmat(rse, x, "Matricule") = True Then
nom.Text = rse!nom
End If
End Sub
<hr />
[] Ce qui va sans dire. va mieux en le disant.
<hr />
harmedevil
Messages postés
16
Date d'inscription
samedi 16 octobre 2004
Statut
Membre
Dernière intervention
16 septembre 2008
16 sept. 2008 à 01:38
16 sept. 2008 à 01:38
Je viens d'esayer ta solution qui est tout à fit logique mais j'ai toujours l'erreur "type mismatch" sur la ligne "If rechmat(rse, x, "Matricule") = True Then". :s :s
LIBRE_MAX
Messages postés
1402
Date d'inscription
mardi 1 mai 2007
Statut
Membre
Dernière intervention
7 octobre 2012
6
16 sept. 2008 à 01:44
16 sept. 2008 à 01:44
Reprenons:
Comment se nommes ton recordset ?
Est-il publique ?
<hr />
[] Ce qui va sans dire. va mieux en le disant.
<hr />
Comment se nommes ton recordset ?
Est-il publique ?
<hr />
[] Ce qui va sans dire. va mieux en le disant.
<hr />
harmedevil
Messages postés
16
Date d'inscription
samedi 16 octobre 2004
Statut
Membre
Dernière intervention
16 septembre 2008
16 sept. 2008 à 01:48
16 sept. 2008 à 01:48
wiwi il est public et il se nomme "rse"!
harmedevil
Messages postés
16
Date d'inscription
samedi 16 octobre 2004
Statut
Membre
Dernière intervention
16 septembre 2008
16 sept. 2008 à 02:13
16 sept. 2008 à 02:13
Merci pour ton aide ^^ ca marche!! J'essairai de l'adapter celon mon cas !! merci encore et désolé d'avoir pris de ton temps :) llah ikter khirek !!!
LIBRE_MAX
Messages postés
1402
Date d'inscription
mardi 1 mai 2007
Statut
Membre
Dernière intervention
7 octobre 2012
6
16 sept. 2008 à 02:23
16 sept. 2008 à 02:23
A la bonheur !
Et à la prochaine, inch ' ALLAH..
<hr />
[] Ce qui va sans dire. va mieux en le disant.
<hr />
Et à la prochaine, inch ' ALLAH..
<hr />
[] Ce qui va sans dire. va mieux en le disant.
<hr />
