параметры

← →
Sakses © (2003-06-07 16:34) [0]

Есть таблица, в которую нужно вставить в поле 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". Может что подскажете?

← →
sniknik © (2003-06-07 16:54) [1]

может у тебя 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"

← →
sakses © (2003-06-07 17:37) [2]

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

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

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

← →
Desdechado © (2003-06-07 17:40) [3]

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

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

параметры Найти похожие ветки