杭州交通信息网新生儿竖抱的危害:vb 错误？
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/30 00:16:29
我将 MSHFlexGrid 控件设置数据集
结果弹出：“30023”实时错误：不能访问数据源，设置可能不正确或数据源的功能有限
Set MSHFG1.DataSource = rs_quanBuChaXun
控件名字是写对了的，rs_quanBuChaXun 是取出值了的，为什么会错呢？
问题出在这儿:
Public Function hs_re(ByVal re As Recordset, sqlStr As String, whereStr As String) As Boolean '返回是否有记录
'
If re.State = 1 Then
re.Close
End If
re.Open sqlStr & whereStr, con, adOpenDynamic, adLockOptimistic, -1
'
If re.BOF = True And re.EOF = True Then '没有任何记录
hs_re = False
Else
hs_re = True
End If
加上上面的 if re.bof=true...... 这个判断时会错，而不用这个判断时就不会错，为什么啊？
而我直接用 hs_re=true 是不会错
结果弹出：“30023”实时错误：不能访问数据源，设置可能不正确或数据源的功能有限
Set MSHFG1.DataSource = rs_quanBuChaXun
控件名字是写对了的，rs_quanBuChaXun 是取出值了的，为什么会错呢？
问题出在这儿:
Public Function hs_re(ByVal re As Recordset, sqlStr As String, whereStr As String) As Boolean '返回是否有记录
'
If re.State = 1 Then
re.Close
End If
re.Open sqlStr & whereStr, con, adOpenDynamic, adLockOptimistic, -1
'
If re.BOF = True And re.EOF = True Then '没有任何记录
hs_re = False
Else
hs_re = True
End If
加上上面的 if re.bof=true...... 这个判断时会错，而不用这个判断时就不会错，为什么啊？
而我直接用 hs_re=true 是不会错
明显是re对象有问题，那就得往前查找问题的原因，那就应该是连接数据源那块出现问题了。
re.Open sqlStr & whereStr, con, adOpenDynamic, adLockOptimistic, -1
其中sqlStr & whereStr, con这两个参数得保证一定是对的，仔细检查一下一步一步的测试。
设置数据源了吗？可以在控制面板的管理工具里设置数据源
你可能用的是VB 6.0，不支持Access 7.0以上的数据库