Форум по программированию Delphi Sources

 



Вернуться   Форум по программированию Delphi Sources > Все о Delphi > Базы данных
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 27.10.2005, 14:15
serjufa serjufa вне форума
Прохожий
 
Регистрация: 27.10.2005
Сообщения: 14
Репутация: 10
По умолчанию конвертнуть db в dbf

Появилась задача - конвертнуть db в dbf. Если бы было мало файлов- юзал бы "Database Tour Pro". Проблема в том, что эти файлы разбросаны по папкам разных иерархий и искать и конвертить их надо программно. Ниже привожу код, который все делать, но результат не выводит

var
Form1: TForm1;
TblSource_String, TblDest_String : String;
implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
WITH tblSource do begin
Active := False;
DatabaseName := 'Auto_Db';
TableType := ttParadox;
TableName := TblSource_String ;
Active := true ;
END;//with

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
tblSource.Active := False;
Close;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
TblDest.TableName := TblDest_String;

with QueryDB2DBF do
begin
Close;
SQL.Clear;
SQL.Add('SELECT *');
SQL.Add('FROM "'+TblSource_String+ '"');
// SQL.Add(String_Line);
Open;
if RecordCount > 0 then
begin
// ПОСЛЕ SQL СОЗДАДИМ /ДОБАВИМ В РЕЗУДЬТИР. БД
if not FileExists(TblDest_String+'.dbf') then
DbiMakePermanent(QueryDB2DBF.Handle,PChar(TblDest_ String),True)
else
begin
with BatchMove1 do
begin
Mode := batAppend;
Execute;
end;
end; // if not FileExists(TblDest+'.dbf') then
Close;

end;
end;


end;

procedure TForm1.FormActivate(Sender: TObject);
begin
TblSource_String := 'C:\AUTOWORK\DB\pgor0689.db';
TblDest_String := 'C:\AUTOWORK\DB\pgor0689.dbf';
end;
Ответить с цитированием
Ответ



Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 20:59.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources", 2004-2018

ВКонтакте   Facebook   Twitter