1,178
社区成员
发帖
与我相关
我的任务
分享
void __fastcall TForm1::Button3Click(TObject *Sender)
{
TOpenDialog *Open = new TOpenDialog(this);
Open->Options.Clear() ;
Open->Options <<ofFileMustExist;
Open->Filter = "文件描述 (*.ini)|*.ini";//改成你要的扩展名
Open->FilterIndex = 0;
if(Open->Execute())
{
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('asddasd11')"; //注意这个ee字段的值,你要根据你的具体情况改一下。可以让他是你的记录的序号。
Query->ExecSQL();
TMemoryStream *Inifile = new TMemoryStream();
Inifile->LoadFromFile(Open->FileName);
Query->SQL->Text = "update table1 set asd =:PHOTO where ee ='asddasd11'" ;
Query->Parameters->Items[0]->LoadFromStream(Inifile,ftBlob) ;
Query->ExecSQL();
Query->Close();
delete Query;
delete Inifile;
}
delete Open;
}
TADOBlobStream *tStream;
TMemoryStream *temp=new TMemoryStream();
temp->LoadFromFile("123.ini");
((TBlobField *)ADOQuery1->FieldByName("Package"))->LoadFromStream(temp);
TMemoryStream *temp=new TMemoryStream();
((TBlobField *)ADOQuery1->FieldByName("Package"))->SaveToStream(temp);
temp->Position=0;
temp->SaveToFile("123.ini");
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;
}
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;
}