Как всегда SQL :(

← →
Washington © (2008-01-12 11:11) [0]

Запрос:
OldData:=DateToStr(MonthCalendar1.Date); OldPlan:=Label1.Caption; Data:=DateEdit.Text; Plan:=PlanEdit.Text; with ADOQuery1 do begin close; SQL.Clear; SQL.Add("Update Plans"); SQL.Add("Set Plan=:pPlan and Data=:pData"); SQL.Add("Where Plan=:pOldPlan and Data=:pOldData"); Parameters.ParseSQL(SQL.Text,true); Prepared:=true; Parameters.ParamValues["pPlan"]:=Plan; Parameters.ParamValues["pData"]:=Data; Parameters.ParamValues["pOldPlan"]:=OldPlan; Parameters.ParamValues["pOldData"]:=OldData; ExecSQL; end;
В поле PlanEdit пишу одно, в результате в таблице Plans в поле Plan записывается -1. Уже все перепровел, что можно было, в чём может быть ошибка? Подскажите плз.

← →
engine © (2008-01-12 11:52) [1]

> OldData:=DateToStr(MonthCalendar1.Date);
> OldPlan:=Label1.Caption;
> Data:=DateEdit.Text;
> Plan:=PlanEdit.Text;
> with ADOQuery1 do
> begin
> close;
> SQL.Clear;
> SQL.Add("Update Plans");
> SQL.Add("Set Plan=:pPlan and Data=:pData");
> SQL.Add("Where Plan=:pOldPlan and Data=:pOldData");
> Parameters.ParseSQL(SQL.Text,true);
> Prepared:=true;
> Parameters.ParamValues["pPlan"]:=Plan;
> Parameters.ParamValues["pData"]:=Data;
> Parameters.ParamValues["pOldPlan"]:=OldPlan;
> Parameters.ParamValues["pOldData"]:=OldData;
> ExecSQL;
> end;

Лишние переменные втопку.
SQL.Clear  втопку;
SQL.Add  втопку;
Если вид запроса не меняется, то SQL.Text присваиваем где нибудь вначале а заодно и Prepare, иначе, делаем как показано ниже:

with ADOQuery1 do begin Close; SQL.Text := "Update Plans Set Plan=:pPlan and Data=:pData Where Plan=:pOldPlan and Data=:pOldData"; Parameters.ParamValues["pPlan"]:=PlanEdit.Text; Parameters.ParamValues["pData"]:=DateEdit.Text; Parameters.ParamValues["pOldPlan"]:=Label1.Caption; Parameters.ParamValues["pOldData"]:=DateToStr(MonthCalendar1.Date);; ExecSQL; end;

← →
Washington © (2008-01-12 11:59) [2]

сделал - та же фигня.

← →
engine © (2008-01-12 12:12) [3]

> [2] Washington © (12.01.08 11:59)

какой тип у поля Plan?
Поставь breakpoint и посмотри значения присваеваемые параметрам.

← →
Washington © (2008-01-12 12:19) [4]

Тип поля план - text

← →
Washington © (2008-01-12 12:20) [5]

если сделать запрос select с теми же параметрами, результат нормальный, именно update тупит

← →
engine © (2008-01-12 12:21) [6]

> [4] Washington © (12.01.08 12:19)

Попробуй перед ExecSqL написать:
ShowMessage(Parameters.ParamValues["pPlan"]);

← →
engine © (2008-01-12 12:22) [7]

> [5] Washington © (12.01.08 12:20)

Это как??? Непонял

> SQL.Clear — втопку;
> SQL.Add — втопку;
ADOQuery1 — втопку;

> Если вид запроса не меняется, то SQL.Text присваиваем где нибудь вначале а заодно и Prepare, иначе, делаем как показано ниже:
вообщето он и здесь не меняется, значения параметров изменяются, запрос нет, т.е. это не "иначе", это, если запрос часто используемый именно и нужно присвоить гденибудь вначале (в десигн) и выполнять после по мере необходимости.

> DateToStr(MonthCalendar1.Date);;
— втопку;

> сделал - та же фигня.
учи SQL, у тебя глюк в присвоении

> вообщето он и здесь не меняется, значения параметров изменяются,
> запрос нет, т.е. это не «иначе», это, если запрос часто
> используемый именно и нужно присвоить гденибудь вначале
> (в десигн) и выполнять после по мере необходимости.

Ну я впринципе тоже самое и имел ввиду

> учи SQL, у тебя глюк в присвоении

вот ведь, а я и не приметил ))

Забейте, сделал по другому:
удалил старую запись, вставил новую. Всё ОК )

Как всегда SQL :( Найти похожие ветки