DATAGRID + RECORDSET

aocorp Messages postés 1 Date d'inscription vendredi 3 janvier 2003 Statut Membre Dernière intervention 5 janvier 2003 - 5 janv. 2003 à 09:44
faksouha Messages postés 63 Date d'inscription mercredi 18 mai 2005 Statut Membre Dernière intervention 4 mai 2011 - 21 mai 2005 à 11:59
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

PatriceVB Messages postés 562 Date d'inscription dimanche 16 décembre 2001 Statut Modérateur Dernière intervention 26 décembre 2007
5 janv. 2003 à 12:49
set datagrid.datasource=rsado
Voilà
@+
0
faksouha Messages postés 63 Date d'inscription mercredi 18 mai 2005 Statut Membre Dernière intervention 4 mai 2011
21 mai 2005 à 11:59
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
0
Rejoignez-nous