Есть "куча" файлов zb, с сылкой на локальные таблицы Paradox. Есть MSSQL с теми же таблицами. Необходимо изменить ссылки с Paradox на MSSQL. Вручную, все нормально. А я попробовал написать так
ZbD:= CoZbDatabase.Create;
with dlgOpen1 do
if Execute then
for i:=0 to Files.Count-1 do
begin
ZbD.Open(Files[i]);
s:=Files[i]+'.bak';
if FileExists(s) then
DeleteFile(s);
for j:=0 to zbd.Sources.count-1 do
begin // в FilenameEdit1.FileName - имя UDL файла
zbd.Sources[j].SourceString:=format('FILE NAME=%s',[FilenameEdit1.FileName]); //Readonly-свойство
zbd.Sources[j].Name:=e1.text+Inttostr(j); //Readonly-свойство
end;
RenameFile(Files[i],s);
ZbD.Save(0);
end;
Как можно решить эту задачу!? Хорошо бы иметь еще возможность изменять и имяа таблиц
ZbD:= CoZbDatabase.Create;
with dlgOpen1 do
if Execute then
for i:=0 to Files.Count-1 do
begin
ZbD.Open(Files[i]);
s:=Files[i]+'.bak';
if FileExists(s) then
DeleteFile(s);
for j:=0 to zbd.Sources.count-1 do
begin // в FilenameEdit1.FileName - имя UDL файла
zbd.Sources[j].SourceString:=format('FILE NAME=%s',[FilenameEdit1.FileName]); //Readonly-свойство
zbd.Sources[j].Name:=e1.text+Inttostr(j); //Readonly-свойство
end;
RenameFile(Files[i],s);
ZbD.Save(0);
end;
Как можно решить эту задачу!? Хорошо бы иметь еще возможность изменять и имяа таблиц