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

Вниз

Запись JPEG в БД через запрос   Найти похожие ветки 

 
ssa   (2007-06-12 19:46) [0]

Очень бы хотелось вставлять картинку JPEG в БД не вот этим кодом:

var
 blob: TStream;
 fs:tfilestream;
begin
 dataset.Append;
 blob := dataset.CreateBlobStream(dataset.FieldByName("photo"), bmReadWrite);
 try
   blob.Seek(0, soFromBeginning);
   fs := TFileStream.Create(edit1.Text, fmOpenRead);
   try
     blob.CopyFrom(fs, fs.Size)
   finally
     fs.Free
   end;
 finally
   blob.Free
 end;
 dataset.Post;
end;


, а SQL запросом, например вроде этого
insert into bd (`photo`) values (.....)

помогите это осуществить пожалуйста!


 
Desdechado ©   (2007-06-12 20:08) [1]

Query1.Sql.Text :=
  "INSERT INTO testblob " +
  " ( " +
  "  fBlob" +
  " )" +
  " VALUES" +
  " (" +
  " :ParamBlobField" +
  ")";
Query1.ParamByName("ParamBlobField").DataType := ftBlob;
Query1.ParamByName("ParamBlobField").ParamType := ptInput;
Query1.ParamByName("ParamBlobField").LoadFromFile("MyFile",ftBlob);
Query1.ExecSql;


 
ssa   (2007-06-12 21:31) [2]

большое спасибо



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

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

Наверх




Память: 0.44 MB
Время: 0.05 c
2-1190813292
Kolan
2007-09-26 17:28
2007.10.21
Научите как сделать ToolBar как в D7


2-1191294121
Создатель форм
2007-10-02 07:02
2007.10.21
переключение между MDI Child


11-1174439768
dCarnage
2007-03-21 04:16
2007.10.21
Эмуляция браузинга через EmbeddedWB- написать модуль за $


2-1190627006
misha_gr
2007-09-24 13:43
2007.10.21
TClientDataSet.Locate


6-1172154994
vlad_55
2007-02-22 17:36
2007.10.21
HTML-формы





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский