delphi如何操作从Excel导入数据库中 ( 积分: 0 )

delphi如何操作从Excel导入数据库中表，谢谢

delphi如何操作从Excel导入数据库中表，谢谢

我有一个现成的工具，你要可以发给你。支持对DB2的导入导出

有没有源代码
用delphi写的 谢谢

select * into [TableName] from from OpenDataSource('Microsoft.Jet.OLEDB.4.0','Data Source="C:/ExcelFileName.xls";Extended Properties="Excel 8.0;HDR=Yes;";Persist Security Info=False')...Sheet1$

insert into [TableName] (FieldName1, FieldName2, FieldName3) select FieldName1, FieldName2, FieldName3 from OpenDataSource('Microsoft.Jet.OLEDB.4.0','Data Source="C:/ExcelFileName.xls";Extended Properties="Excel 8.0;HDR=Yes;";Persist Security Info=False')...Sheet1$

var
lcid,maxnumber,i:integer;
Template:string;
yearmonth,tmpsqlstr:string; // yearmonth存放年月，tmpsqlstr存放临时sql语句，msgstr存放显示的消息
flaga:boolean;
qry_tmp:Tadoquery;

begin


lcid := GetUserDefaultLCID;

try
ExcelApplication1.Connect;
ExcelApplication1.Visible[lcid]:=false;
if OpenDialog1.Execute then
begin
Template:=OpenDialog1.FileName;
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Open(template,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,Lcid));
...
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets as _Worksheet);

val:= ExcelWorksheet1.Range['b7','b7'].Value; //val的赋值为b7单元内容

楼上的麻烦！而且可能都不能导第二次，非要关闭程序，重新启动程序才能导第二次！
如果不这样，调出来的excel只能看到菜单！

从前写的一个测试工具：
http://priderock.dns0755.net:800/blog/upload/InputExcel.rar

导入之前会检测excel文件第一行是否与table的各字段是否相同。
然后从excel的第二行开始导入数据。

问题：excel各cell中不能包含“"”或“'”否则会出错。

仅供楼主参考。

我也想知道哦