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

[unypol]

Очень большая проблема...поможете в долгу не останусь
Необходимо провести сохранение в базу Blob поле базы данных текста Мемо.
Использую InterBase.

procedure TСТРОЙПРОЕКТ.Button8Click(Sender: TObject);
var
  sl : TStringList;
begin



 //Fnew:=true;
////сохранить
try
with IBQuery2 do
begin
  if Fnew then
  begin
  SQL.Text := 'execute procedure PROC_spisok('+ id.Text +', ''' + eOo.Text + ''',  ''' + etvnperek.Text + ''')';
    Transaction.StartTransaction;
  ExecSQL;

  Transaction.Commit;
             
  Transaction.Active:=false;

  SQL.Text := 'execute procedure spisok1('+ id.text +','+ teplo1.Text +')';
   ExecSQL;

  Transaction.Commit;

Подскажите как всётаки организовать запись и последующий вывод данных из БЛОБ поля.

[artemavd]

1. Использовать параметры в запросе.
2. Строка

Transaction.Active:=false;

- лишняя.

[unypol]

У меня ничего не выходит, можно поподробнее как сделать запись в блоб поле из ТМемо?

попробовал вот так сделать выдаёт ошибку: IBQuery2: Cannot perform this on closed dataset

St := TMemoryStream.Create;
 teplo1.Lines.SaveToStream(St);
 St.Position:=0;
 IBQuery2.Insert;
 TBlobField(IBQuery2.FieldByName('bb')).LoadFromStream(st);
    if IBQuery2.Modified then
     IBQuery2.Post;
     St.Free;

Помогите с кодом...очень прошу...

Пробую вот так:

 sql.Add('update spisok set bb  where id = ' + id.Text);
   Open;
   if RecordCount > 0 then
  begin
    Edit;
    TBlobField(IBQuery1.FieldByName('bb')).AsString := teplo1.Lines.Text;
    if Modified then
      Post
  end;
  Transaction.StartTransaction;
    ExecSQL;
  Transaction.Commit;
  Transaction.Active:=false;

Ошибок не возникает, но при считываниие обратно в memo поле:
teplo1.Lines.Text := IBQuery1.FieldByName('bb').AsString ;

поле оказывается пустым...
Помогите кто нибудь

Вот так пробую , тоже пусто

 sql.Clear;
   sql.Add('update spisok set bb  where id = ' + id.Text);
   IBQuery1.Open;
   stream := TStringList.Create;

  begin
    IBQuery1.Edit;
IBQuery1.FieldByName('bb').AsVariant := teplo1.lines.Text;
      IBQuery1.Post;
  end;
  Transaction.StartTransaction;
    ExecSQL;
  Transaction.Commit;
  Transaction.Active:=false;

Есть тут знатоки, как мне всётаки сделать запись из мемо в блоб ???

[Yurk@]

IBQuery1.Close;
IBQuery1.SQL.Text:='UPDATE tablitsa SET field = :p_field WHERE id = :id';
TBlobField(IBQuery1.ParamByName('field')).Value:=Memo1.Text;
IBQuery1.ExecSQL;
SQL_TR.Commit; // SQL_TR - транзакция

[Аватар]

TBlobField(IBQuery1.ParamByName('fi eld')).Value

TParam приводится к TBlobField? Что-то новое. Там или метод LoadFromStream, или SetBlobData. Возможно и Assign подойдет

[unypol]

Сообщение от Yurk@

IBQuery1.Close;
IBQuery1.SQL.Text:='UPDATE tablitsa SET field = :p_field WHERE id = :id';
TBlobField(IBQuery1.ParamByName('field')).Value:=Memo1.Text;
IBQuery1.ExecSQL;
SQL_TR.Commit; // SQL_TR - транзакция

Получаем ошибку:
[DCC Error] Unit3.pas(1114): E2010 Incompatible types: 'TBytes' and 'TCaption'

Есть ещё какие нибудь варианты????

St := TMemoryStream.Create;

teplo1.Lines.SaveToStream(St);
St.Position:=0;
edit;
SQL.Text := 'insert into spisok (bb) values (:fn_BB)';
TBlobField(IBQuery1.FieldByName('bb ')).LoadFromStream(St);
Transaction.StartTransaction;
ExecSQL;

Transaction.Commit;
Transaction.Active:=false;

Вроде бы правильно, но тут возникает ошибка: Cannot perform this operation on a closed dataset/// Подскажите как исправить

Люди помогите!!!!

Сделал вот так
SQL.Text := 'execute procedure mblob('+ id.Text +', '''+ teplo1.lines.Text +''')';
но после загрузки BLOB обратно в мемо получаем кракозыбры:
⃨⃿ﯬ⃻⃮ ⻬턠ഠ￨⃠ﳲ⃾ Ⳡ⃨ﻠ⃨⃩⃨ ⻻਍

Как поправить не подскажете???

[Yurk@]

у меня на firebird 2.5 отлично работает

procedure TForm1.btnSaveToBlobClick(Sender: TObject);
begin
IQ.Close;
IQ.SQL.Text:='UPDATE TBL SET b_pole = :p_blob WHERE id = :p_id';
IQ.ParamByName('p_id').AsInteger:=1;
IQ.ParamByName('p_blob').AsBlob:=Memo1.Text;
IQ.ExecSQL;
IQ_TR.Commit;
end;

procedure TForm1.btnGetBlobDataClick(Sender: TObject);
begin
IQ.Close;
IQ.SQL.Text:='SELECT * FROM TBL';
IQ.Open;
Memo1.Text:=IQ.FieldByName('b_pole').AsString;
end;

ЗЫ. в самой БД блоб поле имеет тип "text", длину 5000 и кодировку WIN1251 (в базе и в приложении)

[unypol]

Сообщение от Yurk@

у меня на firebird 2.5 отлично работает

procedure TForm1.btnSaveToBlobClick(Sender: TObject);
begin
IQ.Close;
IQ.SQL.Text:='UPDATE TBL SET b_pole = :p_blob WHERE id = :p_id';
IQ.ParamByName('p_id').AsInteger:=1;
IQ.ParamByName('p_blob').AsBlob:=Memo1.Text;
IQ.ExecSQL;
IQ_TR.Commit;
end;

procedure TForm1.btnGetBlobDataClick(Sender: TObject);
begin
IQ.Close;
IQ.SQL.Text:='SELECT * FROM TBL';
IQ.Open;
Memo1.Text:=IQ.FieldByName('b_pole').AsString;
end;

ЗЫ. в самой БД блоб поле имеет тип "text", длину 5000 и кодировку WIN1251 (в базе и в приложении)

Решил задачу следующим образом:
создал процедуру в IB expert:

begin
update
spisok
set
BB=:fn_BB,
MHAR=:fn_mhar,
opisanie=:Fn_opisanie,
melek=:FN_MELEK,
elektroprov=:fn_elek,
vivod462=:fn_vivod462,
TEPLO=:fn_teplo
WHERE
ID=:fn_id;


end

Сделал SQL запрос из Delphi :

SQL.Text := 'execute procedure mblob('+ id.Text +', '''+ teplo1.lines.Text +''', '''+ eopisanie.lines.Text +''', '''+ mhar.lines.Text +''', '''+ melek.lines.Text + ''', '''+ elektroprovodka.lines.Text + ''', '''+ VIVOD462.lines.Text + ''', '''+ teplo.lines.Text + ''')';

Вывод данных их блоб поля осуществил вот так:

teplo1.Lines.Text := IBQuery1.FieldByName('bb').AsString;
eOpisanie.Lines.Text := IBQuery1.FieldByName('opisanie').AsString;
mhar.Lines.Text := IBQuery1.FieldByName('mhar').AsString;
mElek.Lines.Text := IBQuery1.FieldByName('melek').AsString;
elektroprovodka.Lines.Text := IBQuery1.FieldByName('elektroprov').AsString;
VIVOD462.Lines.Text := IBQuery1.FieldByName('VIVOD462').AsString;
teplo.Lines.Text := IBQuery1.FieldByName('teplo').AsString;

Всем спасибо!!!!

Ещё вопрос. Не подкажете сколько полей максимум может иметь база данных???

[Yurk@]

если не изменяет память - до 1000

[unypol]

Сообщение от Yurk@

если не изменяет память - до 1000

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

Ты заколебал чат тут разводить!!! Еще раз увижу в твоем исполнении 3 страницы чата без оформленного тегами кода - забаню пожизненно!!!