comment faire un deleteRésolu

Question

Bonjour
Debutant VB6
question deja pose mais je reformule mieux mon probleme 
comment faire un delete ?
j'ai 2 forms ,dans la form1 je click sur un nom qui se charge dans la Form2 la j'y arrive bien
rst.MoveFirst
    ' affectation du n&#186; d'index &#224; la variable
    IndexItem = List1.ListIndex 'myListView.SelectedItem.Inde
 ' Positionnement sur l'enregistrement s&#233;lectionner
    rst.Move (IndexItem)
Form2.txtnom.Text = IIf(IsNull(rst![nom]), "", rst![nom])
etc...
etc...
Unload Me
comment faire un delete quand je suis sur la form2 
de cette Selection ?      
rst.delete (select * from [table] where[ID]='%" & Txtindex.Text & "%' ", bd, adOpenDynamic, adLockOptimistic)

Merci d'avance

Renfield · Accepted Answer

il faut faire executer cette requete par ta base ^^

tu peux pas te contenter d'ecrire ta ligne, comme &#231;a...



bd.Execute "DELETE FROM ....."

Renfield
Admin CodeS-SourceS - MVP Visual Basic

Renfield · Answer

Pas indispensable de manipuler ici un recordset....

tu peux simplement executer :



"DELETE FROM [table] WHERE ........"


Renfield
Admin CodeS-SourceS - MVP Visual Basic

papounez · Answer

Re
Voici Mon code mais il y a une erreur
Dans la Form2
"delete from [table] where[ID]='%" & Txtindex.Text & "%' "
             tb.MoveNext
         Call actualiser
End Sub

Merci

fiko81 · Answer

Il doit manquer un espace en where et [ID] "delete from [table] where [ID]='%" & Txtindex.Text & "%' " Fiko ;-) Proverbe chinois : Connaître son ignorance est la meilleur part de la connaissance.

papounez · Answer

Re 

Voici l'erreur qui genere
compile error
expected: line number or label or statement or end of statement

Merci

Clad49 · Answer

Salut !
Une autre facn qui fonctionne :

'db = Database
Public db As Database
'rs = Recordset
Public rs As Recordset
'sql est une cha&#238;ne de caract&#232;res
Public sql As String
'----------------------------------------

        Set db = OpenDatabase(App.Path & "\base.mdb")                    'on ouvre la base
        sql = "select * from LaTable where OuTuVeutSupprimer "         'on en selectionne une partie
        Set rs = db.OpenRecordset(sql, dbOpenDynaset)                      'on li la partie choisi
        rs.Edit                                                                                        'Mode &#233;dition
        rs.Delete                                                                                    'puis en supprime
        db.Close                                                                                    'on ferme la base
        Set rs = Nothing                                                                         'On d&#233;charge
        Set db = Nothing                                                                        'On d&#233;charge

Clad

Renfield · Answer

fonctionne, certes, mais a quoi bon ramener toutes nos donn&#233;es (* qui plus est)

alors que la seule finalit&#233; est la suppression.... pas top, cot&#233; performance

Renfield
Admin CodeS-SourceS - MVP Visual Basic

papounez · Answer

re
Ok ca Marche 
pour information j'ai enlever les ( ' et %) sinon erreur

bd.Execute " delete FROM [table] where [ID] = '%" & Txtindex.Text & "%' "

a + pour d'autre question
Encore Merci

papounez · Answer

re
merci a VousTous  pour les reponses

Comment faire un delete

9 réponses

Discussions similaires