TXT->Access 使用DAO数据源!(VB Code)-阿里云开发者社区

开发者社区> 最美的回忆> 正文

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

本文转自kenty博客园博客,原文链接http://www.cnblogs.com/kentyshang/archive/2006/06/14/425393.html如需转载请自行联系原作者


kenty

版权声明:本文内容由阿里云实名注册用户自发贡献,版权归原作者所有,阿里云开发者社区不拥有其著作权,亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容,填写侵权投诉表单进行举报,一经查实,本社区将立刻删除涉嫌侵权内容。

相关文章
ACCESS 触发器delete table事件变量使用及连续删除
    ACCESS的TABLE DELETE 事件触发后,会出现一个[旧]的记录,这条记录非常有用,可以用来作条件判断使用。     如下图的table event事件中,删除一条记录后,可以使用[旧]记录连接执行多个删除相关记录的操作。
582 0
[20170105]关于使用datafilecopy恢复.txt
[20170105]关于使用datafilecopy恢复.txt --如果指定恢复数据文件是从datafilecopy,必须加括号,写一个例子说明: 1.环境: SYS@book> @ &r/ver1 PORT_STRING             ...
781 0
Java对文件的读、写随机访问,RandomAccessFile类的使用分析
  在网上看了一些关于java中的RandomAccessFile类的介绍,又经过查看Java API和自己编的测试程序,总算是对RandomAccessFile的使用有了一定的了解。自己做了以下比较详细的总结吧。
1033 0
JS导出PDF插件(支持中文、图片使用路径)
原文:JS导出PDF插件(支持中文、图片使用路径) 在WEB上想做一个导出PDF的功能,发现jsPDF比较多人推荐,遗憾的是不支持中文,最后找到pdfmake,很好地解决了此问题。它的效果可以先到http://pdfmake.org/playground.html查看。
1757 0
[20130104]快速移动数据文件.txt
[20130104]快速移动数据文件.txt如果要快速移动数据文件,对业务的影响最小,可以使用rman的backup as copy功能,先拷贝文件到需要移动的目录,然后再追加增量变化,再利用增量备份来恢复copy文件,再切换数据文件。
642 0
ACCESS数据宏创建与应用及调出USysApplicationLog表
    ACCES中支持两种数据宏:事件驱动的数据宏和已命名的数据宏。事件驱动 的数据宏与表中数据的添加 、更新或删除等事件相关联,即当在表中添加 、更新或删除数据时这些宏会执行。
833 0
2286
文章
0
问答
文章排行榜
最热
最新
相关电子书
更多
《2021云上架构与运维峰会演讲合集》
立即下载
《零基础CSS入门教程》
立即下载
《零基础HTML入门教程》
立即下载