Oracle Objects for OLE
Release 8.1.7

Part Number A85257-01

Library

Product

Contents

Find_Click() Event Procedure

Our Find click event procedure looks like:

Private Sub cmdFind_Click()

Dim FindClause As String

Dim SingleQuote As String

ErrMsg = ""

SingleQuote = "'"

On Error GoTo err_find

'build the find clause:

'make our query case insensitive by converting the names to upper case

FindClause = "UPPER(ename) = " & SingleQuote & UCase(txtEname) & SingleQuote

EmpDynaset.FindFirst FindClause

If EmpDynaset.NoMatch Then

MsgBox "Could not find record matching Employee Name " & txtEname

EmpDynaset.MoveFirst

End If

Call EmpRefresh

Exit Sub

err_find:

If ErrMsg <> "" Then

MsgBox ErrMsg

Else

MsgBox Error$

End If

End Sub


 
Oracle
Copyright copy; 1996-2000, Oracle Corporation.

All Rights Reserved.

Library

Product

Contents