Как записать графическое изображение в MS SQL, используя ADO?

← →
Newer (2002-12-23 13:20) [0]

Подскажите, как записать в поле БД типа binary графическое изображение в MS SQL, используя ADO-компоненты?

← →
Hooch © (2002-12-23 13:29) [1]

INSERT INTO Image VALUES(:Image)

Query.Parameters.ParamByName("Image").LoadFromStream(MS,ftBlob);

где MS - поток в котором картинка

← →
Newer (2002-12-23 13:40) [2]

А как поместить в поток изображение?

← →
Hooch © (2002-12-23 13:42) [3]

А оно у тебя в чем лежит ?

← →
Newer (2002-12-23 13:51) [4]

Просто графический файл

← →
Hooch © (2002-12-23 13:58) [5]

var
MS : TFileStream;
begin
MS := TFileStream.Create("X:\XXX\Оооооо.JPG",fmOpenRead);
try
...
Query.Parameters.
ParamByName("Image").LoadFromStream(MS,ftBlob);
Query.ExecSql;
finally
MS.Free;
end;
end;

← →
Newer (2002-12-23 14:12) [6]

Ругается, пишет ошибка "String or binary data would be truncated"

Структура таблицы:
Id int {identity}
EmpFile binary

Код:
procedure TfmMain.Button1Click(Sender: TObject); var MS : TFileStream; begin MS := TFileStream.Create("D:\Test.jpg", fmOpenRead); with Query1 do try Close; SQL.Text := "Insert Into dbo.T_EmpFile (EmpFile) Values (:pmEmpFile)"; Parameters.ParamByName("pmEmpFile").LoadFromStream(MS, ftBlob); ExecSQL; finally MS.Free; end; end;

В чем может быть проблема?

← →
Newer (2002-12-23 15:29) [7]

Народ, помогите!!!

← →
Hooch © (2002-12-23 15:48) [8]

не binary а Image и будет сказка ! :-)

имеется ввиду тип поля в таблице

← →
Newer (2002-12-23 15:49) [10]

Да, точно, я уже понял, спасибо!

← →
Newer (2002-12-23 15:50) [11]

Hooch, ты в Аське бываешь?

Как записать графическое изображение в MS SQL, используя ADO? Найти похожие ветки