CHDIR

Модераторы: Duncon, Naeel Maqsudov, Игорь Акопян, Хыиуду

Ответить
jojo
Сообщения: 14
Зарегистрирован: 24 май 2004, 11:20
Контактная информация:

Привет ребя !
Блин не могу допетрить ...почему не меняет текущий каталог
мне нужно перейти к подкаталогу DBF(там у меня справочники) и там найти файлик и к нему сделать запрос
однако ошибка запроса в том, что я остаюсь в той директории в которой находился, хотя я ...
т.е. он говорит что не нашел файл ...естественно он подкаталоге DBF
отладчиком значения PathProgram нормально с dbf

GetDir( 0, FSetup.PathProgram);
ChDir(FSetup.PathProgram+'\dbf\');
GetDir( 0, FSetup.PathProgram);

dm.DsSp.DataSet:=dm.QSp;
If FileExists(ExtractFilePath(Application.ExeName)+ 'DBF\' + 'str_podr.dbf') Then
begin
//Делаем запросы
with dm.QSP do
begin
DatabaseName:='Zat1c';
Close;
SQL.Clear;
SQL.Add('SELECT * FROM str_podr.dbf');
SQL.Add('ORDER BY CODE,NAME');
//ShowMessage(dm.QSp.SQL.Text);
Open;
end; //with
DBLookupComboboxEh1.ListSource:=dm.DsSp;
DBLookupComboboxEh1.ListField:='NAME';
DBLookupComboboxEh1.KeyField:='CODE';
DBLookupComboboxEh1.Text:='01';
end
else
begin
ShowMessage('Нет файла справочника структурных подразделений !');
exit;
FSetup.ModalResult:=1;
end;

Не могу млин перейти и запрос сделать ...
Jojo®
Аватара пользователя
Naeel Maqsudov
Сообщения: 2570
Зарегистрирован: 20 фев 2004, 19:17
Откуда: Moscow, Russia
Контактная информация:

Вместо

SELECT * FROM str_podr.dbf ORDER BY CODE,NAME

делайте

SELECT * FROM "dbf/str_podr.dbf" ORDER BY CODE,NAME

BDE создает экземляр коннекта к базе в котором прописан путь.
Все таблицы ищутся относительно ТОГО пути а CHDIR на это не влияет!
Ответить