Searching Arrays in Visual Basic 6


When working with arrays, it is often necessary to perform a search or "lookup" to determine whether an array contains a value that matches a certain key value. For example, the data from a file or database table will typically contain a "key" field (such as a code), along with corresponding data fields (such as a description). It is often convenient to work with such data by first loading it into a UDT array in an initial routine, and then later pulling data from the array given a key value to search on.


Two versions of a sample project to look up a state abbreviation and return the corresponding state name will now be presented. The first version demonstrates how to perform a serial search (also called a linear search) on an array; the second demonstrates how to perform a binary search.


These projects will process a sequential file of state abbreviations and corresponding state names called STATES.DAT, with the following contents:










Serial Search Example


Following is the step-by-step process to build this project.


·         Start a new "Try It" project.

  • In the general declarations section, place the following code:


Option Explicit


Private Type StateRecord

StateAbbrev As String

StateName As String

End Type


Dim maudtStateRecord() As StateRecord


  • Place the following code in the Form_Load event to initialize the state record array with the data from the file:


Private Sub Form_Load()


Dim intStateFileNbr As Integer

Dim intStateUB As Integer

Dim strBS As String

strBS = IIf(Right$(App.Path, 1) = "\", "", "\")

intStateFileNbr = FreeFile

intStateUB = -1

Open (App.Path & strBS & "STATES.DAT") For Input As #intStateFileNbr

Do Until EOF(intStateFileNbr)

intStateUB = intStateUB + 1

ReDim Preserve maudtStateRecord(0 To intStateUB)

With maudtStateRecord(intStateUB)

Input #intStateFileNbr, .StateAbbrev, .StateName

End With



End Sub


  • Place the following code int cmdTryIt_Click event:


Private Sub cmdTryIt_Click()


Dim strTestAbbrev As String

Dim strTestName As String


strTestAbbrev = UCase$(InputBox("Enter a state abbreviation.", _

"State Lookup Test"))

strTestName = GetStateName(strTestAbbrev)


If strTestName = "" Then

Print "No state name found for '" & strTestAbbrev & "'."


Print "'" & strTestAbbrev & "' is the abbreviation for '" _

& strTestName & "'."

End If

End Sub


·         Code the GetStateName function, which uses a serial search to find the state name, given the state abbreviation:


Private Function GetStateName(pstrTestAbbrev As String) As String


Dim intX As Integer


For intX = 0 To UBound(maudtStateRecord)

If pstrTestAbbrev = maudtStateRecord(intX).StateAbbrev Then

GetStateName = maudtStateRecord(intX).StateName

Exit Function

End If



' if we get here, the state was not found ...

GetStateName = ""


End Function


The technique used here is called a serial search, because the StateAbbrev elements of the maudtStateRecord UDT array are compared one by one to the state abbreviation being looked for (pstrTestAbbrev) until either a match is found or all elements of the array are examined without finding a match. If a match on the state abbreviation is found, the corresponding state name is returned.


·         Run the project. Upon each click of the Try It button, input a valid or invalid state abbreviation. After several inputs, your form will look something like this:




Download the VB project code for the example above here.



Binary Search Example


The serial search is fine for small or unsorted arrays, but for larger arrays, serial searching is inefficient. If an array is sorted, the very efficient technique of binary searching can be used. In a binary search, the element at the middle of the array is checked first. If a match is found, the search ends. Otherwise, the program determines whether the array argument needed is in the upper half of the array or the lower half. The half of the array containing the array argument is again halved and the search continues as before. The term "binary" here refers to this process of dividing by two.


The basic algorithm for a binary search is:


Set MIN_INDEX = LBound(Array)

Set MAX_INDEX = UBound(Array)









' Item has been found at MIDDLE_INDEX of array

Exit Do

End If



To build the binary search project, follow the exact same steps as the serial search example, except for the coding of the GetStateName function, which should be coded as follows:


Private Function GetStateName(pstrTestAbbrev As String) As String


Dim intMinIndex As Integer

Dim intMaxIndex As Integer

Dim intMidIndex As Integer

intMinIndex = 0

intMaxIndex = UBound(maudtStateRecord)

Do While intMinIndex <= intMaxIndex

intMidIndex = Int((intMinIndex + intMaxIndex) / 2)

If pstrTestAbbrev < maudtStateRecord(intMidIndex).StateAbbrev Then

intMaxIndex = intMidIndex - 1

ElseIf pstrTestAbbrev > maudtStateRecord(intMidIndex).StateAbbrev Then

intMinIndex = intMidIndex + 1


' we have a match

GetStateName = maudtStateRecord(intMidIndex).StateName

Exit Function

End If


' if we get here, the state was not found ...

GetStateName = ""


End Function


Download the VB project code for the example above here.

If you enjoyed this post, subscribe for updates (it's free)

Tama ba 'to?

Private Sub cmdsearch_Click()
strsql = ("select * from tblinfo where ID ='" & Me.txtids.Text & "'")
db.Open (strcon)
Set rs = db.Execute(strsql)
If rs.EOF = False And rs.BOF = False Then
While Not rs.EOF
With rs
Me.txtid.Text = rs(0)
Me.txtname.Text = rs(1)
Me.txtage.Text = rs(2)
Me.cmbgender.Text = rs(3)
Me.dtpbirth.Value = rs(4)
Me.txtaddress.Text = rs(5)
Me.txtcontact.Text = rs(6)
Me.txtcitizen.Text = rs(7)
Me.txtreligion.Text = rs(8)
Me.txtguardian.Text = rs(9)
Me.cmblevel.Text = rs(10)
Me.cmbts.Text = rs(11)
Me.cmbtransfer.Text = rs12()
Me.txtsla.Text = rs(13)
Me.lbldate.Caption = rs(14)
End With

Call MsgBox("No Records Found!", vbCritical, "RECORDS")
End If
End Sub

Seaching arrays

Seaching arrays

thats what i need

but can u give me a program more easy that can accepts data entry through an input box function and display the entries in the form itself as you can see this program will only allows a user to enter 10 names each time it clicks on the start button