Supprimer un enregistrement d'un recordset d'un ctrl data
1 réponse
jdd deschamps
Comme je ne parviens pas, à tous les coups, à supprimer un enregistrement
d'un DBGrid en mode dépendant en appuyant sur la touche "Suppr", j'ai décidé
de créer un bouton "Supprimer l'enregistrement en cours".
Je connais la méthode :
rst.delete où rst est un recordset
mais comment m'y prendre avec mon ctrl Data et mon ctrl DBGrid ?
private sub form_load()
Data1.DatabaseName = App.Path + "\...
Data1.RecordSource = "SELECT * FROM AzTb WHERE ...
DBGrid1.datasource = Data1
end sub
Comme je ne parviens pas, à tous les coups, à supprimer un enregistrement d'un DBGrid en mode dépendant en appuyant sur la touche "Suppr", j'ai
décidé
de créer un bouton "Supprimer l'enregistrement en cours". Je connais la méthode : rst.delete où rst est un recordset mais comment m'y prendre avec mon ctrl Data et mon ctrl DBGrid ?
private sub form_load() Data1.DatabaseName = App.Path + "... Data1.RecordSource = "SELECT * FROM AzTb WHERE ... DBGrid1.datasource = Data1 end sub
"jdd deschamps" <jdd.deschamps@wanadoo.fr> a écrit dans le message de
news:OiCbydzyEHA.3416@TK2MSFTNGP09.phx.gbl...
Comme je ne parviens pas, à tous les coups, à supprimer un enregistrement
d'un DBGrid en mode dépendant en appuyant sur la touche "Suppr", j'ai
décidé
de créer un bouton "Supprimer l'enregistrement en cours".
Je connais la méthode :
rst.delete où rst est un recordset
mais comment m'y prendre avec mon ctrl Data et mon ctrl DBGrid ?
private sub form_load()
Data1.DatabaseName = App.Path + "...
Data1.RecordSource = "SELECT * FROM AzTb WHERE ...
DBGrid1.datasource = Data1
end sub
Comme je ne parviens pas, à tous les coups, à supprimer un enregistrement d'un DBGrid en mode dépendant en appuyant sur la touche "Suppr", j'ai
décidé
de créer un bouton "Supprimer l'enregistrement en cours". Je connais la méthode : rst.delete où rst est un recordset mais comment m'y prendre avec mon ctrl Data et mon ctrl DBGrid ?
private sub form_load() Data1.DatabaseName = App.Path + "... Data1.RecordSource = "SELECT * FROM AzTb WHERE ... DBGrid1.datasource = Data1 end sub
