Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Запись в поле BLOB из TQuery.SQL / 2 сообщений из 2, страница 1 из 1
18.03.2003, 02:25
    #32121629
Ubermensch
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запись в поле BLOB из TQuery.SQL
Можно ли записать в поле типа BLOB, а именно, Graphic (или Memo)
данные посредством SQL-запроса. По средствам TQuery.SQL := '...';

Если так нельзя, то скажите пожалуйста как можно?

Я делаю это так:

with MainDataModule.QueryTemp do
begin
Close;
DatabaseName := cDataBaseName;
with SQL do
begin
Clear;
Add(Format('INSERT INTO %s (Title, Director, Genre, Release, Studio, Country, Duration, MediumKind) VALUES("%s", %d, %d, %d, %d, %d, "%s", %d)',
[...skiped...]);
end;
ExecSQL;
Close;

MainDataModule.MainTable.Last;
Record_ID := MainDataModule.MainTable.Fields.FieldByName('ID').AsInteger;
if Memo1.Text <> '' then
TMemoField(MainDataModule.MainTable.Fields.FieldByName('Review')).Value := Memo1.Text;
//if Edit1.Text <> '' then
// TGraphicField(MainDataModule.MainTable.Fields.FieldByName('Screenshot')).LoadFromFile(Edit1.Text);
end;

Даже если в Memo1.Text не содержиться опасных символов (", '),
например Memo1.Text = 'some text', то вылезает ошибка типа редактирование не возможно. Что делать?
...
Рейтинг: 0 / 0
18.03.2003, 12:22
    #32121944
tygra
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запись в поле BLOB из TQuery.SQL
В TQuery.Sql заносишь запрос insert с параметрами
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
insert into TableName (ID, Name.....ScreenShot) values(:ID, :Name...:ScreenShot)

Потом устанавливаешь значения для параметров
TQuery.Params[ 1 ].asinteger :=  1 ;
TQuery.Params[ 2 ].asstring := 'имя';
...
TQuery.Params[n].LoadFromFile(filename);

TQuery.ExecProc;


Типа такого
...
Рейтинг: 0 / 0
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Запись в поле BLOB из TQuery.SQL / 2 сообщений из 2, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]