A Distinct Search
This a Search program that searches for a 'specific record in a database. This is a kind of DISTINCT search. Where u just have to enter the first letter of the data u want and it gives u an output in the grid.
Original Author: Anil Iyengar
Inputs
'Im using a MSHFlexGrid with a ADO DataControl.
'Connect the ADODC to the Biblio.mdb
'Set Recordsource to Publisers .
Assumptions
im using the Mid function.
Get ADODC and connect to Biblio.mdb.
Returns
A Specific Row of data.
Code
Private Sub Command1_Click()
Unload Me 'Unload the program
End
End Sub
Private Sub Form_Load()
'set the Colwidth of the grid
fg.ColWidth(0) = 550
fg.ColWidth(1) = 3000
fg.ColWidth(2) = 3000
End Sub
Private Sub Text1_Change()
Adodc1.RecordSource = "select PubID,Name,[Company Name] from publishers where ucase(mid(pubid,1," & Len(Text1.Text) & "))= '" & Text1.Text & "' and ucase(mid(name,1," & Len(Text2.Text) & "))= '" & Text2.Text & "'"
Adodc1.Refresh
fg.SelectionMode = flexSelectionByRow
'The mid function checkes the records according
'to the info typed in the textbox.
'It queries the ADODC with every letter typed
'in the textbox,making it a bit more refined
'search on the records.
End Sub
Private Sub Text2_Change()
Adodc1.RecordSource = "select PubID,Name,[Company Name] from publishers where ucase(mid(name,1," & Len(Text2.Text) & "))= '" & Text2.Text & "'"
Adodc1.Refresh
fg.SelectionMode = flexSelectionByRow
End Sub
'Just use the mid function as i have and
'you can query any database for the record.
'This kind of search is useful if the u have to
'go thru a large database.
'PLEASE VOTE
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.