bonsoir
j'ai un problème de crée un grid et de le remplir a partir d'un table access 2007
j'ai utilisé le code suivant:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Sub Form_Load()
Dim maconnexion As New ADODB.Connection
 
maconnexion.ConnectionString = "DSN=imprimerie2007"
maconnexion.Open
 
    initialiserGrid
 
    'Nouveau
 
End Sub
Sub initialiserGrid()
 
    Grid.Clear
    Grid.Row = 2
    Grid.Cols = 2
    Grid.FixedCols = 0
    Grid.FixedRows = 1
    Grid.RowHeight(0) = 300
    Grid.TextMatrix(0, 0) = "Code_imprimee"
    Grid.TextMatrix(0, 1) = "quantité"
 
    For i = 0 To 2
     Grid.ColWidth(i) = 2000
     Grid.ColAlignment(i) = 1
    Next
End Sub
Sub RemplirGrilleMachine()
Dim maconnexion As New ADODB.Connection
Dim sql1 As String
Dim rec1 As New ADODB.Recordset
 
maconnexion.ConnectionString = "DSN=imprimerie2007"
maconnexion.Open
 
 
        sql1 = " select * from imprimée" 'where code_salle='" & rec_salle.Fields(0) & "' "
        Set rec1 = maconnexion.Execute(sql1)
        While rec1.EOF = False
            Grid.TextMatrix(Grid.Rows - 1, 0) = rec1.Fields("code_imprimee")
            Grid.TextMatrix(Grid.Rows - 1, 1) = rec1.Fields("quantité")
 
            Grid.Rows = Grid.Rows + 1
            rec1.MoveNext
         Wend
         rec1.Close
   End If
 
End Sub
Sub RemplirChamps()
    If Grid.Row > 0 And Grid.Row < Grid.Rows - 1 Then
    Combo1.Text = Grid.TextMatrix(Grid.Row, 0)
    Text1.Text = Grid.TextMatrix(Grid.Row, 1)
 
    End If
 End Sub
 Sub Grid_Click()
    RemplirChamps
End Sub