求Excel快速导入数据库中一张表的函数：

Question

求Excel快速导入数据库中一张表的函数：1、Excel结构与数据库表结构一致
2、函数输入Excel文件名，实现记录自动快速插入到数据库表
3、插入成功返回true ，否则返回false函数格式如： function ExcelImport(xlsFile: String):boolean;谢谢！

Answer 1

路过，我要导结构不一样的，郁闷。
结构一样的很好导，据说是下面这条语句可以搞定：
select * into yourtable from OpenDataSource('Microsoft.Jet.OLEDB.4.0','Data Source="C:\yd.xls";Extended Properties="Excel 5.0;HDR=Yes;";Persist Security Info=False')...sheet1$
具体如何弄，去MSDN看看吧，结构相同的导入实在太爽了，唉，我的不是一样啊，要一个一个cell去读，然后还要判断，还要比较，……想起来就晕菜

Answer 2

sqlstr:='INSERT INTO tablecontacts ('+str1+')SELECT '+str2+' FROM [excel 5.0;HDR=YES;database='+Edit1.Text+'].['+sheet+'$] where ['+ComboBox1.Text+'] is not null';// and ['+ComboBox1.Text+']<>''''
    datamodule1.adoconnection1.Execute(sqlstr);