Discussion :

[lumbroso]

bonjour,

j'ai un petit soucis j'ai un formulaire fais sur vb6 relié a une base access
j'ai une table nomée facturetmp avec tous mes champs dont une colone appele remise
j'ai plusieurs enregistrements sur cette table comment faire sur vb pour remplir cette colonne par la meme valeur par exemple 5
voila le code que j'ai mis il ne marche pas j'ai oublier la base sur les boucles merci de votre aide.

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
Private Sub cmdgenerer_Click()
'-----------
Dim tsql1 As String
Dim dbgril1 As ADODB.Connection
Dim rsgril1 As ADODB.Recordset
 
 
Dim i As Integer
Set dbgril1 = New ADODB.Connection
dbgril1.Provider = "Microsoft.Jet.Oledb.4.0"
dbgril1.ConnectionString = App.Path & "\facture.mdb"
dbgril1.Open
Set rsgril1 = New ADODB.Recordset
rsgril1.Open "SELECT remise FROM facturetemp", dbgril1, adOpenStatic, adLockOptimistic
 
'-----------
For i = 1 To dbgril1.EOF
   rsgril1!remise = cmbremise.Text
Next
 
End Sub

[ProgElecT]

Code :

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

1
2
3
4
For i = 1 To dbgril1.RecordCount
   rsgril1!remise = cmbremise.Text
   rsgril1.MoveNext
Next

sinon tu reste toujours sur la même ligne d'enregistrement.
Voire dans l'aide en ligne RecordCount et MoveNext.

[Hlama]

Bon pour sélectionner plusieurs éléments dans la ListBox tu ne dois pas utiliser la propriété .list(index As Integer)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim i As Integer
Set dbgril1 = New ADODB.Connection
dbgril1.Provider = "Microsoft.Jet.Oledb.4.0"
dbgril1.ConnectionString = App.Path & "\facture.mdb"
dbgril1.Open
Set rsgril1 = New ADODB.Recordset
rsgril1.Open "SELECT remise FROM facturetemp", dbgril1, adOpenStatic, adLockOptimistic
 
do while rsgril1.EOF=False
List1.List(i)=rsgril1!remise
i=i+1
rsgril1.MoveNext
Loop

A savoir que List.text est valise que lorsqu'on index un élément de la liste(ou on sélectionne un élément de la liste)