关于access导入execl数据报错

对月亮发誓 · 发表于 2014-10-15 00:40

导入数据就出现这个提示

数据导入错误p.rar (84.7 KB, 下载次数: 6)

philips201110 · 发表于 2014-10-15 08:36

期待高人指点

422904z · 发表于 2014-10-15 09:08

在导入的时候把 “成品编号” 字段类型设为 “文本” 即可

对月亮发誓 · 发表于 2014-10-15 20:50

已经设置为文本了，导入的时候还是显示键值冲突0条记录被删除，0条记录丢失，哪位高手指点一下

zhaogang1960 · 发表于 2014-10-16 14:52

ExcelVBA代码请参考：

Sub addRecords() '从工作表中向数据表添加纪录
Dim cnn As New ADODB.Connection
Dim SQL As String
Columns("A:B").NumberFormatLocal = "@"
cnn.Open "Provider=Microsoft.Ace.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\9999.accdb"
SQL = "DELETE FROM 表1 A WHERE EXISTS(SELECT * FROM [Excel 12.0;Database=" & ThisWorkbook.FullName & "].[" & ActiveSheet.Name & "$" _
& Range("a1").CurrentRegion.Address(0, 0) & "] WHERE 成品编号=A.成品编号)"
cnn.Execute SQL '先删除可能存在的与工作表中相同的"成品编号"记录
SQL = "INSERT INTO 表1 SELECT * FROM [Excel 12.0;Database=" & ThisWorkbook.FullName & ";].[" & ActiveSheet.Name & "$" _
& Range("a1").CurrentRegion.Address(0, 0) & "]"
cnn.Execute SQL
MsgBox "纪录添加成功。", vbInformation, "添加纪录"
cnn.Close
Set cnn = Nothing
End Sub

复制代码

zhaogang1960 · 发表于 2014-10-16 14:53

请测试附件

数据导入错误p.rar (54.54 KB, 下载次数: 7)

对月亮发誓 · 发表于 2014-10-16 16:37

zhaogang1960 发表于 2014-10-16 14:53
请测试附件

感谢版主的优秀代码，还有个问题就是，主键无重复值为什么还显示键值冲突？？

zhaogang1960 · 发表于 2014-10-16 16:51

对月亮发誓发表于 2014-10-16 16:37
感谢版主的优秀代码，还有个问题就是，主键无重复值为什么还显示键值冲突？？

请上传出错附件分析一下

对月亮发誓 · 发表于 2014-10-16 17:00

zhaogang1960 发表于 2014-10-16 16:51
请上传出错附件分析一下

就是版主上传的那个做好的，如果用access2007手工导入的话，就显示上面我发过的那个图片，还有就是如果用版主的vba程序，其他字段格式出错无法知道，用程序导入后，变成空值

zhaogang1960 · 发表于 2014-10-16 17:05

对月亮发誓发表于 2014-10-16 17:00
就是版主上传的那个做好的，如果用access2007手工导入的话，就显示上面我发过的那个图片，还有就是如果用 ...

你在数据库中设置为文本格式，那么Excel工作表对应列也应该是文本格式，如果是纯数字，请在前面加上单引号，如：
'123

		自动登录	找回密码
密码			免费注册