保存CLOB内容的问题(急)
在论坛上找遍了,还是没有解决问题.
保存CLOB字段的时候提示"ADOQuery1: Dataset not in edit or insert mode."
以下是我写的代码:
AnsiString szSql,szFieldName;
AnsiString szTableName;
AnsiString szFilter;
try
{
szTableName = GetModelTableName(bDraftModel);
szSql ="select * from "+szTableName +" where MODELID="+IntToStr(m_lModelID);
m_pQuery->SQL->Clear();
m_pQuery->SQL->Add(szSql);
m_pQuery->Open();
m_pQuery->Edit();
WideString szFilePath;
char szPath[_MAX_PATH];
GetTempFilePath(szPath);
szFilePath = szPath;
m_pChinaExcel->SaveFile(szFilePath);
TFileStream *Stream1;
Stream1 = new TFileStream(szFilePath, mOpenRead|fmShareDenyNone);
TADOBlobStream *Stream = new TADOBlobStream((TBlobField*)m_pQuery->FieldByName("DEFINE"),bmReadWrite);
try
{
Stream->CopyFrom(Stream1, Stream1->Size);
m_pQuery->Post();
}
__finally
{
delete Stream;
}
}
catch (Exception &exception)
{
return false;
};