Visual Basic

SELECT * FROM table WHERE something LIKE 'som%'

SELECT field1, field2 FROM table WHERE something LIKE 'som%'

<br />
<br />
Private Sub txtPartSearch_Change()<br />
'<br />
' Created by William O'Malley<br />
' I would like to user to be able to type in part of a Part Number<br />
' and have the list activly search for a match baised on what is typed in<br />
'<br />
' Ex:<br />
' If I type in 12 then go to the first match<br />
' if I type in 1234 then go to the first match<br />
'<br />
' This will happen as they type<br />
'<br />
Dim sLength As Integer  'how long is the string<br />
Dim sSearch As String   'what am I looking forgy<br />
Dim iListCount As Long<br />
'<br />
'<br />
sLength = Len(Me.txtPartSearch.Text)<br />
sSearch = Me.txtPartSearch.Text<br />
iListCount = Me.lstPartNumbers.ListCount<br />
'<br />
Me.lblSearchingOf.Caption = Me.lstPartNumbers.ListCount<br />
'<br />
findInListBox sLength, sSearch, iListCount<br />
'<br />
End Sub<br />
<br />

<br />
Function findInListBox(ByVal sLength As Integer, ByVal sSearch As String, ByVal NumberOfRowsToSearch As Long)<br />
    '<br />
    ' This function will be used to perform the search on<br />
    ' the list box<br />
    '<br />
    Dim i As Long<br />
    Dim sStringToCheck As String<br />
    '<br />
    For i = 0 To NumberOfRowsToSearch<br />
        '<br />
        Me.lblSearching.Caption = CStr(i + 1)<br />
        sStringToCheck = Left(Me.lstPartNumbers.Column(0, i), sLength)<br />
        '<br />
        If (sStringToCheck = sSearch) Then<br />
            '<br />
            Me.lstPartNumbers.Selected(i) = True<br />
            '<br />
            Exit For<br />
            '<br />
        End If<br />
        '<br />
    Next i<br />
    '<br />
End Function<br />