Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.02.12;
Скачать: CL | DM;

Вниз

JPEG + Access + Delphi   Найти похожие ветки 

 
Devil2005   (2005-12-12 13:07) [0]

Привет всем!
Вчера весь день проламал голову над своей проблемой. Delphi не мой основной язык программирования, поэтому прошу ногами не пинать за возможно ламмерский вопрос. Мне надо занести в MS Access (поле Мемо или ОЛЕ) исходник картинки (джипег например). Всё бы хорошо, но вот с запросом проблема (я точного синтаксиса не помню, но идея, думаю, понятна):

var := JPEGSourseASString;
ADOCommand1.CommandText = "INSERT INTO table(picture) VALUES("""+JPEGSourseASString+""")";
ADOCommand1.Execute;

ошибка при запросе как я понял из сообщения происходит из-за наличия специальных символов. Я пробовал перевести строку в юникод, делать quote но это не помагает. видимо должна быть функция, которая решает проблему со строкой. или ещё какой-то способ.
мне нужно решить проблему именно в таком формате, т.е. руками писать запрос INSERT.

заранеее спасибо за помощь. Алекс.


 
Desdechado ©   (2005-12-12 13:16) [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;


 
Devil2005   (2005-12-12 16:05) [2]

Спасибо, попробую.



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

Текущий архив: 2006.02.12;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.066 c
15-1137909887
begin...end
2006-01-22 09:04
2006.02.12
С Днём рождения! 22 января


6-1131143339
Sysanin
2005-11-05 01:28
2006.02.12
ServerSocket ошибка при отправке


2-1138121355
Ell
2006-01-24 19:49
2006.02.12
Как уменьшить размер программы?


15-1137765680
Aldor
2006-01-20 17:01
2006.02.12
Как в Москве добраться до Повелецкого вокзала без метро?


15-1137855554
Andy BitOff
2006-01-21 17:59
2006.02.12
Очень сильная и красивая фильма