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

wangyiaihu 发布于 2020-04-29 19:05， 1657 次点击

程序代码：

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

只有本站会员才能查看附件，请登录

3 回复

wangyiaihu2020-04-29 19:31

虚心请教

ZHRXJR2020-04-29 21:04

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对象灵活。

wangyiaihu2020-05-02 18:10

回复 3楼 ZHRXJR

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

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