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

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

параметры

Sakses ©   (2003-06-07 16:34:00) 

Есть таблица, в которую нужно вставить в поле picture картинку.
Есть такой код.

MS := TMemoryStream.Create;
try
Image.Picture.Bitmap.SaveToStream(MS);
s:="Insert into OBJECT (NAME, Picture) Values(Name1, :Param)";
Query1.SQL.Add(s);
Query1.ParamByName("Param").LoadFromStream(MS, BT);
finally
MS.Free;
end;
Query1.ExecSQL;

но это не работает, т.к. параметр не создан у query1 (всмысле не создан статически). При таком варианте кода выдается сообщение об ошибки "Query1: Field "Param" is of an unsupported type". Может что подскажете?

---

sakses   (2003-06-07 18:18:00) [1]

свою ошибку нашла, параметры ни при чем :))

---

Desdechado   (2003-06-07 17:40:00) [2]

вид и тип параметра:
Query1.ParamByName("ParamBlobField").DataType := ftBlob;
Query1.ParamByName("ParamBlobField").ParamType := ptInput;

---

sakses   (2003-06-07 17:37:00) [3]

ParamCheck в true
Query1.SQL.Clear есть (привела код в неполном объеме)
задать явно тип это как?

(Query1.ParamByName("Param") as TBlobType).LoadFromStream(MS, BT);

это не проходит (компилятор ругается)....

---

sniknik   (2003-06-07 16:54:00) [4]

может у тебя ParamCheck стоит в false
и делай очистку запроса т.е. попробуй так

try
Image.Picture.Bitmap.SaveToStream(MS);
Query1.ParamCheck:= true;
Query1.SQL.Clear;
Query1.SQL.Add("Insert into OBJECT (NAME, Picture) Values(Name1, :Param)");
....

(хотя может это не от этого, а изза используемых OBJECT,Picture (могут быть зарезервированными)
ну и тип параметру можно попробовать явно задать. > "... unsupported type"

---

Наверх