не работает запрос

← →
mmip © (2007-01-19 15:52) [0]

select * from Custom where Sub=:sd1

Query1.close;
Query1.Params[0].Value:=sd;
Query1.Prepare;
query1.ExecSQL;

Не определяет параметр, ищет всегда по =0.
Почему????????? Задолбался уже

← →
Игорь Шевченко © (2007-01-19 15:55) [1]

> Query1.Params[0].Value:=sd;
> Query1.Prepare;

строчки местами поменяй

← →
mmip © (2007-01-19 15:57) [2]

Менял уже не помогает

← →
Игорь Шевченко © (2007-01-19 16:13) [3]

А вместо ExecSql Open не пробовал ?

← →
mmip © (2007-01-19 16:17) [4]

Пробовал
Я же и говорю, сил уже нет, как глюк какой-то

← →
Игорь Шевченко © (2007-01-19 16:24) [5]

> Я же и говорю, сил уже нет, как глюк какой-то

Тогда больше кода в студию

← →
mmip © (2007-01-19 16:28) [6]

Table2.first;
for i:=1 to Table2.recordcount do begin
Ts:= Table2.FieldValues["TypeDescr"];
SD:= Table2.FieldValues["SubDescr"];
seq:= Table2.FieldValues["Seq"];
Val:= Table2.FieldValues["Value"];

// íàõîäèì âñå çàïèñè äëÿ òåêóùåé ôîðìû

Query1.close;

Query1.Prepare;
Query1.Params[0].Value:=sd;
query1.open;

for j:=1 to maxj do begin
if FormN[j]=Sd then begin
sd:=sd+maxj;
inc(maxj);// êîëè÷åñòâî ôîðì
end;
end;

Query1.First;
kol:= Query1.RecordCount ;
for k:=1 to kol do begin
Table1.Insert;
Table1.FieldByName("TypeDescr").Value:=Query1.FieldByName("TypeDescr").Value;
Table1.FieldByName("SubDescr").Value:=sd;
Table1.FieldByName("Seq").Value:=query1.FieldByName("Seq").Value;
Table1.FieldByName("Value").Value:=Table1.FieldByName("Value").Value;
Table1.Post;
Query1.Next;
end;

← →
Sergey13 © (2007-01-19 16:48) [7]

> [6] mmip © (19.01.07 16:28)

Параметр в списке параметров у квери1 в дизайнере появляется? Какого типа?

← →
Игорь Шевченко © (2007-01-19 16:50) [8]

> query1.open;

а на Query1.Eof проверить не надо ? Может, и не выбралось ничего ?

← →
mmip © (2007-01-19 17:06) [9]

параметр определяется, задаю его вручную FtInteger

← →
mmip © (2007-01-19 17:07) [10]

> а на Query1.Eof проверить не надо ? Может, и не выбралось
> ничего ?

Конечно не выбралось, там с параметром=0 и не должно ничего выбираться

← →
Игорь Шевченко © (2007-01-19 17:10) [11]

mmip © (19.01.07 17:07) [10]

а что говорит отладчик о значении переменной sd ?

← →
mmip © (2007-01-19 17:16) [12]

что она равна 1, и даже Query1.Params[0].Value=1 (в отладчике), а работает как при нулевом параметре.

Если явно задать Query1.Params[0].Value:=1, то работает правильно

← →
Игорь Шевченко © (2007-01-19 17:28) [13]

попробуй Params[0].AsInteger := sd

:) тоже пробовал, не получается и все тут. Может у меня Delphi криво стоит или еще что-то подобное?

Причем через ADODataSet та же фигня

Вот примечательное место
for j:=1 to maxj do begin if FormN[j]=Sd then begin sd:=sd+maxj; inc(maxj);// êîëè÷åñòâî ôîðì end; end;
по поводу "Delphi криво стоит или еще что-то подобное"
:)))

убираю этот кусок вообще, результат тотже

> убираю этот кусок вообще, результат тотже

Вообще-то я о другом. Ну да ладно...

Итак, какая СУБД и текущий "неработающий" код?

СУБД MSSQL

не работает запрос Найти похожие ветки