设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
楼主: 8868
打印 上一主题 下一主题

[窗体] 如何批量导入CSV文件到ACCESS

[复制链接]
11#
 楼主| 发表于 2007-9-2 14:08:31 | 只看该作者
就是文本格式的东东.在EXCEL的另存为对话框中有该格式.还请版主Grant帮忙帮到底,谢谢!
12#
 楼主| 发表于 2007-9-2 20:40:56 | 只看该作者
本人还是没有搞定,麻烦好心人帮忙!
13#
发表于 2007-9-3 04:09:57 | 只看该作者
时间不是很充裕,只能晚上来弄了见谅

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
14#
发表于 2007-9-3 08:12:21 | 只看该作者
夜猫子,都不用睡觉了。
15#
发表于 2007-9-3 08:54:40 | 只看该作者
错了,是小睡一下继续工作.
16#
 楼主| 发表于 2007-9-3 10:47:33 | 只看该作者

回复 #13 Grant 的帖子

非常感谢版主的帮忙,由衷的对你说一声谢谢!
17#
 楼主| 发表于 2007-9-3 16:18:03 | 只看该作者
还有一个问题想请教版主,为了防止重复导入数据,我在tbl出口名细中设置了三个主键。如果重复导入数据,系统会出现一般用户无法看懂的提示。在你写的函数中,加入什么样的代码后可以隐藏系统默认提示?(DoCmd.Setwarnings Flase好象不起作用)谢谢版主指教!
18#
发表于 2007-9-3 17:38:41 | 只看该作者
Do Until rs.EOF
    Set conn1 = CurrentProject.Connection
    sql = "Select * From tbl出口名细 where [VENDOR NO]='" & rs(0) & "'"
    rs1.Open sql, conn1, 1, 3

If rs1.RecordCount = 1 Then
表中有纪录
Else

rs1.AddNew
    For I = 0 To 7
      rs1(I + 1) = rs(I)
    Next

End If
rs.MoveNext
Loop
19#
发表于 2007-9-3 17:39:08 | 只看该作者
或者可用 Dcount 等方法来判断..
20#
 楼主| 发表于 2007-9-11 10:19:24 | 只看该作者
不好意思,又要麻烦版主了!用了你写的程序后,导入文件时,有三个字段始终导不进去(币制,单价,总价).请版主看看是怎么回事!谢谢!

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-5-22 01:38 , Processed in 0.104293 second(s), 32 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表