[求助]导出项目数据到ACCESS - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]导出项目数据到ACCESS

共有2691人关注过本帖树形打印复制链接主题：[求助]导出项目数据到ACCESS

chnfo

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2239 积分：18446 威望：0 精华：0 注册：2011/11/26 20:21:00

[求助]导出项目数据到ACCESS 发帖心情

Post By：2015/7/6 22:25:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:导出数据到access的错误.txt

因为不能将代码贴进来发，代码放在文本文件中了。

为什么会报错呢，代码貌似没有什么问题啊

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/7/6 22:35:00 [只看该作者]

测试了一下，代码没问题。

但是，如果覆盖原来的accdb，就提示表'表B' 已存在。

chnfo

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2239 积分：18446 威望：0 精华：0 注册：2011/11/26 20:21:00

Post By：2015/7/6 22:43:00 [只看该作者]

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog

dlg.Filter= "Access文件|*.accdb" '设置筛选器

dlg.OverwritePrompt = True

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

If FileSys.FileExists(dlg.FileName) Then '如果指定的文件存在

FileSys.DeleteFile(dlg.FileName,2,2) '则彻底删除之

End If

end if

本来在前面，还加了这一段，如果导出的文件已经存在，先把文件删除。

但不应当提示：不能重复定义字段

这是什么意思呢

[此贴子已经被作者于2015/7/6 22:44:14编辑过]

大红袍

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/7/6 22:50:00 [只看该作者]

代码没问题。例子发上来测试。

chnfo

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2239 积分：18446 威望：0 精华：0 注册：2011/11/26 20:21:00

Post By：2015/7/6 23:06:00 [只看该作者]

附件，简化过的。原项目比较大，就不传原项目文件了。

chnfo

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2239 积分：18446 威望：0 精华：0 注册：2011/11/26 20:21:00

Post By：2015/7/6 23:07:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:导出项目数据的问题.zip

这是附件

chnfo

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2239 积分：18446 威望：0 精华：0 注册：2011/11/26 20:21:00

Post By：2015/7/6 23:15:00 [只看该作者]

难道是数据库中，不能有两个结构完全一样的表？

导出过程中，还提示出

多步 OLE DB 操作产生错误。如果可能，请检查每个 OLE DB 状态值。没有工作被完成。

这是什么意思？

[此贴子已经被作者于2015/7/6 23:34:13编辑过]

大红袍

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/7/6 23:32:00 [只看该作者]

If DataTables.Contains("Temp") = False Then
    Dim q As new QueryBuilder
    'q.ConnectionName = "Con"
    q.TableName = "Temp"
    q.SelectString = " Select '' as temp "
    q.Build
End If

[此贴子已经被作者于2015/7/6 23:31:55编辑过]

chnfo

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2239 积分：18446 威望：0 精华：0 注册：2011/11/26 20:21:00

Post By：2015/7/6 23:36:00 [只看该作者]

如果我本身就在项目中增加了一个临时表Temp，应当不需要这个判断，但执行还是报错。

[此贴子已经被作者于2015/7/6 23:49:05编辑过]

chnfo

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2239 积分：18446 威望：0 精华：0 注册：2011/11/26 20:21:00

Post By：2015/7/7 0:22:00 [只看该作者]

百度了一下，发现类似的答案是：

在DBF中 字段名不能重复 而且长度为10个字符(5个汉字，在DBC中没有此限制) 检查字段名。

难道跟字段名的长度有关？

下一主题 >> << 上一主题

总数 17 1 2 下一页

主题：[求助]导出项目数据到ACCESS