Set rs = db.OpenRecordset(SQLQuery) If (rs.EOF) And (rs.BOF) Then Debug.Print "pas de records" Else rs.MoveFirst While Not rs.EOF For i = 0 To rs.Fields.Count - 1 Debug.Print rs.Fields(i) & " "; Next i Debug.Print rs.MoveNext Wend End If
Set rs = db.OpenRecordset(SQLQuery)
If (rs.EOF) And (rs.BOF) Then
Debug.Print "pas de records"
Else
rs.MoveFirst
While Not rs.EOF
For i = 0 To rs.Fields.Count - 1
Debug.Print rs.Fields(i) & " ";
Next i
Debug.Print
rs.MoveNext
Wend
End If
Set rs = db.OpenRecordset(SQLQuery) If (rs.EOF) And (rs.BOF) Then Debug.Print "pas de records" Else rs.MoveFirst While Not rs.EOF For i = 0 To rs.Fields.Count - 1 Debug.Print rs.Fields(i) & " "; Next i Debug.Print rs.MoveNext Wend End If
Set cn = New ADODB.Connection cn.Provider = "Microsoft.Jet.OLEDB.4.0;" cn.ConnectionString = "Data Source=" & Data_Source & _ ";User Id=;Password=;" cn.Open stSql = "SELECT * FROM Employes WHERE Nom ='" & varNom & _ "' AND Prenom = '" & varPrenom & "'" Set rs = New ADODB.Recordset rs.Open stSql, cn, adOpenDynamic If Not rs.EOF And Not rs.BOF Then With rs .MoveFirst While Not .EOF Debug.Print .Fields("Nom") & " " & .Fields("Prenom") .MoveNext Wend End With End If rs.Close cn.Close
-- Cordialement,
Jacques.
Bonjour gérard,
gérard a écrit :
bonjour
debutant j'ai un peu de mal
ca ne marche pas
SQL = "SELECT *From EMPLOYES WHERE (((EMPLOYeS.NOM)='& varnom & ') AND
((EMPLOYeS.PRENOM)='& varprenom &'));"
RC.OpenRecordset SQL
merci de votre aide
gerard
En complément de la réponse de Jean-Marc, une variante utilisant ADO
(ce qui ne change rien à syntaxe de la requête SQL ;-) ) :
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim stSql As String, Data_Source As String
Dim varNom As String, varPrenom As String
Set cn = New ADODB.Connection
cn.Provider = "Microsoft.Jet.OLEDB.4.0;"
cn.ConnectionString = "Data Source=" & Data_Source & _
";User Id=;Password=;"
cn.Open
stSql = "SELECT * FROM Employes WHERE Nom ='" & varNom & _
"' AND Prenom = '" & varPrenom & "'"
Set rs = New ADODB.Recordset
rs.Open stSql, cn, adOpenDynamic
If Not rs.EOF And Not rs.BOF Then
With rs
.MoveFirst
While Not .EOF
Debug.Print .Fields("Nom") & " " & .Fields("Prenom")
.MoveNext
Wend
End With
End If
rs.Close
cn.Close
Set cn = New ADODB.Connection cn.Provider = "Microsoft.Jet.OLEDB.4.0;" cn.ConnectionString = "Data Source=" & Data_Source & _ ";User Id=;Password=;" cn.Open stSql = "SELECT * FROM Employes WHERE Nom ='" & varNom & _ "' AND Prenom = '" & varPrenom & "'" Set rs = New ADODB.Recordset rs.Open stSql, cn, adOpenDynamic If Not rs.EOF And Not rs.BOF Then With rs .MoveFirst While Not .EOF Debug.Print .Fields("Nom") & " " & .Fields("Prenom") .MoveNext Wend End With End If rs.Close cn.Close
-- Cordialement,
Jacques.
gérard
Merci jean-marc, jacques93
c'etait comme vous l'avez vu surtout un probleme de cote ' merci
"gérard" a écrit dans le message de news: 464f0bfa$0$27381$
bonjour debutant j'ai un peu de mal ca ne marche pas
SQL = "SELECT *From EMPLOYES WHERE (((EMPLOYeS.NOM)='& varnom & ') AND ((EMPLOYeS.PRENOM)='& varprenom &'));" RC.OpenRecordset SQL
merci de votre aide gerard
Merci
jean-marc, jacques93
c'etait comme vous l'avez vu surtout un probleme de cote '
merci
"gérard" <gege@wanadoo.fr> a écrit dans le message de news:
464f0bfa$0$27381$ba4acef3@news.orange.fr...
bonjour
debutant j'ai un peu de mal
ca ne marche pas
SQL = "SELECT *From EMPLOYES WHERE (((EMPLOYeS.NOM)='& varnom & ') AND
((EMPLOYeS.PRENOM)='& varprenom &'));"
RC.OpenRecordset SQL