1. Акция на весь декабрь! Получай оплату х2 за уникальные статьи, объемом от 200 слов, если в заголовке темы и теле статьи присутствует слово Python
    Скрыть объявление

проблема с запросом (quiery)

Тема в разделе "Delphi - Базы данных", создана пользователем pol_g, 18 авг 2005.

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

    pol_g Гость

    Проблема такая, есть запрос с 12-тью параметрами, есть форма с которой считываются значения и передаются в функцию. В этой функции в параметры запроса забивются значения переданные с формы и осуществляется запрос к бд, в результате получается датасет с набором данных. Почему о алгоритм срабатывает только один раз. Т.е запускаю форму заполняю поля получаю результат выборки. Заполняю поля передаю в функцию новые значения и выскакивает ошибка что в запросе нет параметров.
    Помогите плиз.
     
  2. Barmutik

    Barmutik Гость

    Код в студию...
     
  3. Guest

    Guest Гость

    procedure Search(tableFrom : string; regnumberFrom : string; regnumberTill : string; receiver : string; employee : string; typeDocument : string; regDateFrom :TDate; regDateTill : tdate; orderdate : tdate; ordernumber : string; documentnumber: string; documentDate : tdate; filename : string );
    var
    tableName, condition, fields: string;

    const SQLString = 'Select %s from %s %s';

    begin

    dm.Search.Close;
    dm.Search.sql.Clear;


    if tableFrom ='Inbox' then
    begin
    fields := ' registrationnumber, receiver, topic, registrationdate ';
    tablename :='incoming_messages';
    condition:= '';
    if regnumberFrom <> '' then
    begin
    dm.Search.ParamByName('regNumberFrom').asinteger := strtoint(regnumberfrom);
    condition := ' where registrationnumber>= :regNumberfrom' ;
    end;

    dm.Search.Open;


    end;
     
  4. Barmutik

    Barmutik Гость

    Что-то я в приведённом коде не вижу что Вы присваиваете SQL запрос в Ваш DataSet..

    Только параметр назначаете ... или это не весь код?
     
  5. Guest_pol_g_*

    Guest_pol_g_* Гость

    <!--QuoteBegin-Barmutik+18:08:2005, 16:50 -->
    <span class="vbquote">(Barmutik @ 18:08:2005, 16:50 )</span><!--QuoteEBegin-->Что-то я в приведённом коде не вижу что Вы присваиваете SQL запрос в Ваш DataSet..

    Только параметр назначаете ... или это не весь код?
    [snapback]23676" rel="nofollow" target="_blank[/snapback]​
    [/quote]

    Проблема в том что после первого запуска компилятор не видит параметров процедуры которые я забил статически компоненту ТQuery на форме и это срабатывает только при первом разе
     
  6. Barmutik

    Barmutik Гость

    Начнём с того что компилятор после запуска уже вообще ничего не видит :( потому как он в то время уже никак работает ..

    Я бы Вам посоветовал сделать следующим образом:

    Код (Text):
    procedure Search(tableFrom : string; regnumberFrom : string; regnumberTill : string; receiver : string; employee : string; typeDocument : string; regDateFrom :TDate; regDateTill : tdate; orderdate : tdate; ordernumber : string; documentnumber: string; documentDate : tdate; filename : string );
    var
    tableName, condition, fields: string;

    const SQLString = 'Select %s from %s %s';

    begin

    dm.Search.Close;
    dm.Search.sql.Clear;


    if tableFrom ='Inbox' then
    begin
    fields := ' registrationnumber, receiver, topic, registrationdate ';
    tablename :='incoming_messages';
    condition:= '';
    if regnumberFrom <> '' then
    begin
    condition := ' where registrationnumber>= :regNumberfrom';
    end;

    dm.SQL.Text := Format(SQLString, [tablename, fields, condition]);
    if regnumberFrom <> '' then
    Dm.Search.ParamByName('regNumberFrom').asinteger :=
    strtoint(regnumberfrom);

    dm.Search.Open;


    end;
     
  7. Guest_pol_g_*

    Guest_pol_g_* Гость

    Ну что вам ответить не зря у вас стоит приписка ГУРУ. Я полтора дня с этим мучался. А вроде мелочь. Спасибо.
     
  8. Barmutik

    Barmutik Гость

    Главное что всё получилось! Удачи!
     
Загрузка...
Похожие Темы - проблема запросом (quiery)
  1. Renat11111
    Ответов:
    1
    Просмотров:
    2.192
  2. Renat11111
    Ответов:
    4
    Просмотров:
    2.851
  3. Renat11111
    Ответов:
    3
    Просмотров:
    2.586
  4. c0de3r
    Ответов:
    4
    Просмотров:
    107
  5. DobermannTT
    Ответов:
    10
    Просмотров:
    128
Статус темы:
Закрыта.

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