高分求解,怎样把EXCEL导入到SQL SERVER中

[从Lion开始]

我怎么在程式中把EXCEL导入到SQL SERVER中,
不能有SQL SERVER的导入导出的工具,我希望有程式中实现

[chenylin]

/********************** EXCEL导到远程SQL
insert OPENDATASOURCE(
'SQLOLEDB',
'Data Source=远程ip;User ID=sa;Password=密码'
).库名.dbo.表名 (列名1,列名2)
SELECT 列名1,列名2
FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
'Data Source="c:\test.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...xactions

[widow]

查一查sqlserver的系统存储过程，有专门做导入导出的。

[kanxue660]

OPENDATASOURCE,或者用ado 连接Excel文件即可

[pengxuan]

EXCEL TO SQL SERVER
先用ODBC建立一个数据源，数据源指向sql server的表，然后用TTABLE控件联上数据库，
再建立一个OleObject，然后用Append，Post把数据导入到EXCEL表。
实例：
var
MSExcel:Variant;//定义一个全程变量

MSExcel := CreateOleObject('Excel.Application');
MSExcel.WorkBooks.Open(Edit1.Text);//创建一个OleObject

Table.Active:=true;
Table.Append;
Table.FieldByName('字段名').Value:=MSExcel.Cells[rows_i,1].Value;
Table.Post;//实现导入