高手请进，如何将EXCEL数据导入SQLSERVER？- OFFICE
我有一张EXCEL表，五个栏目(编号，客户名，日期，电话，货款)，另外，我在SQLSERVER7.0中guest数据库中有一个表，表有五个字段：编号(字符型)、客户名(字符型)，日期(日期型)、电话(字符型)、货款(数字型)。
五个栏目与五个字段是一一对应的!
现在我想做到：
通过编写一个程序，能将excel表中数据的导入SQLSERVER的表中(该表名已知)
如何实现呢？有相应的控件或编程思路吗？事急，不胜感谢!
问题点数：30、回复次数：7Top
1 楼lin513（东方求救）回复于 2001-11-29 09:53:03 得分 0
关注Top
2 楼fish1977（小鱼儿）回复于 2001-11-29 10:01:23 得分 5
用ADO连接EXCEL和SQLSERVER;
<<程序员大本营>>光盘上也有相应的控件Top
3 楼bigchg（戴着戒指）回复于 2001-11-29 10:38:26 得分 25
Tform1.button1Click(sender:Tobject);
var
i,j:integer;
xlsApp,xlsSheet,xlsWBK:variant;
Mystr:string[5];
begin
if VarIsEmpty(xlsApp) then xlsApp:=CreateOleObject('excel.Application');
xlsSheet:=xlsApp.workbooks.open('d:\excel1.xls');
j:=1;
while length(xlsSheet.cell[j,1])>0 do
begin
j:=j+1;
for i:=0 to 4 do
mystr[i]:=xlsSheet.cells[j,i];
myDataModule1.query1.close;
myDataModule1.query1.sql.clear;
myDataModule1.query1.sql.add('insert into table1 values('''+mystr[0]
+''','''+mystr[1]+''','''+strtodate(mystr[2])+''','''+ mystr[3]+''','+mystr [4]+')');
myDataModule1.query1.excSQL;
end;
xlsApp.Application.quit;
end;
Top
4 楼holenwap（陈厚光）回复于 2001-11-29 14:14:34 得分 0
谢谢楼上的兄弟!
fish1977(小鱼儿),你所说的直接连EXCEL和SQLSERVER的控件在哪里,我找不到,你能发一份给我吗?
谢谢!Top
5 楼holenwap（陈厚光）回复于 2001-12-01 17:18:56 得分 0
我用ADO搞定了，谢谢各位！Top
6 楼hssfox（）回复于 2001-12-01 17:31:55 得分 0
看看Top
7 楼steven_yin（张老三）回复于 2001-12-01 19:48:11 得分 0
赫赫,我有办法,简单呀!Top
相关问题
- excel数据导入sqlserver的问题?
- 急，将excel的数据导入到sqlserver ！！！
- 高手请进，如何将EXCEL数据导入SQLSERVER？
- 高手请进，如何将EXCEL数据导入SQLSERVER？- VB
- 高手请进，如何将EXCEL数据导入SQLSERVER？- VBA
- 高手请进，如何将EXCEL数据导入SQLSERVER？- DB
- excel导入sqlserver数据出现问题，怎么解决？
- 如何把Excel文件导入到SQLServer数据库中？
- 用OpenDataSource怎么在客户端导入excel数据到SQLServer呢？
- 用OpenDataSource怎么在客户端导入excel数据到SQLServer呢？
