| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TADODataSet.CreateParameter в ран-тайме [D5, MSSQL]

Ega23 ©   (2005-11-25 13:13:00) 

В чём может быть проблема?
Есть запрос, крутящийся в отдельном потоке. Берёт данные из БД по параметру (больше, чем некая дата) и кладёт их в потоко-защищённую очередь. Время исполнения запроса надо максимально уменьшить.

Если динамически генерить запрос - всё прекрасно работает:

procedure TEventDataThread.Execute;
begin
 while not Terminated do
  begin
   FADOQuery.Close;
   FADOQuery.CommandText:='exec S_EventProtoProc @ActNam="Sel", @DatIn='+ValX(LastDatIn);
   try
    FADOQuery.Open;
    FADOQuery.First;
    LastDatIn:=FADOQuery.FieldByName('DatIn').AsDateTime;
    FQueue.Push(FADOQuery);
   finally
    //Suspend;
    Sleep(100);
   end;

  end;
end;


ValX - перевод даты в SQL-формат.

Воспользовался рекомендацией sniknic, сделал ему Prepare и попытался перевести на параметры:

constructor TEventDataThread. Create(aConnectionString:String; Queue:TEventDataQueue);
begin
...........
 FADOQuery:=TADOdataSet.Create(nil);
 FADOQuery.Connection:=ADOConnection;
 FADOQuery.CommandText:='exec S_EventProtoProc @ActNam="Sel", @DatIn=:DatIn';
 FADOQuery.Parameters.CreateParameter('DatIn',ftDateTime, pdInput,8,Null);
 FADOQuery.Prepared      := true;
....

В execute:

 while not Terminated do
  begin
   FADOQuery.Close;
   //FADOQuery.CommandText:='exec S_EventProtoProc @ActNam="Sel", @DatIn='+ValX(LastDatIn);
   FADOQuery.Parameters.ParamByName('DatIn').Value:=LastDatIn;
   try
    FADOQuery.Open;



На Open ругается -
Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done.

Что делаю не так?

---

Ega23   (2005-11-25 13:39:00) [1]

Так, с ParamCheck:=False уже лучше. Уже всего лишь Инсоррект синтакс   :о)
Про Paramcheck я как-то и забыл...

---

sniknik   (2005-11-25 13:34:00) [2]

Плохиш ©   (25.11.05 13:31) [4]
да еще и это. или убрать строку с препаред.

---

sniknik   (2005-11-25 13:32:00) [3]

> Это уже я не понял. Что ты имел ввиду?
ты же сам пытаешся создать параметр, так? ну значит надо отключить автосоздание и пользоваться "канонической" формой запроса.

---

Плохиш   (2005-11-25 13:31:00) [4]

>  FADOQuery.Prepared      := true;

Эта строка пересоздаёт список параметров заново.
Попробуй после неё установить тип параметру.

---

Ega23   (2005-11-25 13:31:00) [5]

> в циклах, ставлю перед
> DatInPar:= FADOQuery.Parameters.ParamByName('DatIn');
> в цикле уже
> DatInPar.Value:= LastDatIn;
> DatInPar тут естественно типа параметр. и + добавляю with,
>  хотя и нелюблю его ;).


Это я, безусловно, позже сделаю. Сейчас общей функциональности добиться надо. А она пока хромает...  :о)

---

sniknik   (2005-11-25 13:29:00) [6]

и еще, если надо ускорить циклы, обычно избавляюсь от всяких "по имени" (в основном для полей, но тут...) т.е.
вместо
> FADOQuery.Parameters.ParamByName('DatIn').Value:=LastDatIn;
в циклах, ставлю перед
DatInPar:= FADOQuery.Parameters.ParamByName('DatIn');
в цикле уже
DatInPar.Value:= LastDatIn;
DatInPar тут естественно типа параметр. и + добавляю with, хотя и нелюблю его ;). (в смысле использовать... а вы что подумали?)

---

Ega23   (2005-11-25 13:28:00) [7]

> строка конекта похоже неправильная. говорят проверь каждое
> значение.
>


Строка правильная. Я тоже сначала на это подумал. Изголялся всячески. Но первый вариант-то - работает!


>FADOQuery.CommandText:='exec S_EventProtoProc @ActNam="Sel", @DatIn= ?';


Это уже я не понял. Что ты имел ввиду?

---

sniknik   (2005-11-25 13:22:00) [8]

строка конекта похоже неправильная. говорят проверь каждое значение.

и для уверености
FADOQuery:=TADOdataSet.Create(nil);
FADOQuery.ParamCheck:= false;
FADOQuery.CommandText:='exec S_EventProtoProc @ActNam="Sel", @DatIn=?';
...
либо не создавай параметр сам (т.е. вместо этого убери строку с CreateParameter).

---

Наверх