Vider une base de données

Résolu/Fermé
fifisoum5 Messages postés 19 Date d'inscription mercredi 8 avril 2015 Statut Membre Dernière intervention 7 mai 2015 - Modifié par dsy73 le 13/04/2015 à 06:16
flashdkDog Messages postés 1 Date d'inscription vendredi 15 mai 2015 Statut Membre Dernière intervention 15 mai 2015 - 15 mai 2015 à 11:04
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

2 réponses

Célien Messages postés 5729 Date d'inscription jeudi 8 mai 2008 Statut Membre Dernière intervention 9 septembre 2021 1 993
13 avril 2015 à 17:02
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.
0
solilog Messages postés 273 Date d'inscription samedi 13 juin 2009 Statut Membre Dernière intervention 18 avril 2015 2
18 avril 2015 à 15:40
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
0
fifisoum5 Messages postés 19 Date d'inscription mercredi 8 avril 2015 Statut Membre Dernière intervention 7 mai 2015
26 avril 2015 à 18:03
:/ 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;
0
flashdkDog Messages postés 1 Date d'inscription vendredi 15 mai 2015 Statut Membre Dernière intervention 15 mai 2015 > fifisoum5 Messages postés 19 Date d'inscription mercredi 8 avril 2015 Statut Membre Dernière intervention 7 mai 2015
15 mai 2015 à 11:04
Bjr moi je te conseille d'utiliser une requette preparée dont le Querry conteindra
DELECT * FROM la table.
Dans delphi tu fais : le Querry.unprepare;
tu passes en parametre le nom de la table au Querry puis
le Querry .execsql
0