Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 2003.01.16;
Скачать: [xml.tar.bz2];

Вниз

Как записать графическое изображение в 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 и будет сказка ! :-)


 
Hooch   (2002-12-23 15:49) [9]

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


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

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


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

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



Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2003.01.16;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.015 c
1-49154
diww
2003-01-04 19:32
2003.01.16
нажать кнопку во время работы проги


7-49328
TankMan
2002-10-31 19:08
2003.01.16
Как


1-49162
Fider
2003-01-05 08:36
2003.01.16
Помогите с RunTime!!!!!


3-48845
Senator
2002-12-19 15:40
2003.01.16
Bookmark


14-49203
Карлсон
2002-12-28 00:18
2003.01.16
процессоры, мамки.....





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский