piervs
Messages postés26Date d'inscriptionvendredi 18 avril 2003StatutMembreDernière intervention 4 mai 2005
-
24 avril 2003 à 11:19
msohet
Messages postés76Date d'inscriptionmardi 14 janvier 2003StatutMembreDernière intervention 3 mai 2005
-
24 avril 2003 à 11:52
j'essaye de faire un recorsdet pour faire une requete en vb, or ça ne marche que si la requête est simple, c'est à dire sans inner join, autrement il m'indique une erreur: trop peu de paramètres; dans "set resultat.base.openrecordset (requete)"
piervs
Messages postés26Date d'inscriptionvendredi 18 avril 2003StatutMembreDernière intervention 4 mai 2005 24 avril 2003 à 11:47
voici le code, je'utilsie dao car je ne peux pas utiliser adodc
Private Sub OK_Click()
Dim champ1 As String
Dim champ2 As String
Dim chqsl As String
Dim base As Database
Dim resultat As Recordset
champ1 = requete.Text
Set base = OpenDatabase("C:\Documents and Settings\asavril\Bureau\basepasfinie.mdb ")
chqsl = " SELECT joursfermeturescafe.joursfermeture"
chqsl = chqsl & " FROM joursfermeturescafe INNER JOIN nomcafe ON joursfermeturescafe.cafe=nomcafe.identifiantcafe"
chqsl = chqsl & " WHERE nomcafe.nom='" & (champ1) & "'"
Set resultat = base.OpenRecordset(chqsl, dbOpenDynaset)
resultat.MoveFirst
Do Until resultat.EOF
List1.AddItem (resultat!adresse)
resultat.MoveNext
Loop
End Sub