1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
|
'variable
Dim dbs As DAO.Database
Dim DBEngine As New DAO.DBEngine
Dim rst As DAO.Recordset
Dim query As DAO.QueryDef
'ouverture base
dbs = DBEngine.Workspaces(0).OpenDatabase("c:\maBase.mdb", False)
'requêtte SQL
query = dbs.CreateQueryDef("", "SELECT * FROM client")
rst = query.OpenRecordset()
'ici, on se rend juste sur le premier enregistrement
'puis on recupére le contenue de la deuxième colonne
rst.MoveFirst()
While Not rst.EOF 'tant qu'il reste des enregistrements
TextBox1.Text = TextBox1.Text & "#" & rst.Fields(1).Value
rst.MoveNext()
End While |
Partager