![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Появилась задача - конвертнуть 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; |