|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
在执行崩溃恢复时,理解在一个数据库中的每一个表tbl_name对应的在数据库目录中的3个文件是很重要的:server
在BCB6sp4里调试经由过程,接待年夜虾品评斧正。
//OpenDialog1翻开JPEG图象,Edit1保留图象地点,Image1显现图象//其他格局的图象文件没有实验,能够尝尝。
OpenDialog1->FileName="";if(OpenDialog1->Execute()){Edit1->Text=OpenDialog1->FileName;Image1->Picture->LoadFromFile(Edit1->Text);}
//上面:把图象保留到SQLServer数据库中
if(!Edit1->Text.IsEmpty()){ADOQuery1->Close();//自行增加ADOConnention,并设置ADOQuery1->SQL->Clear();ADOQuery1->SQL->Add("Select*fromimgs");ADOQuery1->Open();ADOQuery1->Insert();
ADOQuery1->FieldByName("imgaddress")->AsString=Edit1->Text;ADOQuery1->FieldByName("imgID")->AsInteger=Edit2->Text.toInt();//保留图象的编号TBlobField*field=dynamic_cast<TBlobField*>(ADOQuery1->FieldByName("img"));//img是image范例的数据field->LoadFromFile(Edit1->Text);//这里是关头,要间接从文件调。不要调Image1,如许很简单出“Jepgerror#41”毛病
ADOQuery1->Post();ADOQuery1->Close();}
//从数据库里读取图象
ADOQuery1->Close();ADOQuery1->SQL->Clear();ADOQuery1->SQL->Add("Select*fromimgs");AnsiStringddd="whereimgID="+Edit1->Text;ADOQuery1->SQL->Add(ddd);ADOQuery1->Open();if(ADOQuery1->RecordCount==1){TStream*Stream1;TJPEGImage*Pjp=newTJPEGImage();try{Stream1=ADOQuery1->CreateBlobStream(ADOQuery1->FieldByName("img"),bmRead);Pjp->LoadFromStream(Stream1);Image2->Picture->Assign(Pjp);deleteStream1;}__finally{deletePjp;}}
PS:第一次发文章,不晓得格局怎样。^_^
用一个库#bak_database存放这些历史数据。 |
|