1,178
社区成员
发帖
与我相关
我的任务
分享
AnsiString sql,filename,dir,str;
AnsiString sql,filename,dir,str;
dir=a->Text+Edit1->Text+b->Text;
filename=Edit2->Text;
str="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+dir+";User ID=Admin;Password=;Extended properties=Excel 5.0";
sql="select * from ["+Edit2->Text+"$]";
try{
ADO_excel->Close();
ADO_excel->ConnectionString=str;
ADO_excel->Prepared=false;
ADO_excel->SQL->Clear();
ADO_excel->SQL->Add(sql);
ADO_excel->Open();
}
catch(...){G_jdt->Visible=false;ShowMessage("打开Excel表失败!");}
sql="select top 1 * from data_excel";
ADO_datain->Close();
ADO_datain->SQL->Clear();
ADO_datain->SQL->Add(sql);
ADO_datain->Open();
ADO_excel->First();
while(!ADO_excel->Eof){
ADO_datain->Insert();
ADO_datain->FieldValues["num"]=ADO_excel->FieldValues["badgenumber"];
ADO_datain->FieldValues["checktime"]=ADO_excel->FieldValues["checktime"];
ADO_datain->Post();
ADO_excel->Next();
}