Использую в своей БД компонент ZSQLProcessor для создания структуры БД и импорта данных из sql файлов.
Файлы sql создаются через экспорт данных в Mysql workbench
написал следующую процедуру:
- Код: Выделить всё
procedure TSettingsForm.DumpRestore;
var
DumpDir: string;
SQLFiles: TStrings;
I: integer;
begin
DumpDir:=AppendPathDelim(ExtractFileDir(ParamStrUTF8(0)))+'Dump';
DumpDir:=AppendPathDelim(DumpDir);
if DirPathExists(DumpDir) then begin
SQLFiles:=TStrings.Create;
SQLFiles:=FindAllFiles(DumpDir,'*.sql',FALSE);
for I:=0 to SQLFiles.Count do begin
DBLabel.Caption:='Выполняется импорт из файла '+SQLFiles.Strings[I];
DM1.SQLproc.Clear;
DM1.SQLproc.LoadFromFile(SQLFiles.Strings[I]);
DM1.SQLproc.Execute;
end;
DBLabel.Caption:='Импорт успешно завершён';
SQLFiles.Free;
end else ShowMessage('Каталог с дампом не найден');
end;
Список файлов загружается в TStrings нормально, однако метод SQLProcessor.LoadFromFile не срабатывает. Ошибка Unable to open file ...
Причем в предыдущем методе
- Код: Выделить всё
DBLabel.Caption:='Создание структуры базы данных...';
DM1.SQLproc.LoadFromFile('dbcreate.sql');
DM1.SQLproc.Execute;
все отрабатывает нормально.
не пойму, в чем проблема.