ComboBox Search

Thanks Mathias... Unfortunately, that crashes it too.

Re Hello AD1408

Youc could also use this code modifying it according to your application :

procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);
begin
if key = VK_F9 then begin
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('SELECT Field1 FROM Table1 WHERE Field1 LIKE "%' + ComboBox1.Text + '%"');
Query1.Open;

ComboBox1.Items.Clear;

while NOT Query1.Eof do begin
ComboBox1.Items.Add(Query1['Field1']);

Query1.Next;
end;

if ComboBox1.Items.Count > 0 then
ComboBox1.ItemIndex := 0;
end;
end

JB

Please check out this example
http://myvisualdatabase.com/forum/misc. … download=1

I wanted add search in combobox on another form (frmInvoice) where combo field contains firstname and lastname. {firstname} {lastname}
It works fine with last name but not with first name or both together.

on frmInvoice
i.e. typing bai finds all persons with lastname Bailey and lists in combo drop-down OK.
However, typing david or david bai doesnt find anything?
There is a David Bailey saved in person db.

Please see the attached sample projects:

Hi JB,

Thanks for the extra information.
However, my question remains unanswered. Please see my previous question above post#9
It's about searching in combobox.

Hi EHW,

Thanks a lot for the correction......
However, with that correction combo on inv form lets me enter only one letter at my end?

----------
Edit:

Sorry EHW. I was testing it with MVD 3.1x. It works fine with MVD 2.7
Need an update for search in combo script so that it works with MVD 3.1x
I have to use MVD 3.1x as I'm using some tGrid display filtering which only works on MVD 3.1x

Thank you sooooooo much Dmitry for the update and revised sample project.......................

Name or Surname search works fine now.

Taking it little further, what about if I want to use name and surname as a search term?
For instance:
1. If I type Amy and Ba in combo (space between Amy and Ba) it'd find;
Amy Baker
Amy Bailey
Amy Ball
Amy Bancroft
.....

2. If I type J and Ba in combo (space between J and Ba) it'd find;
Jon Baker
John Bailey
John Baker
James Ball
Jack Bancroft
Jack Baker
Jack Ball
.......

Thx a lot Dmitry...........................

I've tested MVD v 3.21beta but it didn't work at my end.

For instance, on groups combo typing J and hitting space clears combo list then typing more after space doesn't make any difference.

You have applied to on form1 groups combo. I tried to apply same script with some edit to frmInvoice combo and it didn't accept any any input?

procedure frmInvoice_cbCustomer_OnKeyPress (Sender: string; var Key: Char);
var
    id: integer;
    ar: array of string;

begin

    if ord(Key)= 13 then
    begin
        id := frmInvoice.cbCustomer.dbItemID;
        frmInvoice.cbCustomer.DroppedDown:=False;
        frmInvoice.cbCustomer.dbItemID := id;
        Key := #0;
        Exit;
    end;

    if ord(Key)= 8 then // for backspace button
    begin
        s_cbCustomer := '';
        frmInvoice.cbCustomer.Text := '';
        frmInvoice.cbCustomer.dbUpdate; //UpdateDatabase('person');
        Key := #0;
        frmInvoice.cbCustomer.DroppedDown:=False;
        frmInvoice.cbCustomer.dbItemID := -1;
        Exit;
    end;

    s_cbCustomer := s_cbCustomer + Key;
    Key := #0;

    ar := SplitString(s_cbCustomer, ' ');
    if (Length(ar)=2) and (ar[1]<>'') then
    frmInvoice.cbCustomer.dbFilter := '(firstname LIKE '''+ ar[0] +'%'') AND (lastname LIKE '''+ar[1]+'%'')'
    else
        frmInvoice.cbCustomer.dbFilter := '(lastname LIKE ''%'+ s_cbCustomer +'%'''+')';

    frmInvoice.cbCustomer.dbUpdate;
    frmInvoice.cbCustomer.DroppedDown:=True;
    frmInvoice.cbCustomer.Text := s_cbGroups;
    frmInvoice.cbCustomer.SelStart := Length(s_cbCustomer);

end;



procedure frmInvoice_cbCustomer_OnCloseUp (Sender: string);
var
    id: integer;

begin

    id := frmInvoice.cbCustomer.dbItemID;
    frmInvoice.cbCustomer.dbFilter := '';
    frmInvoice.cbCustomer.dbUpdate; //UpdateDatabase('person');
    frmInvoice.cbCustomer.dbItemID := id;
    s_cbCustomer := '';
end; 

Hi Dmitry,

Please see the attached sample project.
I was trying to apply search in combo (invoice form) as described on my post #15

Thx EHW,

You're right, there is an error on pasted script. That has been corrected in "Search in ComboBox 5b (v3.21b and higher).zip " sample project.

Still not possible to do a search with and.
For instance If I want to search in combo for A Ba to find all names starting with A and surnames starting with BA. combo stops (showing nothing) after pressing space bar and then typing anything else after pressing space bar doesn't make any difference.

Currently, it's doing searching  name OR surname fine. I was hoping to add to OR search AND search as well as described above and my post #15.