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
Partager