txt里面ID字段是000028，但是导入到access里面就变成28了，前面的4个0消失了怎么弄出来
用的access2010
access导入txt文本文件
答案:2 悬赏:30 手机版
解决时间 2021-03-04 20:04
- 提问者网友：酱爆肉
- 2021-03-04 09:44
最佳答案
- 五星知识达人网友：话散在刀尖上
- 2021-03-04 10:45
在导入过程中ID字段默认值是长整形，把它改成文本，就可以了。
全部回答
- 1楼网友：拾荒鲤
- 2021-03-04 11:48
呵呵，那就改成，窗体上只有一个text1和command1在text1中输入文件的路径，比如：
c:\a\xd20070101.txt
单击按钮，把表里以前的内容删除并把文件里的内容导入到数据库，
代码如下：
public conn as adodb.connection
public dr as adodb.recordset
sub connect()
set conn = new adodb.connection
conn.connectionstring = "provider=microsoft.jet.oledb.4.0;data source=" & app.path & "\1.mdb"
conn.open
end sub
private sub command1_click()
dim i, j as integer
dim s as string
connect
set dr = new adodb.recordset
dr.cursorlocation = aduseclient
dr.open "select * from biao", conn, 2, 2
conn.execute "delete from biao"
dim a
on error goto errbad
open "" & trim(text1.text) for input as #1
do while not eof(1)
line input #1, s
a = split(s, ",")
dr.addnew
for j = 0 to ubound(a)
if a(j) <> "" then dr.fields(j) = a(j)
next j
dr.update
loop
close #1
conn.close
msgbox "导入成功！", vbokonly + vbinformation, "提示"
exit sub
errbad:
msgbox "导入失败！", vbokonly + vbcritical, "提示"
end sub
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯