怎样用delphi实现从excel中导入数据进数据库(100分)

Y

yurongguang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-04

• #1

我有一个excel表和一个sqlserver的数据库,表的结构一样,我现在想从excel中导如数据到sql server中去.例如在excel 中表user
username password
hello 1222
welcome 1234
sqlserver 中数据库也有表 user
username password
如果sqlserver中的user表有excel中的记录则不导入.
请问在delphi用一个button怎样实现该功能啊
谢谢!

 

月

月冷无痕

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-04

• #2

可以把数据库中的username查询出来
在每一条导入的时候判断一下了!

 

S

samy_ywj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-04

• #3

Provider=Microsoft.Jet.OLEDB.4.0;Data Source="c:/1.xls";User ID=Admin;Password=;Extended properties=Excel 8.0
使用TADOConnection连接，GetTableNames得出表名称
之后怎么做就很容易了

 

G

gaobangsheng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-04

• #4

INSERT INTO 表名
select *
from OpenDataSource(''Microsoft.Jet.OLEDB.4.0'',''Data Source="'+Excel文件名+'";Extended Properties="Excel 8.0;HDR=Yes;";Persist Security Info=False'')...Sheet1$

 

Z

zywcd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-04

• #5

你使用sql这样实现吧 。
adocommand1.commandtext:='insert 表名 select a.* from (
select *
from OpenDataSource(''Microsoft.Jet.OLEDB.4.0'',''Data Source="'+Excel文件名+'";Extended Properties="Excel 8.0;HDR=Yes;";Persist Security Info=False'')...Sheet1$ ) a where not (a.user in (select user from 表名 ))'
adocommand1.exec;

这样应该可以把数据库中不存在的数据追加到ms sql 数据库。
代码没有测试，如果不能编译你可以修改。

 

网

网中戏

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-05

• #6

顶

 

G

grayguygg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-09

• #7

我在做一个管理系统，也是想把excel文件中的数据导入到paraodx 数据库中，可以帮我一下吗/？
谢谢了