如何将excel的数据导入到dbgrideh?十万火急

Question

目前项目需要将外地分公司的数据以EXCEL的形式传到数据中心，然后用程序读到dbgrideh,如何将excel的数据导入到dbgrideh??

Answer 1

用ADO联接EXCEL表,这这样你就和操作后如数据库表是一样的.
给你一段用ADO联接EXCEL文件的代码参考:
procedure TFrmExceltodb.ToolButton1Click(Sender: TObject);
var tmpfdname:string;begin
tmpfdname:='';
ADOCexcel.Connected:=false;
ADOTable1.Close;
if OpenDialog1.Execute then
tmpfdname:=OpenDialog1.FileName;//这是你所要操作的EXCEL文件名
if trim(tmpfdname)<>'' then
begin
ADOCexcel.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+tmpfdname
+';Extended Properties=EXCEL 8.0;Persist Security Info=False';
try
ADOCexcel.Connected:=true;
ADOTable1.TableName:='报表$'; //注意这里是EXCEL文的页名.
ADOTable1.Open;
ToolButton2.Enabled:=true;
except
application.MessageBox('打开Excel文件失败!','程序提示',mb_ok or mb_iconstop);
end;
end;
end;这样上面的ADOTable1对应的数据就是你EXCEL文件中的数据,然后就可以按你需在的逻辑去操作!
给分吧!