如何在Delphi中执行将Excel表格里的内容导入数据库中相应表的操作呢？？？？

Question

可以先倒入access,再转入sql
或者编写一个小程序逐个写入
首先创建 Excel 对象，使用ComObj:
var ExcelID: Variant;
ExcelID := CreateOleObject( 'Excel.Application' );
1) 显示当前窗口：
ExcelID.Visible := True;
2) 更改 Excel 标题栏：
ExcelID.Caption := '应用程序调用 Microsoft Excel';
3) 添加新工作簿：
ExcelID.WorkBooks.Add;
4) 打开已存在的工作簿：
ExcelID.WorkBooks.Open( 'C:\Excel\Demo.xls' );
5) 设置第2个工作表为活动工作表：
ExcelID.WorkSheets[2].Activate;  
或 
ExcelID.WorksSheets[ 'Sheet2' ].Activate;
6) 单元格值赋给表字段：
table1.field[1].value:=ExcelID.Cells[1,4].Value ;

Answer 1

不可以直接导到SQL　Server数据库里面的吗？

Answer 2

转化成dbf再导入到sql server中

Answer 3

从EXCEL表中一条条的读,然后向数据表一条条地APPEND

Answer 4

从EXCEL表中一条条的读,然后向数据表一条条地APPEND

Answer 5

从EXCEL表中一条条的读,然后向数据表一条条地APPEND

Answer 6

使用ADO访问Excel数据文件，然后导入数据库，使用ADO访问数据库的方法为：
1.设置ADOConnection的ConnectionString
    构造ConnectionString时，OLE DB的提供者要选择Microsoft Jet 4.0 OLE DB Provider作为ADO的驱动程序。这本来是用于连接Access数据库的驱动程序，但也可打开Excel文件。
    连接的数据库名称当然就是你要打开的Excel文件，注意扩展名是*.xls，而不是*.mdb。
    最关键的一点是，还要设置扩展属性Extended Properties为“Excel 8.0”，否则，测试连接时会报告无法识别数据格式的错误。Extended Properties的属性值在“所有”参数页中输入。
    最后，设置完成后的ConnectionString中的各项参数为：
    Provider=Microsoft.Jet.OLEDB.4.0
    Data Source=MyExcelFile.xls
    Extended Properties=Excel 8.0
    Persist Security Info=False2.设置ADODataSet或ADOTable
    将ADODataSet或ADOTable连接到刚才的ADOConnection。如果不用ADOConnection，也可以参照上面的方法直接设置ADODataSet或ADOTable的ConnectionString属性。
    对于ADODataSet，需要将CommandType属性设置为cmdTableDirect，而对于ADOTable，则将TableDirect属性设置为True。因为，访问Excel文件是直接的数据文件访问，不是通过SQL语句来操作游标访问的。如果不设置直接访问，则系统会报告SQL语句格式错误等信息。
    然后，当你下拉ADODataSet中的CommandText属性或ADOTable的TableName属性时，就可以选择到要打开的工作表了。注意，表名后面多了加一个$符号。
3.打开ADODataSet或ADOTable

Answer 7

可是所要被进行导入的Excel表是机动的，由用户来选择的．并没有设定具体制定的表＠！！！！！１１呀！！！！！！！

Answer 8

动态的设定ConnectionString，可以使用一个TOpenDialog控件。

Answer 9

我来了，把Ado jet 的连接字符串设置成：
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\h033cs.xls;Extended Properties=Excel 8.0;Persist Security Info=False
这样是可以访问Excel的好用可以使用Ado的标准界面

Answer 10

hnsyf(鱼片儿：
　　　TOpenDialog控件作的打开了Excel表以后，怎么把它与导入联系在一起呢？
manboo(L—横刀--L) ：
　　　你这个是静态的连接方式把？？问题是我是要能让用户执行对任意一个表的导入？