从excel中导数据(动态设置conectionstring？)(50分)

F

fzmm8250

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-08

• #1

如何从excel中导入到数据库（根据dialog对话框选择不同excel）。
Provider=MSDASQL.1;Persist Security Info=False;Data Source=‘database’好像只能指定excel。
不知如何导入通过dialog对话框选择的excel.

 

D

dean_2008

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-09

• #2

你加一个opendialog就可以了。

 

D

dean_2008

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-09

• #3

如果不介意用第三方控件的话,就用SMimport实现比较方便

 

F

fzmm8250

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-09

• #4

加一个opendialog？？？
废话，我当然加了opendialog的，关键是不晓得如何把dialog指向的任意一excel导入到库中。

 

N

newmoonfaw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-09

• #5

adoconnection 指向sqlserver:
在查询分析器中，可这样连接excel:
SELECT * FROM OpenDataSource('Microsoft.Jet.OLEDB.4.0','Data Source=E:/temp/demo.xls;Extended Properties="Excel 5.0;HDR=Yes;";Persist Security Info=False')...sheet1$
只要把上面的E:/temp/demo.xls换成你的excel文件全路径文件名即可

 

F

fzmm8250

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-10

• #6

"只要把上面的E:/temp/demo.xls换成你的excel文件全路径文件名即可?"还是指定的撒
我需要的是通过opendialog来选择excel！

 

N

newmoonfaw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-10

• #7

var opd:TOpendialog;
sqlstr:string;
begin
opd:=TOpendialog.Create(self);
if not opd.Execute then exit;
sqlstr:='SELECT * FROM OpenDataSource(''Microsoft.Jet.OLEDB.4.0'',''Data Source=';
sqlstr:=sqlstr+opd.FileName+';Extended Properties="Excel 5.0;HDR=Yes;";Persist Security Info=False'')...sheet1$';
end;

 

F

fzmm8250

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-18

• #8

多人接受答案了。