如何以流的方式将文件写入数据库..

[路过路人乙]

想把某些文件写入数据库中..需要的时候再调用出来..

如何以流的方式存取呢?

求指点...

[zzbinfo]

其实就是blob字段得读写呀.

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TADOQuery *Query = new TADOQuery(Application);
  Query->ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + ExtractFilePath(Application->ExeName) + "1.mdb;";
  Query->SQL->Text = "insert into  table1(ee)values('asddasd')";
  Query->ExecSQL();
  TMemoryStream *Inifile = new TMemoryStream();
  Inifile->LoadFromFile("123.ini");
  Query->SQL->Text = "update table1 set asd =:PHOTO where ee ='asddasd'" ;
  Query->Parameters->Items[0]->LoadFromStream(Inifile,ftBlob) ;
  Query->ExecSQL();
  Query->Close();
  delete Query;
  delete Inifile;

}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
  TADOQuery *Query = new TADOQuery(Application);
  Query->ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + ExtractFilePath(Application->ExeName) + "1.mdb;";
  Query->SQL->Text = "select * from table1 where ee ='asddasd'";
  Query->Open();
  TBlobField * pField1=(TBlobField *)Query->FieldByName("asd");
	 if(!pField1->IsNull)
	 {
   TADOBlobStream* pmem=new TADOBlobStream (pField1,bmRead);
   pmem->Seek(0,soFromBeginning);
   TMemoryStream *Inifile = new TMemoryStream();
   Inifile->LoadFromStream(pmem);
   Inifile->SaveToFile("12345.ini");
   delete Inifile;
   delete pmem;
	 }
  Query->Close();
  delete Query;

}

[路过路人乙]

因为我是指定字段名写入的...所以我将你的
Query->Parameters->Items[0]->LoadFromStream(Inifile,ftBlob) ;

改成了
Query->FieldByName("cptname")->LoadFromStream(Inifile,ftBlob) ;

会有出错提示:

LoadFromStream 不是 Query 的成员....

[路过路人乙]

..CSDN不能编辑贴真麻烦...出错提示是..LoadFromStream 不是 TField 的成员

[路过路人乙]

知道了知道了..应该写成:
qryTmp->Parameters->ParamByName("cptname")->LoadFromStream(Inifile,ftBlob);

呵呵..

另外 Inifile 我是采用的路径 + 文件名..不会有问题吧?

[缘中人]

adoquery，

query 有区别的