代码请教：谁能找出以下代码为什么运行后异常？ - VB6论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 开发语言 → 『 VB6论坛』 → 代码请教：谁能找出以下代码为什么运行后异常？

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 1540 人关注过本帖

标题：代码请教：谁能找出以下代码为什么运行后异常？

只看楼主加入收藏

wangyiaihu

等　级：新手上路
帖　子：96
专家分：0
注　册：2020-4-22
结帖率：100%

楼主

已结贴√ 问题点数：10 回复次数：3

代码请教：谁能找出以下代码为什么运行后异常？

程序代码：

Private Sub Form_Load()

Adodc1.Visible = False

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Aging.mdb "   '设置数据库路劲
 = adCmdText '设置记录源
Adodc1.RecordSource = "select * from 数据 '"
Set MSHFlexGrid1.DataSource = Adodc1
Adodc1.Refresh
END SUB

图片附件: 游客没有浏览图片的权限，请登录或注册

搜索更多相关主题的帖子: 异常　 Sub　代码　运行　记录源　

2020-04-29 19:05

wangyiaihu

等　级：新手上路
帖　子：96
专家分：0
注　册：2020-4-22

第 2 楼

得分:0

虚心请教

2020-04-29 19:31

ZHRXJR

等　级：版主
威　望：125
帖　子：1034
专家分：5519
注　册：2016-5-10

第 3 楼

得分:10

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Aging.mdb " '设置数据库路劲
= adCmdText '设置记录源
Adodc1.RecordSource = "select * from 数据 '"
Adodc1.Refresh '这个应该在控件加载数据之前，像现在这样的
Set MSHFlexGrid1.DataSource = Adodc1

'Adodc1 控件灵活性比较差，不如ADO对象灵活。