Главная страница
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.073 c
4-1133045302
Volf_555
2005-11-27 01:48
2006.02.12
Как завершить процесс, зная откуда он запущен?


2-1138003499
mozgan
2006-01-23 11:04
2006.02.12
"Размножение" компонента Image1


1-1136634959
Zoidberg
2006-01-07 14:55
2006.02.12
Как изменить позицию элемена в TListView


1-1137167360
ахмед
2006-01-13 18:49
2006.02.12
как узнать размер текста в memo


15-1137648038
begin...end
2006-01-19 08:20
2006.02.12
С Днём рождения! 19 января