Формирование имени файла для Query в программе

Тема в разделе "Delphi - Базы данных", создана пользователем nataly_ukr, 24 июл 2007.

Статус темы:
Закрыта.
  1. nataly_ukr

    nataly_ukr Гость

    Есть два dbf файла Нужно их связать , но сделать в программе , так как имя файла формируется в ней же Выдает ошибку Не найден файл imjm.dbf
    imjm:='kasot'+rmes2+'.dbf';
    imjmi:='kasot'+rmes2+'.mdx';

    imjm2:='otcet'+rmes2+'.dbf';
    imjm2i:='otcet'+rmes2+'.mdx';

    Form20.Table1.Active:=false;
    Form20.Table1.TableName:=imjm;
    Form20.Table1.Close;

    Form20.Table1.Active:=True;

    Form20.Table2.Active:=false;
    Form20.Table2.TableName:=imjm2;
    Form20.Table2.Close;

    Form20.Query1.Close;
    Form20.Query1.Sql.Clear;

    Query1.Sql.text:='select b.* from imjm a,imjm2 b where (a.ddok=b.ddok and a.ndok=b.ndok and a.kfio=b.kfio)';
    Form20.Query1.Open;
    Query1.Active:=true;
     
  2. DZX

    DZX Гость

    В строке запроса необходимо выделить переменные 'начало запроса'+imjm+'далее', а не внедрять в саму строку это ж не php.
     
  3. Гость

    Код (Text):
    var s: string;


    s:='rmes2';
    Query.SQL.Add('Select * from '+s+' where... и т.д.....
     
  4. nataly_ukr

    nataly_ukr Гость

    Query1.Sql.Add('select b.* from');
    Query1.Sql.Add(imjm);
    Query1.Sql.Add(' a,');
    Query1.Sql.Add(imjm2);
    Query1.Sql.Add(' b where (a.ddok=b.ddok and a.ndok=b.ndok and a.kfio=b.kfio');


    Испарвьте ошибкуб пожалуйста

    z1:=imjm;
    z2:=imjm2;
    // Query1.Sql.text:='select b.* from'+imjm+' a,'+imjm2+' b where (a.ddok=b.ddok and a.ndok=b.ndok and a.kfio=b.kfio')';
    Query1.Sql.Add('select b.* from'+z1);
    Query1.Sql.Add(' a,'+z2+' b where (a.ddok=b.ddok and a.ndok=b.ndok and a.kfio=b.kfio');



    исправила по совету Белого Волка Все равно оибка синтаксиса
     
  5. Гость

    Ой, ну, это же не ПХП...
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей