Connection à db + affichage d'une requête

Connection à db + affichage d'une requête - VB/VBA/VBS - Programmation

Marsh Posté le 10-04-2005 à 15:08:58    

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 :
  1. Private Sub Form_Open()
  2.     Const Chaine_Connection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
  3.                               "Data Source=D:\" & _
  4.                               LocagiteEtud.mdb
  5.     Dim Connection As New ADODB.Connection
  6.     Dim RecordSet As New ADODB.RecordSet
  7.    
  8.     On Error GoTo ErrorDb
  9.    
  10.    
  11.     SQL = "SELECT PAYS.Nom FROM PAYS"
  13.    
  14.     Call RecordSet.Open(SQL, Connection, _
  15.                    adOpenDynamic, adLockOptimistic)
  18. ------------------------------------
  19.    
  20.    
  21.     Connection.Close
  22.     Set Connection = Nothing
  23.     Exit Sub
  25. ErrorDb:
  26.     MsgBox Err.Description
  27.     Set RecordSet = Nothing
  28.     Set Connection = Nothing
  29.    
  30. End Sub


Message édité par finch911 le 10-04-2005 à 15:21:49
Reply

Marsh Posté le 10-04-2005 à 15:08:58   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed