Как в BLOB поле Вставить текст из TMemo

[Прик]

Это какой же мудреж с записью в БЛОБ.
А ведь просто жить на белом свете (особенно, если речь о мемо):
запись:

  IBQuery1.SQL.Text := 'insert into spisok (bb) values (:fn_BB)';
  IBQuery1.ParamByName('fn_BB').AsBlob := Memo1.Lines.Text;   
  IBQuery1.Transaction.StartTransaction;
  IBQuery1.ExecSQL;
  IBQuery1.Transaction.Commit;

Чтение (без текста запроса):

  if not IBQuery1.Eof then begin
      Memo1.Lines.Text := (IBQuery1.FieldByName('fn_BB') as TBlobField).Value;
  end;

Transaction.Active:=false;

А это нафига? НЕ НАДА (commit приводит компонент активной транзакции в состояние false).

[Yurk@]

Сообщение от unypol

Спасибо!!! То что надо!!! А то у меня примерно 200 - 250 полей...

я бы очень не рекомендовал делать такое кол-во полей в 1й таблице - очень сильно сказывается на скорости
возможно какую-то часть (большую) перенести в другую таблицу и тянуть отттуда по мере необходимости?

Прик, разве здесь не то же написано?

[Прик]

Прик, разве здесь не то же написано?

Виноват, сослепу вначале не обратил внимания.
Конечно, все то же самое.
Разве, только, почему-то транзакция не стартует.