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

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

Вставить данные [D5, Paradox]

Страницы:   < 1 2 >

Klerk ©   (2004-05-11 16:53:00) 

Пытаюсь делать так:
sql.add('insert into "'+WorkBaza+'" (Schet) values(:Schet)');
 Params[0].asinteger := strtoint(Edit1.text);
При выполнении даёт ошиьку о несовпадении типов.
В Таблице (Paradox7) поле Schet имеет тип S.
Подскажите, как правильно задать параметр?

---

Klerk   (2004-05-11 17:16:00) [21]

>Anatoly Podgoretsky ©   (11.05.04 17:15) [4]
>Params[0].AsString := Edit1.text;

Так ведь тип поля в БД :Short.

---

Соловьев   (2004-05-11 17:16:00) [22]

> Params[0].asinteger := strtoint(Edit1.text);
>  Params[1].Asdate := strtodate(Maskedit1.text);
>  Params[2].AsString := Edit3.text;

ParamByName('Schet').AsInteger := strtoint(Edit1.text);
ParamByName('Wroten').AsDateTime := strtodate(Maskedit1.text);
ParamByName('Firma').AsString := Edit3.text;

---

Anatoly Podgoretsky   (2004-05-11 17:15:00) [23]

Params[0].AsString := Edit1.text;

---

Klerk   (2004-05-11 17:10:00) [24]

with query1 do
 begin
 sql.clear;
 sql.add('insert into "'+WorkBaza+'" (Schet,Wroten,Firma) values (:Schet,:Wroten,:Firma)');
 Params[0].asinteger := strtoint(Edit1.text);
 Params[1].Asdate := strtodate(Maskedit1.text);
 Params[2].AsString := Edit3.text;
 showmessage(sql.text);
 //execsql;
 end;
Если убрать Params[0], то всё ОК.
То есть, похоже ошибка в этой строке.
Как вообще Short и Integer сочетаются?

---

Соловьев   (2004-05-11 16:55:00) [25]

> sql.add('insert into "'+WorkBaza+'" (Schet) values(:Schet)');
>  Params[0].asinteger := strtoint(Edit1.text);

все можно глянуть?
и перед выполнением посмотри что в Sql.

---

sniknik   (2004-05-11 16:55:00) [26]

кавычки походу лишнии ("")

---

Страницы:   < 1 2 >

Наверх