PB avec l'instruction delete en ADO

Question

Voici le code que j'ai ecrit pour supprimer un ebregistrement d'une table dans une base de données Access: ' Open a connection. Set cnn1 = New ADODB.Connection cnn1.Provider = "Microsoft.Jet.Oledb.4.0" strCnn = "G:\GSTPHARMCMS.mdb" cnn1.Open strCnn ' Open societes table. Set rst = New ADODB.Recordset rst.CursorLocation = adUseServer rst.CursorType = adOpenKeyset rst.LockType = adLockBatchOptimistic Set rst.ActiveConnection = cnn1 rst.Open "SOCIETES", cnn1, , , adCmdTable Key = Tb_vision_ste.Text '(LongIndex).SubItems(4) ' Demande de confirmation suppression Msg = "Voulez-vous vraiment supprimer cette société ?" & vbCrLf & vbCrLf & _ "Nom : " & Tb_vision_ste.Text & vbCrLf ' "Prénom : " & Txt_détails(2).Text & vbCrLf & vbCrLf If MsgBox(Msg, vbExclamation Or vbOKCancel, "Confirmation") = vbOK Then cnn1.Execute "DELETE * FROM SOCIETES WHERE STE = " & Tb_vision_ste.Text & "" End If rst.Close cnn1.Close End Sub Mais ça ne marche pas et j'ai le message d'erreur suivant : Aucune valeur donéé pour un ou plusieurs des parametres requis S'il vous plait aidez moi. ESPRIT [mailto:K@B K@B]

Renfield · Answer

Encore, encore,encore,encore,encore,encore et toujours les quotes...
cnn1.Execute "DELETE  FROM SOCIETES WHERE STE = '" & Tb_vision_ste.Text & "'"

Renfield
Admin CodeS-SourceS- MVP Visual Basic

Renfield · Answer

If MsgBox(Msg, vbExclamation Or vbOKCancel, "Confirmation") = vbOK Then

l'utilisateur n'as pas le choix, quoi.......

fais plutot :

 If MsgBox(Msg, vbQuestion Or vbYesNo, "Confirmation") = VbYes Then

Renfield
Admin CodeS-SourceS- MVP Visual Basic

Renfield · Answer

Ah, aussi,

Key  et Rst ne servent strictement à rien :p

et quite a avoir un msgbox de confirmation, n'ouvre la base que si tu as besoin de le faire...
si l'utilisateur annule la suppression, tu ne fais rien avec la base...

Renfield
Admin CodeS-SourceS- MVP Visual Basic

PB avec l'instruction delete en ADO

3 réponses

Votre réponse

Discussions similaires