ADODC1.RECORDSET.FIND
noisy
-
28 juin 2001 à 10:57
redgoblin Messages postés 1 Date d'inscription vendredi 10 mai 2002 Statut Membre Dernière intervention 10 mai 2002 - 10 mai 2002 à 21:33
redgoblin Messages postés 1 Date d'inscription vendredi 10 mai 2002 Statut Membre Dernière intervention 10 mai 2002 - 10 mai 2002 à 21:33
A voir également:
- Could not find the sims data directory
- Adodc1 ✓ - Forum Visual Basic
- Problème en ADODC.recordset.find - Forum Visual Basic
- Adodc - Forum Visual Basic 6
- Recordset.find ✓ - Forum C# / .NET
1 réponse
redgoblin
Messages postés
1
Date d'inscription
vendredi 10 mai 2002
Statut
Membre
Dernière intervention
10 mai 2002
10 mai 2002 à 21:33
10 mai 2002 à 21:33
j'ai le même pb... Si jamais tu trouves une solution, e-mail moi svp ...
Sinon, j'ai peut-être une autre solution, mais qui n'est pas sans poser quelques pb, notamment au niveau du recordset.movenext, last first et autres du même genre.... Je te file mon code pour une requte multi critère au cas où, mais gaf' au pb ci-dessus ...
merci d'avance.
A+.
Goblin.
##
Option Explicit
Dim rcord As ADODB.Recordset
Dim cnect As ADODB.Connection
'variable global pour la saisie de la requete de base du recordset
Dim sqlG As String
Private Sub cmdquitter_Click()
Unload Me
cnect.Close
Set rcord = Nothing
End Sub
Private Sub cmdrech_Click()
'declaration de la variable locale de recherche sqlR
Dim sqlR As String
'ouverture d'un jeu d'enregistrements (recordset) local
Set rcord = New ADODB.Recordset ' tout le pb est là je crois ... le rcord.movenext fonctionne, mais pas sans generer des erreurs qui ne se voit pas à l'execution sauf message box c'est comme ça que je l'ai vu. Par contre pour le rcord.move last c'est à chier.
If ((txtfamille <> "") And (txtgenre <> "")) Then
'on affine la requete
sqlR = sqlG & "WHERE famille=" & "'" & txtfamille.Text & "'"
sqlR = sqlR & "AND genre=" & "'" & txtgenre.Text & "'"
'on ouvre l'objet recordset à l'aide de la requete affinée.
rcord.Open sqlR, cnect
'mise à jour des différents champs
txtfamille = rcord!famille
txtgenre = rcord!genre
txtespece = rcord!espece
txtncum = rcord!nom_commun
End If
End Sub
Private Sub cmdsuppr_Click()
rcord.Delete
End Sub
Private Sub Command1_Click()
On Error GoTo Err
rcord.MoveNext
If (rcord.EOF Or rcord.BOF) Then
Beep
rcord.MoveLast
End If
txtfamille = rcord!famille
txtgenre = rcord!genre
txtespece = rcord!espece
txtncum = rcord!nom_commun
Err:
MsgBox "Aucune recherche n'a été effectué !!! "
End Sub
Private Sub Form_Load()
Set cnect = New ADODB.Connection
cnect.Provider = "Microsoft.Jet.Oledb.4.0"
cnect.ConnectionString = "c:\SYNADOC\Synadoc.mdb"
cnect.Open
sqlG = "SELECT [plante].[famille], [plante].[genre], [plante].[espece], [nom_commun].[nom_commun] FROM nom_commun INNER JOIN (plante INNER JOIN plante_nom_commun ON [plante].[id_plante]=[plante_nom_commun].[id_plte_nom_commun]) ON [nom_commun].[id_nomcommun]=[plante_nom_commun].[id_nom_commun]"
End Sub
##
j'epere que ça t'auras au moins donner des idées ... :)
Sinon, j'ai peut-être une autre solution, mais qui n'est pas sans poser quelques pb, notamment au niveau du recordset.movenext, last first et autres du même genre.... Je te file mon code pour une requte multi critère au cas où, mais gaf' au pb ci-dessus ...
merci d'avance.
A+.
Goblin.
##
Option Explicit
Dim rcord As ADODB.Recordset
Dim cnect As ADODB.Connection
'variable global pour la saisie de la requete de base du recordset
Dim sqlG As String
Private Sub cmdquitter_Click()
Unload Me
cnect.Close
Set rcord = Nothing
End Sub
Private Sub cmdrech_Click()
'declaration de la variable locale de recherche sqlR
Dim sqlR As String
'ouverture d'un jeu d'enregistrements (recordset) local
Set rcord = New ADODB.Recordset ' tout le pb est là je crois ... le rcord.movenext fonctionne, mais pas sans generer des erreurs qui ne se voit pas à l'execution sauf message box c'est comme ça que je l'ai vu. Par contre pour le rcord.move last c'est à chier.
If ((txtfamille <> "") And (txtgenre <> "")) Then
'on affine la requete
sqlR = sqlG & "WHERE famille=" & "'" & txtfamille.Text & "'"
sqlR = sqlR & "AND genre=" & "'" & txtgenre.Text & "'"
'on ouvre l'objet recordset à l'aide de la requete affinée.
rcord.Open sqlR, cnect
'mise à jour des différents champs
txtfamille = rcord!famille
txtgenre = rcord!genre
txtespece = rcord!espece
txtncum = rcord!nom_commun
End If
End Sub
Private Sub cmdsuppr_Click()
rcord.Delete
End Sub
Private Sub Command1_Click()
On Error GoTo Err
rcord.MoveNext
If (rcord.EOF Or rcord.BOF) Then
Beep
rcord.MoveLast
End If
txtfamille = rcord!famille
txtgenre = rcord!genre
txtespece = rcord!espece
txtncum = rcord!nom_commun
Err:
MsgBox "Aucune recherche n'a été effectué !!! "
End Sub
Private Sub Form_Load()
Set cnect = New ADODB.Connection
cnect.Provider = "Microsoft.Jet.Oledb.4.0"
cnect.ConnectionString = "c:\SYNADOC\Synadoc.mdb"
cnect.Open
sqlG = "SELECT [plante].[famille], [plante].[genre], [plante].[espece], [nom_commun].[nom_commun] FROM nom_commun INNER JOIN (plante INNER JOIN plante_nom_commun ON [plante].[id_plante]=[plante_nom_commun].[id_plte_nom_commun]) ON [nom_commun].[id_nomcommun]=[plante_nom_commun].[id_nom_commun]"
End Sub
##
j'epere que ça t'auras au moins donner des idées ... :)