论坛: 编程破解 标题: VB编程用DAO读取数据库时发生错误。急,帮帮我 复制本贴地址    
作者: blindeaf [blindeaf]    论坛用户   登录
我要在文本框中显示数据库中的内容,我用DAO读取数据库里的内容时,当数据库里的内容为空时会提示:
实时错误'94'
无效读取Null
应该怎么办啊?
部分代码如下:
Dim db As Database, rs As Recordset
Set db = OpenDatabase("d:\db1.mdb")
Set rs = db.OpenRecordset("用户")

Private Sub Command2_Click()
If num = 3 Then
    Beep
    Exit Sub
Else
    num = num + 4
    Text1.Text = rs(num)
    Text2.Text = rs(num + 1)
    Text3.Text = rs(num + 2)

End If
当遇到一个记录为空时就会出错,郁闷哪



[此贴被 海鬼(blindeaf) 在 05月16日20时28分 编辑过]

地主 发表时间: 04-05-16 20:24

回复: code [code]   论坛用户   登录
你的错误判断没有做好,应该有条语句来判断数据库是否为空的情况!
另外最好把DAO的语法再熟悉,DAO是个不错的数据库的接口!

B1层 发表时间: 04-05-16 20:30

回复: blindeaf [blindeaf]   论坛用户   登录
判断数据库是不是为空我加了几行代码
    If rs(num + 2) = Null Then
        Text3.Text = ""
    Else
        Text3.Text = rs(num + 2)
    End If
还是会出错。



B2层 发表时间: 04-05-16 20:36

论坛: 编程破解

20CN网络安全小组版权所有
Copyright © 2000-2010 20CN Security Group. All Rights Reserved.
论坛程序编写:NetDemon

粤ICP备05087286号