VPF::RichEdit +Firebird - Форум программистов

php5

Дата 18.8.2009, 18:40 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 272
Регистрация: 15.8.2007

Репутация: нет
Всего: нет

Нужно данные из RichEdit загнать в БД в поле CONTENT типа Blob
Как это сделать?
Пребывал сделать это через IBQuery так:

Код


IBQuery1->Edit();
if (IBQuery1->State == dsEdit){
    pStream=IBQuery1->CreateBlobStream(IBQuery1->FieldByName("CONTENT"),bmWrite);
    pStream->Seek(0, 2);
    pStream->Write(RichEdit1->Text.c_str(), RichEdit1->Text.Length());
    delete pStream;
    IBQuery1->Post();
}

Но получаю ошибку «ibquery cannot modify a read-only dataset»

Это сообщение отредактировал(а) php5 - 18.8.2009, 18:40

Данкинг

Дата 18.8.2009, 19:05 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

Цитата(php5 @ 18.8.2009, 19:40

)

ibquery cannot modify a read-only dataset

Ну так IbQuery - нередактируемый запрос. Используй IBTable.

--------------------

There's nothing left but silent epitaphs.

php5

Дата 19.8.2009, 10:00 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 272
Регистрация: 15.8.2007

Репутация: нет
Всего: нет

Делаю вставку данных через IBTable, данные вставляются, но когда я их снова загоняю из БД в RichEdit, то получаю обычный текст, как это исправить?

php5

Дата 19.8.2009, 10:21 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 272
Регистрация: 15.8.2007

Репутация: нет
Всего: нет

Помог следующий код
IBTable1->Open();
  IBTable1->Edit();
  TMemoryStream *mem = new  TMemoryStream();
  try {
    RichEdit1->Lines->SaveToStream(mem);
    TBlobField* Blob = dynamic_cast<TBlobField*>(IBTable1->FieldByName("CONTENT"));
    if(Blob != NULL)
       Blob->LoadFromStream(mem);
  }
  __finally { delete mem; }
  IBTable1->Post();

php5

Дата 19.8.2009, 11:01 (ссылка)

(голосов:1)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 272
Регистрация: 15.8.2007

Репутация: нет
Всего: нет

Сделал через IBQuery так :

Код


TMemoryStream *mem = new  TMemoryStream();
  RichEdit1->Lines->SaveToStream(mem);
  AnsiString sql="UPDATE TEMPLATE_DOGOVOR SET CONTENT=:BlobVal WHERE ID_TEMPLATE_DOGOVOR="+IntToStr(Tag);
 IBQuery ->Close();
 IBQuery ->SQL->Clear();
IBQuery ->SQL->Add(sql);
 IBQuery ->ParamByName("BlobVal")->LoadFromStream(mem,ftBlob);
 IBQuery ->ExecSQL();

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C++ Builder \| Следующая тема »