DATAGRID + RECORDSET

Messages postés
1
Date d'inscription
vendredi 3 janvier 2003
Statut
Membre
Dernière intervention
5 janvier 2003
-
Messages postés
63
Date d'inscription
mercredi 18 mai 2005
Statut
Membre
Dernière intervention
4 mai 2011
-
Bonjour,

Je voudrai savoir comment remplir une datagrid a partir d'un recordset
La table comporte 2 champs

Voici mon code :

Dim cnnAdo As New ADODB.Connection()
Dim cmdAdo As New ADODB.Command()
Dim rsAdo As New ADODB.Recordset()

cnnAdo.Provider = "Microsoft.Jet.OLEDB.4.0"
cnnAdo.ConnectionString = "E:\bd.mdb"

cnnAdo.Open()

rsAdo.CursorType = ADODB.CursorTypeEnum.adOpenKeyset
rsAdo.LockType = ADODB.LockTypeEnum.adLockOptimistic

rsAdo.Open("Type", cnnAdo, , , -1)

rsAdo.MoveFirst()

RemplirGrille()

Private Sub RemplirGrille()

Me.DataGrid1 ...................
................................
................................

end sub

Merci pour votre aide.

2 réponses

Messages postés
562
Date d'inscription
dimanche 16 décembre 2001
Statut
Modérateur
Dernière intervention
26 décembre 2007
1
set datagrid.datasource=rsado
Voilà
@+
Messages postés
63
Date d'inscription
mercredi 18 mai 2005
Statut
Membre
Dernière intervention
4 mai 2011

salut
je veux afficher les données d'une table dans un datagrid lors du chargement de la feuille... maaaais ça marche pas!il est tj vide ! voila le code et dite moi svp où est le prob
merci

Private Sub Form_Load()
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
With conn
.Provider = "microsoft.jet.oledb.4.0"
.ConnectionString = "data source=d:\biblio.mdb"
.Open
End With


rs.Open "select * from authors", conn, adOpenKeyset, adLockOptimistic


Set DataGrid1.DataSource = rs
DataGrid1.Columns(0).DataField = rs.Fields(0).Name
DataGrid1.Columns(1).DataField = rs.Fields(1).Name
DataGrid1.Columns(2).DataField = rs.Fields(2).Name


End Sub