void __fastcall TForm2::Button1Click(TObject *Sender)
{
ADOTable1->TableName = "Имя таблицы";
ADOTable1->Active = true;
ADOTable1->Edit();
ADOTable1->Insert();
if(RadioButton1->Checked ==true) ADOTable1->FieldByName("Поле1")->AsString = "1-50" ;
else ADOTable1->FieldByName("Поле1")->AsString = "3-50" ;
TStream *pBS;
TFileStream *pFS = new TFileStream(LSetFile->Caption, fmOpenRead);
pBS = ADOTable1->CreateBlobStream(ADOTable1->FieldByName("Поле OLE"), bmWrite);
pBS->CopyFrom(pFS, pFS->Size);
ADOTable1->Post();
ADOTable1->Active = false;
delete pFS;
}
Вставка OLE в бд
Подскажите пожалуста, как вставить OLE объект посредством борланда в бд Access
Сообщение удалено.
(причина - в нижнем посте).. :)
(причина - в нижнем посте).. :)
Цитата:
Сообщение форума
Извините, нет совпадений. Попробуйте указать другие темы
Извините, нет совпадений. Попробуйте указать другие темы
Поконкретнее плз
:) Сорри.. Не знал, что движок себя так поведет!!
Тебе нужна информация по BLOB полям!!
Вот к примеру:
http://forum.codenet.ru/showthread.php?t=27183&highlight=blob
Тебе нужна информация по BLOB полям!!
Вот к примеру:
http://forum.codenet.ru/showthread.php?t=27183&highlight=blob
Вот, спасибо большое =)
Хех... Возникла проблемка: делаю точно так, как в примере, но файл все равно не вставляется, причем ошибок вроде не возникает...
Приведу код на всякий случай:
Приведу код на всякий случай:
Код: