您的位置：程序门 -> vb -> 基础类

txt导入到access时候出现问题？？？急

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

txt导入到access时候出现问题？？？急

发表于：2007-03-02 14:51:12 楼主

'使用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 = "aaa#txt " 'txt文件的名称
db.tabledefs.append tbl '将表加入到数据库中
db.ＥＸＥＣute "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)
内容如下:
[aaa.txt] 要转化的txt文件名
colnameheader=true
format=delimited（ )
maxscanrows=0
characterset=ansi
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

出错信息：
------------------------------
"参数不足,期待是3 "
------------------------------

发表于：2007-03-03 08:56:241楼得分:0

帮顶一下！

发表于：2007-03-04 14:18:532楼得分:0

发表于：2007-03-05 21:43:073楼得分:0

大哥，帮忙，谢谢！！！！！！！！！！！！！！！！！！！！1

发表于：2007-03-06 08:19:274楼得分:0

[aaa.txt] 里文件格式对不？
字段数量跟mdb里的一致否？

发表于：2007-03-08 20:57:015楼得分:0

谢谢，调试下看

下一篇：谁知道ai格式的图像怎么转换为icon格式的图像。在线等。。
上一篇：如何画精确的坐标系

其他资讯