保存CLOB内容的问题(急)

[williamhook1234]

在论坛上找遍了,还是没有解决问题.
保存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;
};

[williamhook1234]

我用的ORACLE数据库,原来是用BDE用类似的方法是可以保存CLOB字段的,
现在想改为ADO,就出现不能保存的问题了,但如果只保存CLOB字段以外的
内容,是可以保存的.

• 打赏
• 举报

回复 赞

[williamhook1234]

天哪,怎么就没人能解决我的问题呢???

• 打赏
• 举报

回复 赞

[wsljj_2002]

在Post前delete Stream;试试
我的程序和你的差不多，我的可以

• 打赏
• 举报

回复 赞