＋设为首页 ＋添加到收藏夹
以下是连接部分
Set Con = New Connection
Set Com = New Command
Set Rs = New Recordset
With Con
.ConnectionString = "User ID=user1;password=;Data source=jeff;Initial Catalog=VideoKiosk"
.Provider = "SQLOLEDB"
.Open
End With
Com.ActiveConnection = Con
Rs.Open "select * from Actor order by vFirstName", Con, adOpenDynamic, adLockOptimistic
以下是提取字段
ActorID = Rs("cActorId")
FirstName = Rs("vFirstName")
LastName = Rs("vlastName")
Birth = Rs("dDateOfBirth")
Gender = Rs("cGender")
Back = Rs("vBackground")
PicActor.Picture = LoadPicture(Rs("vPicture"))
-----------------------------------------------------------------
问题是，数据库中的字段有可能是空值，就是NULL。
那么调用诸如ActorID = Rs("cActorId")这样的语句，就会出现“实时错误‘94’”
“无效使用NULL”。关键又不知道具体哪一个字段会出现空值，每一个都有可能，
我希望当读取到某一个字段为空时，就把诸如ActorID这样的字符串变量设成""就行了。
不知道怎样处理这样的问题.望高手指点！！！
取字段的值前先判断一下:
if not isnull(Rs("cActorId")) then
ActorID = Rs("cActorId")
endif
ActorID = Iif(isnull(Rs("cActorId")),0,Rs("cActorId"))
ActorID = Rs("cActorId") & ""
若字段是字符或文本
str="" & rs("Fieldname") 或 str=format(rs("fieldname"))
若字段是日期
if isnull(rs("fieldname")) then
dt=Date
else
dt=rs("fieldname")
end if
若字段是数字
if isnull(rs("fieldname")) then
num=0
else
num=rs("fieldname")
end if
