Salut,
Il faudrait que je mette le résultat d'une requête dans une étiquette d'un formulaire(les pays des clients):
Je n'arrive pas a trouver comment afficher le résultat.
Voilà le code pour me connecter a la base.
La ou se trouve la ligne, c'est en principe la ou je doit mettre le code pour afficher tous les pays de la table.
Comment faire?
merci
Code :
- Private Sub Form_Open()
- Const Chaine_Connection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
- "Data Source=D:\" & _
- LocagiteEtud.mdb
- Dim Connection As New ADODB.Connection
- Dim RecordSet As New ADODB.RecordSet
-
- On Error GoTo ErrorDb
-
-
- SQL = "SELECT PAYS.Nom FROM PAYS"
-
- Call RecordSet.Open(SQL, Connection, _
- adOpenDynamic, adLockOptimistic)
- ------------------------------------
-
-
- Connection.Close
- Set Connection = Nothing
- Exit Sub
- ErrorDb:
- MsgBox Err.Description
- Set RecordSet = Nothing
- Set Connection = Nothing
-
- End Sub
|
Message édité par finch911 le 10-04-2005 à 15:21:49