Форум: "Базы";
Текущий архив: 2003.07.03;
Скачать: [xml.tar.bz2];
Внизпараметры Найти похожие ветки
← →
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;
← →
sakses (2003-06-07 18:18) [4]свою ошибку нашла, параметры ни при чем :))
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2003.07.03;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c