Здравствуйте!
Мне нужно добавить из Memo текст в поле BLOB.
У меня был обычный SQL на добавления записей в б.д.

strSQL5 = "INSERT INTO TDOCS ";
strSQL5 += "(TITLE, ANNOTATION, ANNOTATION_E)";
strSQL5 += "VALUES ";
strSQL5 += "(";
strSQL5 += "'" + Edit1->Text + "',";
strSQL5 += "'" + Memo1->Lines->Text + "',";
strSQL5 += "'" + Memo2->Lines->Text + "'";
strSQL5 += ");";
Query1->SQL->Clear();
Query1->SQL->Add( strSQL5 );
Query1->Close();
Query1->ExecSQL();

Потом я изменила поля ANNOTATION, ANNOTATION_E на BLOB SUB_TYPE 1.
Как мне теперь добавлять записи.

Подскажите пожалуйста, очень надо!!!!

Спасибо за комментарии.
Но у меня вопрос, как быть с полем типа BLOB.
Как мне из Memo, добавить данные в поле "ANNOTATION", имеющее тип Blob.
Подскажите, пожалуста!!!!!

Ребят спасибо!
У меня вся проблема заключалась в BLOB полях. Если добвлять обычную запись, то всё хорошо, но когда в BLOB поле, то он ругается.

Нужно было сделать так:
Добавление записи:
TMemoryStream* pms = new TMemoryStream();
Memo1->Lines->SaveToStream(pms);
TMemoryStream* pms1 = new TMemoryStream();
Memo2->Lines->SaveToStream(pms1);

Query1->SQL->Clear();
Query1->SQL->Text = "insert into tdocs (TITLE, ANNOTATION, ANNOTATION_E) values (:TITLE, :TITLE_E, :ANNOTATION, :ANNOTATION_E)";

Query1->ParamByName("TITLE")->Value = Edit1->Text;
Query1->ParamByName("ANNOTATION")->LoadFromStream(pms, ftBlob);
Query1->ParamByName("ANNOTATION_E")->LoadFromStream(pms1, ftBlob);
Query1->ExecSQL();

delete pms;
delete pms1;

Изменение записи:
TMemoryStream* pms = new TMemoryStream();
Memo1->Lines->SaveToStream(pms);
TMemoryStream* pms1 = new TMemoryStream();
Memo2->Lines->SaveToStream(pms1);

Query1->SQL->Clear();
Query1->SQL->Text = "update TDOCS SET TITLE=:TITLE, ANNOTATION=:ANNOTATION, ANNOTATION_E=:ANNOTATION_E, where ID_DOCS=:OLD_ID_DOCS";

Query1->ParamByName("TITLE")->Value = Edit1->Text;
Query1->ParamByName("TITLE_E")->Value = Edit2->Text;
Query1->ParamByName("ANNOTATION")->LoadFromStream(pms, ftBlob);
Query1->ParamByName("ANNOTATION_E")->LoadFromStream(pms1, ftBlob);
Query1->ParamByName("OLD_ID_DOCS")->Value = Query_Doc->FieldByName("ID_DOCS")->AsString;

Query1->ExecSQL();

delete pms;
delete pms1;