为什么还是会出错

learn_vb 2000-07-26 05:34:00
Private Sub Form_Load()
Dim j As Integer
a2_newsdata.DatabaseName = App.Path & "\data\sbwddb.mdb"
a2_newsdata.RecordSource = "select * from news_info"
If a2_newsdata.Recordset.RecordCount = 0 Then
MsgBox "dfdf"
.....
End If
End Sub运行时为什么会出现这样的错误:
object variable or with block variable not set 其中a2_newsdata是data1控件
...全文
96 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
无言无忌 2000-08-01
  • 打赏
  • 举报
回复
a2_newsdata.DatabaseName = App.Path & "\data\sbwddb.mdb"
a2_newsdata.RecordSource = "select * from news_info"
'请加入这行
a2_newsdata.Refresh

If a2_newsdata.Recordset.RecordCount = 0 Then
MsgBox "dfdf"
.....
End If
zzh 2000-07-26
  • 打赏
  • 举报
回复
你在使用时没有打开记录集,首先应该打开数据库,然后再打开要操作的表,再是进行数据库操作。另外,检查一下不否变量不匹配。
mafangsan 2000-07-26
  • 打赏
  • 举报
回复
你看看你的data控件的控件名称是不是a2_newsdata
再看看数据库中表news_info是否存在,是否名称正确
Tyro 2000-07-26
  • 打赏
  • 举报
回复
我真是服了you,你自己不会调试一下吗?看看在什么地方出的问题!怎么能什么都问?

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧