Remplir un grid a partir d'un table access 2007
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:
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 |
