Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Не работает INSERT [D5, Paradox]

Anics © (2002-11-21 08:50:00)
Программа такая
var
C: integer;

C := Query1.FieldByname("Chislo").AsInteger;
Query2.SQL.Add("INSERT INTO tablica (Kod)");
Query2.SQL.Add("VALUES (:P1)");
Query2.SQL.ParamByName("P1").AsInteger := C;
Query2.ExecSQL

В результате ошибка Type mismath in expression
Помогите разобраться в чем дело

kostya (2002-11-21 13:54:00) [1]
Извини, за маленький глюк ! Последнее ВЕРНО !!! У меня работает!

kostya (2002-11-21 13:52:00) [2]

> Query2.SQL.ParamByName("P1").AsInteger := C;

Замени на
Query2.SQL.ParamByName("P1").Text:= IntToStr(C);

kostya (2002-11-21 13:52:00) [3]

> Query2.SQL.ParamByName("P1").AsInteger := C;

Замени на
Query2.ParamByName("P1").Text:= IntToStr(C);

kostya (2002-11-21 13:51:00) [4]

> Query2.SQL.ParamByName("P1").AsInteger := C;

Замени на
Query2.SQL.ParamByName("P1").AsInteger := IntToStr(C);

Valeron (2002-11-21 10:00:00) [5]
обшибся, извините :)
написал так
Query2.SQL.Add("VALUES ("" "+StrToInt(C)+" "" )");
а нужно не StrToInt(C) , а IntToStr(C)
Сорри...

Valeron (2002-11-21 09:55:00) [6]
Скажи зачем ты создаешь параметр, если можешь вписать в SQL свое значение?
Типа токого:
...
Query2.SQL.Add("VALUES ("" "+StrToInt(C)+" "" )");
...
А если с параметром так можно(нужно) и не динамически, в при проектировке проги. А протестировать лучше всего в SQL Monitor. Я всегда тестирую там, только потом переношу в программу.

VAleksey (2002-11-21 09:39:00) [7]

> BoxTer © (21.11.02 09:25)

чего - чего ??? ерунда.
приведи структуру таблицы пжлст.

BoxTer (2002-11-21 09:25:00) [8]
и вааще, как ты пытаешься запустить квери без параметра???
.... передачу параметра попробуй сделать до набивки скуля...

sask (2002-11-21 08:56:00) [9]
Посмотри, для начала, что содержится в поле "Chislo"
(Query1.FieldByname("Chislo").AsString)

Наверх

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