Home/ Questions/Q 6142605
In Process

The Archive Base Latest Questions

Editorial Team
  • 0
Asked: 2026-05-23T18:24:39+00:00

I am writing an app in vb6 using sql server 2005. here is my

  • 0

I am writing an app in vb6 using sql server 2005. here is my current code.

Dim Sqlstring As String
Dim rstCurrentTicket As Recordset

Sqlstring = "Select SubmiterName, LastViewDate, Department, Description, Urgency, SubmitDate, ResolvedDate from TroubleTickets where Title ='" + Trim(TicketComboBox.Text) + "'"
Set rstCurrentTicket = cnnSel.OpenRecordset(Sqlstring)


NameText.Text = rstCurrentTicket!SubmiterName
DeptText.Text = rstCurrentTicket!Department
Me.DescriptionText = rstCurrentTicket!Description
Me.UrgencyText = rstCurrentTicket!Urgency

when I run this code i recieve an error code saying:

“Run-Time error: ‘3021’”
“no current record”

and it highlights this line of code:

NameText.Text = rstCurrentTicket!SubmiterName

any suggestions of how to fix this?

Share

Leave an answer

You must login to add an answer.

Need An Account,

1 Answer

  1. Editorial Team

    Keith is exactly right, but I wanted to give a little more detail

    For ADO and DAO, you have a Begin-of-File marker (BOF)and an End-of-File marker(EOF). The records are returned like this

    [BOF]
[Record one] <-
[Record two]
...
[Record n]
[EOF]

    The arrow points to where the cursor is. The cursor points to which record in the record set that is returned.

    When no records are returned, you get this

    [BOF]
[EOF]

    So, if both flags are set, there are no records. If EOF is set, either you have no records, or you’ve moved past the last record. (You move that cursor to the next record by this command.)

    rstCurrentTicket.MoveNext

    You can also check by

    If (rstCurrentTicket.EOF and rstCurrentTicket.BOF) Then
     msgbox "There were no Trouble Tickets found."

Else
    'Do something here.

End If
    • 0