salut,
Je suis entrain de réaliser une application VB6 et Access dans le cadre d'un stage.
J'accéde à ma BDD via l'outil ADO.
Dans un form, j'envisage d'aficher dans une grille les factures qui concernent un fournisseur précis par son ID,voilà le code que j'ai utilisé.SVP dites moi quelles sont les erreurs que j'ai comise car rien ne saffiche!

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
Dim i As Integer 
Set rsligne_fact_four = New ADODB.Recordset 
rsligne_fact_four.Open "select * from ligne_facture_four where Code_four= '" & Combo1.Text & "'", cn, 1, 2 
 
Set rsfact_four = New ADODB.Recordset 
rsfact_four.Open " select * from Facture_four where Code_fou = '" & Combo1.Text & " '", cn, 1, 2 
 
 
If rsligne_fact_four.RecordCount = 0 Then 
MsgBox "Il n'y a aucun facture saisie", vbInformation, "MAC//Z" 
Exit Sub 
Else 
With g 
  .FixedRows = 1 'ligne en-tete 
  .Rows = 2 ' + une ligne vide 
   i = 1 
rsligne_fact_four.MoveFirst 
Do While Not rsligne_fact_four.EOF 
If rsligne_fact_four.Fields(4) = Combo1.Text Then 
i = i + 1 
 
  .Rows = i 'nombre de ligne 
  .Row = i - 1 'ligne courante 
 
  .Col = 0 
.Text = rsligne_fact_four.Fields(0) 
.Col = 1 
.Text = rsfact_four.Fields(1) 
.Col = 2 
.Text = rsligne_fact_four.Fields(3) 
.Col = 3 
.Text = rsligne_fact_four.Fields(4) 
.Col = 4 
.Text = rsligne_fact_four.Fields(5) 
End If 
  rsligne_fact_four.MoveNext 
Loop 
End With 
End If 
 
End Sub
NB: pour afficher la grille , j'ai associé ke code suivant au form_load du form
Code:
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
g.Clear 
g.Rows = 2 
g.Cols = 5 
g.Row = 0 
g.Col = 0 
g.ColWidth(0) = 1800 
g.Text = "Numéro facture" 
g.Col = 1 
g.ColWidth(1) = 2500 
g.Text = "Date" 
g.Col = 2 
g.ColWidth(2) = 2000 
g.Text = "Montant HT" 
g.Col = 3 
g.ColWidth(3) = 1200 
g.Text = "Taux TVA" 
g.Col = 4 
g.ColWidth(4) = 3000 
g.Text = "Montant TTC"
Merci à vous d'avance.