Vider une base de données
Résolu
fifisoum5
Messages postés
19
Date d'inscription
Statut
Membre
Dernière intervention
-
flashdkDog Messages postés 1 Statut Membre -
flashdkDog Messages postés 1 Statut Membre -
slt tout le monde je veux vider ma base
j'ai trouvé dans un groupe
if MessageDlg('La table " FOURNISSEUR " va être vidée. Toutes les données vont être perdues. Voulez-vous continuer ?',
mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
TableFour.Close;
TableFour.EmptyTable;
mais malheureusement j'ai pas trouvé dans mon delphi ''emptytable" que dois je faire svp
j'ai trouvé dans un groupe
if MessageDlg('La table " FOURNISSEUR " va être vidée. Toutes les données vont être perdues. Voulez-vous continuer ?',
mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
TableFour.Close;
TableFour.EmptyTable;
mais malheureusement j'ai pas trouvé dans mon delphi ''emptytable" que dois je faire svp
2 réponses
-
Salut,
Tu travailles avec quel format de base de données ? Tu sais que que à partir de Delphi tu peu programmer en SQL ? Si tu est sérieux sur le développement d'applications base de données en Delphi tu sera plus efficace si tu connais SQL. Si tu ne connais pas encore SQL : Cours SQL. -
Bonjour,
Vérifie que tu as bien dans ton unité:
uses ..., ..., Db, DBTables, ...;
emptytable est dans l'unité DbTables, to DOIS la trouver :-)
Bonne chance.
solilog-
:/ comme j'utilise delphi xe3 la fonction emptytable n'existe pas
mais j'ai trouvé ce code et il a tout vidé
if messagedlg
('La table " Patient" va être vidée. Toutes les données vont être perdues. Voulez-vous continuer ?',
mtConfirmation, [mbYes, mbNo], 0) = mrYes then
with datamodule2.ADOPatient do
begin
try
first;
while not eof do
begin
datamodule2.ADOPatient.Delete;
end;
finally
end;
-
