TXT->Access 使用DAO数据源!，VB Code

昨天有帮朋友写一个txt->sql的数据转化程序,

这个当然很简单了.但是在朋友发过来的SourceCode中,却发现了一种很好用的方法.

它是使用DAO数据源.

例子:Txt导入Access

现在把代码共享出来,让大家参考.

'使用DAO

Private Sub Command1_Click()

'On Error Resume Next

Dim db As Database, tbl As TableDef

Set db = DBEngine.OpenDatabase(App.Path & "/db1.mdb") '打开数据库

Set tbl = db.CreateTableDef("temp") '创建一个临时的文本链接表

tbl.Connect = "text;database=" & App.Path 'TXT文件所在的目录

tbl.SourceTableName = "gps_g2_20060329-181849#txt" 'TXT文件的名称

db.TableDefs.Append tbl '将表加入到数据库中

db.Execute "insert into table1 select temp.tagid,temp.exit_location_id,temp.exit_time from temp"

db.TableDefs.Delete tbl.Name '删除temp链接表

db.Close: Set db = Nothing '关闭数据对象

If Err = 0 Then

MsgBox "导入成功! "

Else

MsgBox "错误" & Err

Exit Sub

End If

End Sub

但是要注意,使用这一种方法呢,需要在当前文件夹下面,添加一个文件(schema.ini)

内容如下:

[gps_g2_20060329-181849.txt] 要转化的Txt文件名

colnameheader=false

format=fixedlength

col1=NO LONG width 3

col2=TAGID text width 12

col3=temp1 text width 7

col4=EXIT_LOCATION_ID text Width 20

col5=temp2 text Width 1

col6=EXIT_time text Width 9