Discussion :

[jgresse1025]

Bonjour,

Je suis nouveau en VB6.
J'ai trouver sur Youtube un code qui me fallait.
Je l'ai recopier en mettant ce que j'ai besoin et ça ne marche pas pour moi alors que dans la video ça marche.
Pourtant j'ai recopié mot pour mot
Je ne comprend pas l'erreur

Voici le 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
 
Private Sub cmdModify_Click()
 
y = ListView1.SelectedItem
ConnectDB
rs.Open "Select * from TypeDeProduit where ID = " & y, db, 3, 3
rs.Update
rs(1) = TxtTypeProduit
rs.Update
Set rs = Nothing
db.Close: Set db = Nothing
LoadData
cmdModify.Enabled = False
cmdSave.Enabled = True
End Sub

Merci d'avance pour votre aide.

Julien

[ProgElecT]

Salut

Bonjour,

Je suis nouveau en VB6.
J'ai trouver sur Youtube un code qui me fallait.
Je l'ai recopier en mettant ce que j'ai besoin et ça ne marche pas pour moi alors que dans la video ça marche.
Pourtant j'ai recopié mot pour mot
Je ne comprend pas l'erreur
Voici le 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
 
Private Sub cmdModify_Click()
 
y = ListView1.SelectedItem
ConnectDB
rs.Open "Select * from TypeDeProduit where ID = " & y, db, 3, 3
rs.Update
rs(1) = TxtTypeProduit
rs.Update
Set rs = Nothing
db.Close: Set db = Nothing
LoadData
cmdModify.Enabled = False
cmdSave.Enabled = True
End Sub

Merci d'avance pour votre aide.

Julien

Moi non plus je ne comprend pas l'erreur
Tu ne nous indiques pas la ligne qui provoque cette erreur, mise à part les lignes 2, 3, 13 et 14, chacune peut provoquer une erreur.
Dèjà à la ligne 7 tu fais un Update alors que tu n'as pas fait encore de modiffication .
Un peu plus d'informations semble donc indispensable.