VB 6.0 Auotfiltering in textbox

[k4012656]

HI...Im researching for how to auto filter the text box while im typing inside it (ex. I type A in the VB textbox and all records that have letter A will appear dropdown and as I proceed typing Am all records that have Am will appear dropdown) plzzzzzzzzzzzzz z..... any one can give me some code how to do this in my VB 6.0 project....Im using sql as my database!



I will be thankful if any one will reply!thnx....

[hariharanmca]

HI...Im researching for how to auto filter the text box while im typing inside it (ex. I type A in the VB textbox and all records that have letter A will appear dropdown and as I proceed typing Am all records that have Am will appear dropdown) plzzzzzzzzzzzzz z..... any one can give me some code how to do this in my VB 6.0 project....Im using sql as my database!



I will be thankful if any one will reply!thnx....

Use the query like

[CODE=sql]strSql = "Select <Field Names> from <Table Name> where <Search Field> like '" & strSearchText & "%'"[/CODE]

[Killer42]

... auto filter the text box while im typing inside it (ex. I type A in the VB textbox and all records that have letter A will appear dropdown and as I proceed typing Am ...

I'm guessing you must be referring to a listbox or something of that sort? A textbox can only display one thing at a time.

[QVeen72]

Hi,

use a ComboBox, It can Act as both TextBox and a ListBox. Write the Code in KeyPresss event, to populate the Combo..

REgards
Veena

[hariharanmca]

Combo Box is not good for huge list because that will not automatically show the list and we should add 3 to 30 items (Static Data).

We have to use programmaticall y adding items in ‘List Box’ or ‘List view’ with ‘Text Box’ combination.

[QVeen72]

Hi hari,

what is this " we should add 3 to 30 items (Static Data)"....?
Why do we need to add Static Data...?

I always prefer TextBox + ListBox Combination with "Sorted" property of the ListBox =True. Since he said he wants to type, I suggested ComboBox


REgards
Veena

[syamas]

HI...Im researching for how to auto filter the text box while im typing inside it (ex. I type A in the VB textbox and all records that have letter A will appear dropdown and as I proceed typing Am all records that have Am will appear dropdown) plzzzzzzzzzzzzz z..... any one can give me some code how to do this in my VB 6.0 project....Im using sql as my database!



I will be thankful if any one will reply!thnx....

Hey friend
use a frame named 'framepartdet'
put MSFlex grid named 'searchgrid' on 'framepartdet' with three columns, fixed rows 2



[CODE=vb]Private Sub txtcode_Change( ) 'event
Dim i As Integer
If rsstock.State = adStateOpen Then rsstock.Close
Dim ccode As String
If txtcode.Text = "" Then ' text box value
framepartdet.Vi sible = False
Exit Sub
End If
ccode = Trim(txtcode.Te xt)
rsstock.Open "select distinct code,name from table where field like '" & ccode & "%' ", cn, adOpenDynamic, adLockOptimisti c
If Not rsstock.EOF And Not rsstock.BOF Then
framepartdet.Vi sible = true
rsstock.MoveFir st
i = 0
searchgrid.Rows = 1
Do While Not rsstock.EOF
With searchgrid
.TextMatrix(i, 0) = i+1
.TextMatrix(i, 1) = "" & rsstock.Fields( 0)
.TextMatrix(i, 2) = "" & rsstock.Fields( 1)
i = i + 1
.Rows = .Rows + 1
End With
rsstock.MoveNex t
Loop
Else
framepartdet.Vi sible = False
End If
rsstock.Close
End Sub[/CODE]

* link removed *

[hariharanmca]

Hi hari,

what is this " we should add 3 to 30 items (Static Data)"....?
Why do we need to add Static Data...?

I always prefer TextBox + ListBox Combination with "Sorted" property of the ListBox =True. Since he said he wants to type, I sujjested ComboBox


REgards
Veena

we should add 3 to 30 items (Static Data)"....?

That is not exact count (that is approximate).
Static Data - I mean which will change the list index during key press or key up event.

[k4012656]

thanks!for your reply but i can't get it...can u plz instruct me the step by step method on how can I make a textbox searching in vb6 using my sql database!sorry for being slow...Im only a noob in VB6...

[k4012656]

Hi hari,

what is this " we should add 3 to 30 items (Static Data)"....?
Why do we need to add Static Data...?

I always prefer TextBox + ListBox Combination with "Sorted" property of the ListBox =True. Since he said he wants to type, I suggested ComboBox


REgards
Veena

Hi QVeen72
tnx for the response...can you teach me how to use combobox in filtering?ex.wh en I type A all names starting A will appear and if i type Ab all names with Ab appear and the names with the letter A but without b will disappear!how can I do that?

[k4012656]

tnx for the response...can you teach me how to use combobox in filtering?ex.wh en I type A all names starting A will appear and if i type Ab all names with Ab appear and the names with the letter A but without b will disappear!how can I do that?

[k4012656]

Hey friend
use a frame named 'framepartdet'
put MSFlex grid named 'searchgrid' on 'framepartdet' with three columns, fixed rows 2



[CODE=vb]Private Sub txtcode_Change( ) 'event
Dim i As Integer
If rsstock.State = adStateOpen Then rsstock.Close
Dim ccode As String
If txtcode.Text = "" Then ' text box value
framepartdet.Vi sible = False
Exit Sub
End If
ccode = Trim(txtcode.Te xt)
rsstock.Open "select distinct code,name from table where field like '" & ccode & "%' ", cn, adOpenDynamic, adLockOptimisti c
If Not rsstock.EOF And Not rsstock.BOF Then
framepartdet.Vi sible = true
rsstock.MoveFir st
i = 0
searchgrid.Rows = 1
Do While Not rsstock.EOF
With searchgrid
.TextMatrix(i, 0) = i+1
.TextMatrix(i, 1) = "" & rsstock.Fields( 0)
.TextMatrix(i, 2) = "" & rsstock.Fields( 1)
i = i + 1
.Rows = .Rows + 1
End With
rsstock.MoveNex t
Loop
Else
framepartdet.Vi sible = False
End If
rsstock.Close
End Sub[/CODE]

* link removed *

Hi syamas

tnx for the response...can you teach me how to use combobox in filtering?ex.wh en I type A all names starting A will appear and if i type Ab all names with Ab appear and the names with the letter A but without b will disappear!how can I do that?