Private Sub Form_Load()
' Create the instance of the database class
Set gDB = New CDatabase
' Open the database
gDB.dbName = App.Path & "\northwind.MDB"
' Create an object variable for the ColumnHeader object.
Dim clmX As ColumnHeader
' Add ColumnHeaders.
Set clmX = lvFind.ColumnHeaders.Add(, , "Product", (lvFind.Width - 1066) / 2)
Set clmX = lvFind.ColumnHeaders.Add(, , "Supplier ID", (lvFind.Width - 1066) / 2)
Set clmX = lvFind.ColumnHeaders.Add(, , "Category ID", 976)
lvFind.BorderStyle = ccFixedSingle ' Set BorderStyle property.
lvFind.View = lvwReport ' Set View property to Report.
' Label OptionButton controls with SortOrder options.
OptSort(0).Caption = "Sort Ascending"
OptSort(1).Caption = "Sort Descending"
lvFind.SortOrder = lvwAscending ' Sort ascending.
OptSort(0).Value = True
End Sub
Private Sub lvFind_ColumnClick(ByVal ColumnHeader As ColumnHeader)
' When a ColumnHeader object is clicked, the ListView control is
' sorted by the subitems of that column.
' Set the SortKey to the Index of the ColumnHeader - 1
lvFind.SortKey = ColumnHeader.Index - 1
' Set Sorted to True to sort the list.
lvFind.Sorted = True
End Sub
Private Sub Form_Activate()
txtWord.SetFocus
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set frmFind = Nothing
End Sub
Private Sub lvFind_DblClick()
cmdFind(findCloseButton) = True
End Sub
Private Sub cmdFind_Click(Index As Integer)
Dim sSQLProducts As String
Dim sErr As String
Dim itmX As ListItem ' Create a variable to add ListItem objects.
Select Case Index
Case findFindItButton
On Error Resume Next
lvFind.ListItems.Clear
sSQLProducts = "Select * from Products where ProductName like '*" & txtWord & "*' "
Set mrsProducts = gDB.DB.OpenRecordset(sSQLProducts, dbOpenDynaset)
If Err.Number <> 0 Then
sErr = Err.Description
On Error GoTo 0
Err.Raise dbOpenRSError, "cmdFind_Click", sErr
End If
While Not mrsProducts.EOF
Set itmX = lvFind.ListItems.Add(, , CStr(mrsProducts!ProductName))
itmX.SubItems(1) = CStr(mrsProducts!SupplierID)
itmX.SubItems(2) = mrsProducts!CategoryID
mrsProducts.MoveNext
Wend
mrsProducts.Close
Case findCloseButton
Unload Me
Case Else
ColorListviewRow lvFind, 5, vbRed ' use 16711681 instead of vbBlue
End Select
End Sub
Reply With Quote
2009 - 2016
