Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.12.04;
Скачать: CL | DM;

Вниз

очищение базы данных   Найти похожие ветки 

 
vlad_ir   (2003-11-16 16:13) [0]

Уважаемые господа!
Скажите, как правильно очистить базу данных, чтобы не
выскакивало сообщение key deleted!
Пример кода:
var
a:integer;
begin
try
button2.Enabled:=false;
session1.AddPassword("jIGGAe");
table1.Open;
a:=table1.RecordCount;
Table1.Active := false;
Table1.DatabaseName := "grd";
Table1.TableName := "plp_.db";
Table1.TableType := ttparadox;
Table1.EmptyTable;
ShowMessage("Закрытие года "+formatdatetime("yyyy",date)+ " завершено!"+#13+
"Всего было сделано платежных поручений: "+inttostr(a)+#13+
"База данных со старыми платежными поручениями уничтожена!");
Table1.FlushBuffers;
Table1.CommitUpdates;
a:=0;
close;
except
on e: exception do
begin
raise Exception.Create("Ключевой индекс не проиндексирован!");
Application.MessageBox("Невозможно удалить информацию!","Ошибка",mb_OK);
close;


 
Zacho ©   (2003-11-16 17:30) [1]

Давно уже не работал с Парадоксом, но могу дать совет: просто удаляй нафиг файлы БД, а потом создавай их снова. Вот и "очищение".


 
Anatoly Podgoretsky ©   (2003-11-16 17:32) [2]

EmptyTable полнейшия очистка



Страницы: 1 вся ветка

Текущий архив: 2003.12.04;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.009 c
4-11721
Alternative
2003-10-08 17:33
2003.12.04
Создание потока


1-11607
Big Error
2003-11-25 21:14
2003.12.04
Что вместо TMemo и TRichEdit?


4-11718
Полина
2003-10-08 15:11
2003.12.04
Поиск запущенного приложения


3-11592
vlad_ir
2003-11-16 16:13
2003.12.04
очищение базы данных


4-11717
Elbow
2003-10-11 11:21
2003.12.04
Модуль с RegisterServiceProcess как называется?