7,787
社区成员
发帖
与我相关
我的任务
分享数据库查询，字段为空时怎么办？
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As String
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "d:\hzsndc" & "\student.mdb;Persist Security Info=False"
conn.Open
sql = "select * from dubdata where carnum='" + Combo1.Text + "' order by id DESC"
rs.Open sql, conn
If rs.EOF = False Then
rs.MoveFirst
With rs
Combo5.Text = .Fields(4).Value
Combo9.Text = .Fields(11).Value End With
End If
rs.Close
conn.Close
如果其中某个字段例如.fields(4)为空时，运行程序会报错，请问如何解决
Dim rs As New ADODB.Recordset
Dim sql As String
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "d:\hzsndc" & "\student.mdb;Persist Security Info=False"
conn.Open
sql = "select * from dubdata where carnum='" + Combo1.Text + "' order by id DESC"
rs.Open sql, conn
If rs.EOF = False Then
rs.MoveFirst
With rs
Combo5.Text = .Fields(4).Value
Combo9.Text = .Fields(11).Value End With
End If
rs.Close
conn.Close
如果其中某个字段例如.fields(4)为空时，运行程序会报错，请问如何解决
...全文
请发表友善的回复…
发表回复
linzhizhan2008 2004-11-04
- 打赏
- 举报
多谢各位，结贴
NistCK 2004-11-04
- 打赏
- 举报
在sub最前面加 On Error Resume Next
或者用isNull来判断rs.Fields(4)是否为空值(是空值isNull返回true)
或者用isNull来判断rs.Fields(4)是否为空值(是空值isNull返回true)
daisy8675 2004-11-04
- 打赏
- 举报
text1.text=Trim(rs("Name") & "")
of123 2004-11-04
- 打赏
- 举报
Combo5.Text = .Fields(4).Value & ""
Combo9.Text = .Fields(11).Value & ""
Combo9.Text = .Fields(11).Value & ""
linzhizhan2008 2004-11-04
- 打赏
- 举报
?
