remplissage d'un datagrid

salut j'ai un probleme c'est y'a quelqu'un qui peu m'aidée j vais expliquer.j fai un projet avec vb6 et access j'ai la connexion avec dataenvirenement bon mn problem c'est que j'ai un formulaire ou y'a datagrid est je veux le remplire a partir d'une table de base de donnée sn utiliser les proprieté de datagrid j veux le remplir a partir d'un code source je vous demande si y'a un esemple de sa et merci d'avance

Salut,

salut,

en effet la démarche n'est pas logique

par contre à partir d'un RS çà devrait marcher non?
jamais testé tien (ou j'm'en souviens plus ^^).....

genre rs.open requete, cnx, argument
ser dbgrid.recordsource=rs

++

---

Prenez un instant pour répondre à ce sondage svp

set*

 Merci beaucouq pour votre reponse mais pour moi je pas besoin de saisir j veux juste afficher les données dans un datagrid et pourquoi j veux utiliser le code c'est parce que je veux faire un mise à jour de cette datagrid c'est a dire si j'ai enregestrer des information le faite l'enregerster j veux l'avoir aussi dans le datagrid paske avant il faut d'abord fermer le projet et l'ouvrir pour que les info apparaitre.et aussi j veux supprimer une ligne ou l'a modifier se pas dans datagrid moi j veux juste selectionner et lui transforme les donnée dans des champs texte au j travaille dés le debut.merci pour votre attention j'espere que vous comprenez se que j veux  et que quelqu'un me trouvra un solution 

Salut,

salut.bas je veux utiliser une listview et j'utilise une procedure pr la remplir la voila:
Sub Remplir_rep()
Dim strsql As String
Dim Adors As New ADODB.Recordset
Dim adoRS1 As New ADODB.Recordset
Dim Ligne As ListItem
strsql = "select * from Reparateur"
Set Adors = Connection.Execute(strsql)
If (Adors.RecordCount <> 0) Then
Adors.MoveFirst
Do While Not Adors.EOF
Set Ligne = lstrep.ListItems.Add(, , Adors.Fields("Nom_Reparateur").Value, , "ico1")
Ligne.SubItems(1) = Adors![Adresse_R]

If (Adors.RecordCount <> 0) Then
 Ligne.SubItems(2) = Adors![Patente_R]
 
End If

Ligne.ListSubItems(2).ForeColor = vbBlue
Adors.MoveNext
Loop
End If
End Sub
 
mais le probleme c'est que il me donne un debogage au niveau de la ligne
Set Adors = Connection.Execute(strsql)
 j sais po koi faire c'est y'a klk1 ki peu me donner une solution.merci d'avance

http://www.codyx.org/snippet_ajout-headers-ou-enregistrements-dans-listview-via-lecture_498.aspx