cs_cocorico
Messages postés1Date d'inscriptiondimanche 2 mars 2003StatutMembreDernière intervention 5 janvier 2004
-
5 janv. 2004 à 23:10
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 2021
-
6 janv. 2004 à 13:13
cocorico
Bonjour :) ,
Puis-je vous poser 2 questions simples qui ne devraient pas vous prendre beaucoup de temps ?
D'avance , je vous en remercie :big)
1) Comment peut-on remplacer du texte C* par le contenu d'une boîte texte txtfind.text ?
rs.Find "CliNom like 'C*"
rs.Find "CliNom like '&txtfind.text&*'" '??????? :( NE FONCTIONNE PAS
2) En rajoutant une colonne & " " & rs("Localite") cela ne va plus ... "run-time error 3021 ... BOF ou EOF est égal à TRUE ou l'enregistrement actuel a été supprimé"
Private Sub Form_Load()
Set cn = New Connection
cn.Open "DSN=crm"
' Crée un Recordset
' Interroge la Table TALoc
Set rs.ActiveConnection = cn
rs.Open "select [LocID] ,[LocCP],[Localite] from TALoc order by Localite", "DSN=crm"
CmbLoc.Clear
' Remplit la liste
Do While Not rs.EOF
CmbLoc.AddItem rs("LocCP") & " " & rs("Localite") ??????? :( NE FONCTIONNE PAS
rs.MoveNext
Loop
rs.Close
End Sub
Private Sub CmbLoc_Click()
' Crée un Recordset
' Interroge la base (remplace les ' par '')
rs.Open "select [LocCP] , [localite] from TALoc where " & _
"[Localite] = '" & _
CmbLoc.Text & "'", _
"DSN=crm"
lblLocCP = rs("LocCP")
lblLocalite = rs("Localite")
rs.Close
End Sub
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 6 janv. 2004 à 02:37
Salut cocorico
1) Respecte bien les niveaux de "
rs.Find "CliNom like '" & txtfind.text & "'*'"
2) Si le nom de tes champs ne comportent pas d'espaces, les crochets sont superflux.
Avant de faire le Do While, vérifie que rs.Count est bien différent de 0, comme ça tu seras sûr d'avoir des données à extraire.
De plus, la syntaxe rs("LocCP") n'est pas bonne : rs!LocCP
Idem pour rs!Localite