A voir également:
- Insertion SQL dans VB
- Foreach sql - Forum SQL
- Sql insert ✓ - Forum SQL
- Insert date sql ✓ - Forum VB.NET
- Vb vba ✓ - Forum VB.NET
- Decimal sql - Forum SQL
1 réponse
1-Declare une Database, une querydef et un recordset
dim MyDb as Database
dim MyQuest as QueryDef
dim MyRs as recordset
2-Ouvre la database
set MyDb = OpenDatabase("Nom de la base")
3-Formule la requete
set MyQuest = MyDb.CreateQueryDef("", "SELECT * FROM Table WHERE Champ LIKE " & """" & Variable & """")
4-Lie le recordset à la requete
Set MyRs = MyQuest.OpenRecordset
5-Depouille les resultats
myrs.movefirst
debug.print myrs.fields("Champ").value
myrs.movenext
6-Ferme le recordset
myrs.close
J'espère avoir répondu à ta demande. Bon courage!!!!!
dim MyDb as Database
dim MyQuest as QueryDef
dim MyRs as recordset
2-Ouvre la database
set MyDb = OpenDatabase("Nom de la base")
3-Formule la requete
set MyQuest = MyDb.CreateQueryDef("", "SELECT * FROM Table WHERE Champ LIKE " & """" & Variable & """")
4-Lie le recordset à la requete
Set MyRs = MyQuest.OpenRecordset
5-Depouille les resultats
myrs.movefirst
debug.print myrs.fields("Champ").value
myrs.movenext
6-Ferme le recordset
myrs.close
J'espère avoir répondu à ta demande. Bon courage!!!!!
