无法在 VB6 中处理 null 或空记录集

发布于 2024-10-11 11:06:10 字数 1078 浏览 2 评论 0原文

这一天我绞尽脑汁解决这个问题......我用谷歌搜索了解决方案，但没有一个解决我的问题......

代码是这样的：

    Private Sub guh()
Dim oConn As Connection
Dim Record As Recordset
Dim SqlStr As String

SqlStr = "select * from dbo.Msg_History where Client_ID='2' AND Update_Msg='4'"
Set oConn = New Connection

With oConn
.CursorLocation = adUseClient
.CommandTimeout = 0
.Open "Provider=SQLOLEDB;Server=127.0.0.1;Initial Catalog=Table_Msg;UID=Admin;PWD="

End With

Set Record = oConn.Execute(SqlStr)

If IsNull(Record) Then
    MsgBox "There are no records"

    Else
    MsgBox "There are records"

End If

oConn.Close
Set oConn = Nothing
End Sub

The sql statements is returned null recordset ..when i运行代码...它总是转到“else”条件，即MsgBox“有记录”行

我尝试更改该行：If IsNull（Record）然后

到

If IsNull（Record.Fields（0）。 Value) 然后

它会抛出这样的错误：-

error: 要么 BOF 或 EOF 为 true，要么当前记录已被删除。请求的操作需要当前记录。

我已检查 http://support.microsoft.com/kb/304267 并使用 eof 和bof 到条件...n仍然得到相同的错误..

请任何人帮助我...

原文

It's been a day I've cracked my head to solve this....I've googled for solutions but none of it resolve my issue...

The code is like this:

    Private Sub guh()
Dim oConn As Connection
Dim Record As Recordset
Dim SqlStr As String

SqlStr = "select * from dbo.Msg_History where Client_ID='2' AND Update_Msg='4'"
Set oConn = New Connection

With oConn
.CursorLocation = adUseClient
.CommandTimeout = 0
.Open "Provider=SQLOLEDB;Server=127.0.0.1;Initial Catalog=Table_Msg;UID=Admin;PWD="

End With

Set Record = oConn.Execute(SqlStr)

If IsNull(Record) Then
    MsgBox "There are no records"

    Else
    MsgBox "There are records"

End If

oConn.Close
Set oConn = Nothing
End Sub

The sql statement is returning null recordset ..when i run the code...it always go to the "else" condition which is the line MsgBox "There are records"

I've tried change the line : If IsNull(Record) Then

If IsNull(Record.Fields(0).Value) Then

but then it throws an error like this:-

error: Either BOF or EOF is true, or the current record has been deleted. Requested operation requires a current record.

I've checked http://support.microsoft.com/kb/304267 and use eof and bof to the condition...n still get the same error..

please anyone help me...

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

仲春光 2024-10-18 11:06:10

我会使用这样的东西：

' returns true if there is non empty recordset
Function isRSExists(rs) AS boolean
  ' has to exists as object
  If Not rs Is Nothing Then
    ' has to be opened with recordset (could be empty)
    If rs.State > 0 Then
      ' has to have some records
      If Not rs.EOF Then
         isRSExists = true
      End If
    End If
  End If
End Function

I would use something like this:

' returns true if there is non empty recordset
Function isRSExists(rs) AS boolean
  ' has to exists as object
  If Not rs Is Nothing Then
    ' has to be opened with recordset (could be empty)
    If rs.State > 0 Then
      ' has to have some records
      If Not rs.EOF Then
         isRSExists = true
      End If
    End If
  End If
End Function

回复收藏 0 原文