Discussion :

[Blade91]

Bonjour,
Est ce que quelqu'un aurait un bout de code pour remplir un datagrid sous ACCESS, je n'ai pas réussi à afficher mes données dans mon datagrid :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim rst As New ADODB.Recordset
Dim DG_Plan As New DataGrid
Dim i As Integer
rst.CursorLocation = adUseClient
rst.Open "SELECT * FROM SECTEUR", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
Set DG_Plan.DataSource = rst
DG_Plan.ColumnHeaders = True
DG_Plan.Columns(1) = rst.Fields("libelle_secteur")

[micniv]

je ne pense pas que datagrid soit dispo sous VBA
utilise plutôt la méthode GetRows

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  arrayData = rst.GetRows(400)

[Blade91]

Sisi j'ai trouvé :
Dim adorecordset As ADODB.Recordset
Dim recSource As String

Set adorecordset = New ADODB.Recordset
recSource = "Select * from test"

With adorecordset
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open recSource, CurrentProject.Connection
End With

If adorecordset.RecordCount < 0 Then Exit Sub

With DataGrid1
Set .DataSource = adorecordset
End With