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