在delphi6中如何把文本文件导入到access中？(50)

J

jnshy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-04-07

• #1

文本文件字段之间由空格隔开，每行一条记录，字段类型是浮点型和日期型。

 

D

de410

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-04-07

• #2

var Lists: TStrings; I, C: Integer; begin Lists:=TStringList.Create; Lists.LoadFromFile(文本文件); for I:=0 to LIsts.Count-1 do begin ADOquery.SQL.Clear; C:=Pos(' ',Lists.Strings); //读取空格的位置 ADOQuery.SQL.Add('INSERT 表(FLD1,FLD2,...) VALUES('+QuotedStr(Copy(Lists.Strings,1,C-1))+','+QuotedStr(Copy(Lists.Strings,C,Length(Lists.Strings)-C))+')'); ADOQuery.ExecSQL; end; end;

 

D

de410

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-04-07

• #3

var Lists: TStrings; I, C: Integer; begin Lists:=TStringList.Create; Lists.LoadFromFile(文本文件); for I:=0 to LIsts.Count-1 do begin ADOquery.SQL.Clear; C:=Pos(' ',Lists.Strings); //读取空格的位置 ADOQuery.SQL.Add('INSERT 表(FLD1,FLD2,...) VALUES('+QuotedStr(Copy(Lists.Strings,1,C-1))+','+QuotedStr(Copy(Lists.Strings,C,Length(Lists.Strings)-C))+')'); ADOQuery.ExecSQL; end; end;

 

Z

znxia

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-04-07

• #4

de410兄，是不是你就考虑了2个字段情况啊？另外，他说日期型，不知道是否包括日期时间型。http://www.delphibbs.com/delphibbs/dispq.asp?lid=1691966 帖子里有许多类似要求，查看一下吧，那个帖子非常不错。

 

J

jnshy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-04-09

• #5

日期和时间是两个字段，中间也是用空格隔开，格式如下：2009-04-09 15：10：20

 

逍

逍遥小鱼

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-05-04

• #6

利用ado控件可以连接txt文档的，我以前做过，自己找下资料。不过我记的做的时候资料很少你细心找下。连接上txt文档后剩下的操作就象操作数据表一样。很简单了

 

逍

逍遥小鱼

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-05-04

• #7

对了。补充下，txt文档要有规律性的哦。嘿嘿。

 

暴

暴暴蓝

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-05-10

• #8

关于文本 文件（txt）格式的 导入access中 ,用到ado控件连接access数据库,一条 sql语句能搞定,不过就像楼上说的，txt文件要有一定 格式,导入后,字段类型应该是要自己要设置的！