Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
status while searching through records
- Thread starter annub
- Start date
You need to take a look at faq222-2244 #13, #14 and #15
"Two strings walk into a bar. The first string says to the bartender: 'Bartender, I'll have a beer. u.5n$x5t?*&4ru!2[sACC~ErJ'. The second string says: 'Pardon my friend, he isn't NULL terminated'."
"Two strings walk into a bar. The first string says to the bartender: 'Bartender, I'll have a beer. u.5n$x5t?*&4ru!2[sACC~ErJ'. The second string says: 'Pardon my friend, he isn't NULL terminated'."
- Thread starter
- #3
I am sorry not to provide all the information. I am using VB6.0 with SQL 2000.
This is my code to find the record. May be some one can help me now.
Private Sub cmdfind_click()
Dim Eno As Long
'Dim vbmousepointer As MousePointerConstants
rs.Close
rs.Open "select jobnumber,keyNO,empno,labcode,shiftnumber,totaltime,bldgnumber,date,scannumber,line from emplhrdtltest", cnn
On Error Resume Next
'vbmousepointer = vbHourglass
Eno = InputBox("Enter KeyNo to Search", " Search"
rs.Find "keyno=" & Eno
If rs.BOF And rs.EOF Then
MsgBox "Record Not Found ", vbOKOnly
Else
Call DisplayValues
'vbmousepointer = vbNormal
End If
End Sub
This is my code to find the record. May be some one can help me now.
Private Sub cmdfind_click()
Dim Eno As Long
'Dim vbmousepointer As MousePointerConstants
rs.Close
rs.Open "select jobnumber,keyNO,empno,labcode,shiftnumber,totaltime,bldgnumber,date,scannumber,line from emplhrdtltest", cnn
On Error Resume Next
'vbmousepointer = vbHourglass
Eno = InputBox("Enter KeyNo to Search", " Search"
rs.Find "keyno=" & Eno
If rs.BOF And rs.EOF Then
MsgBox "Record Not Found ", vbOKOnly
Else
Call DisplayValues
'vbmousepointer = vbNormal
End If
End Sub
- Status
