昨天有帮朋友写一个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
这个当然很简单了.但是在朋友发过来的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
本文转自kenty博客园博客，原文链接http://www.cnblogs.com/kentyshang/archive/2006/06/14/425393.html如需转载请自行联系原作者
kenty
