blob的问题

[joinclear]

TBlobStream* TemplateStream;

ADOQuery1->Close();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("select * from drv_admin.drv_photo ");
ADOQuery1->Open();

ADOQuery1->FieldByName("sfzmhm")->AsString = Edit1->Text ;
ADOQuery1->FieldByName("gxsj")->AsString = Now().FormatString("yyyy-mm-dd hh:mm:ss");

TBlobField * pField=(TBlobField *)ADOQuery1->FieldByName("zp");
TADOBlobStream * pmem=new TADOBlobStream (pField,bmWrite);

TJPEGImage *jp;
jp = new TJPEGImage();
jp->LoadFromFile(OpenPictureDialog1->FileName);
jp->SaveToStream(pmem);

ADOQuery1->ExecSQL();

delete TemplateStream;
delete jp;
zp是BLOBO类型。这段代码是有问题的　应该怎么写呢

[编译失败]

TBlobField *blob=(TBlobField *)ADOQuery1->FieldByName("zp");
ADOQuery1->LoadFromFile(OpenPictureDialog1->FileName);
ADOQuery1->Post();

为什么用ExecSQL，你这并不是SQL语句，该用Post()，而且也不需要TADOBlobStream这个东西。

[编译失败]

错了，第二句应该是
blog->LoadFromFile(OpenPictureDialog1->FileName);

[编译失败]

不好意思又错了，应该是
blob->LoadFromFile(OpenPictureDialog1->FileName);

[daydayup234]

http://community.csdn.net/Expert/FAQ/FAQ_Index.asp?id=119995

[joinclear]

ADOQuery1->Close();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("select * from drv_admin.drv_photo ");
ADOQuery1->Open();
这个时候　就有错了　　问题出在　sql语句上，因为drv_photo这个表中的　ZP字段是个　BLOB的　，所以当ADOQuery1->Open();时就报错。报：数据类型不被支持！

[joinclear]

还有一种方法如下：

//插入一条记录
String strSQL1="insert into drv_admin.drv_photo(sfzmhm,zp,gxsj) values('"+Edit1->Text+"',null,to_date('"+ToDateStr+"','yyyy-mm-dd hh24:mi:ss'))";
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add(strSQL1);
ADOQuery1->ExecSQL();

TBlobStream* TemplateStream;
TFileStream * TempFile;

ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("update drv_admin.drv_photo set zp=:blobdata where sfzmhm = '"+Edit1->Text+"'");

TempFile = new TFileStream(OpenPictureDialog1->FileName,fmOpenReadWrite );
TempFile->Position = 0;
ADOQuery1->Parameters->ParamByName("blobdata")->LoadFromStream(TempFile , ftBlob);

ADOQuery1->ExecSQL();

delete TemplateStream;
但是这个　blobdata 总是报没有这个字段。这样的用法　是不是blobdata可以在哪个地方设置。
请大家看看。

[L_75480035]

在数据库连接串后面加上
Extended Properties=PLSQLRSet=1;DistribTx=0;
open的时候就不会报错了

[joinclear]

顶

[wf2091139]

给你一段我现在正在使用的代码.
AnsiString FileNameFrt;
AnsiString PlayStr;
TBlobField *BlobField;
bool bRet;

qryPub->Close();
qryPub->RequestLive = true;
qryPub->SQL->Clear();
qryPub->SQL->Add("select * from table ...");
try
{
qryPub->Open();
PlayStr = qryPub->FieldByName("描述")->AsString;
qryPub->Edit();
//文件写入
BlobField = (TBlobField*) qryPub->FieldByName("主表");
BlobField->LoadFromFile(ReportFileName);
//文件写入
FileNameFrt = ReportFileName.SubString(1,ReportFileName.Length()-1) + "t";
BlobField = (TBlobField*) qryPub->FieldByName("对象");
BlobField->LoadFromFile(FileNameFrt);
qryPub->Post();
qryPub->Close();
qryPub->RequestLive = false;
bRet = true;
}
catch(...)
{
bRet = false;
}
return bRet;