vb 提示运行时错误 操作已被取消

来源：百度知道 编辑：UC知道 时间：2024/09/13 02:39:35
编的时候提示调试
Private Sub MDIForm_Load()
Dim strCnn As String
strCnn = "Provider=MSDASQL.1;Persist Security Info=False; data source=sellsystem"
conn.Open strCnn
MDIfrmMain.mnchpwd.Enabled = False
MDIfrmMain.adduser.Enabled = False
MDIfrmMain.mntrade.Enabled = False
MDIfrmMain.mnbuyst.Enabled = False
MDIfrmMain.mnsellst.Enabled = False
MDIfrmMain.mngrade.Enabled = False
MDIfrmMain.mntable.Enabled = False
End Sub
那里错了呀 还有就是不明白运行vbp文件的时候提示路径/文件访问错误 是怎么回事？好心人 帮我解答一下 谢谢了 我的毕业设计马上就要交了很急呀
一楼的 还是运行不出来呀 提示数据源名称过长 现在还是不知道怎么改 怎么就提示操作已被取消呢

你的DataSource的路径写错了，我帮你改了。

Private Sub MDIForm_Load()
Dim strCnn As String
strCnn = "Provider=MSDASQL.1;Persist Security Info=False; data source=" & App.Path & "\sellsystem.mdb"

或

strCnn = "Provider=MSDASQL.1;Persist Security Info=False; data source= D:\sellsystem.mdb"

conn.Open strCnn
MDIfrmMain.mnchpwd.Enabled = False
MDIfrmMain.adduser.Enabled = False
MDIfrmMain.mntrade.Enabled = False
MDIfrmMain.mnbuyst.Enabled = False
MDIfrmMain.mnsellst.Enabled = False
MDIfrmMain.mngrade.Enabled = False
MDIfrmMain.mntable.Enabled = False
End Sub