Pesquisa registros q comecem com tal letra!
boa tarde ... preciso fazer uma função q faça uma pesquisa entre letras ..
tipo o cara escolhe A em um combo e F em outro, dai meu query seleciona os registros que que comecem entre essas letras ... se for muita coisa pode ser uma pesquisa com apenas um combo, dai se escolher A psquisa todos que comecem por A ....só q eu nunca declarei uma função e não sei como funciona ....
preciso fazer com função, para fazer algo assim em um botão
If PESQUISATABELA then
begin
comando
.....
end;
onde Pesquisatabela é a função q faz a busca ... me ajudem, nem sei como declararr ..
tipo o cara escolhe A em um combo e F em outro, dai meu query seleciona os registros que que comecem entre essas letras ... se for muita coisa pode ser uma pesquisa com apenas um combo, dai se escolher A psquisa todos que comecem por A ....só q eu nunca declarei uma função e não sei como funciona ....
preciso fazer com função, para fazer algo assim em um botão
If PESQUISATABELA then
begin
comando
.....
end;
onde Pesquisatabela é a função q faz a busca ... me ajudem, nem sei como declararr ..
Anonymous
Curtidas 0
Respostas
Nildo
10/02/2003
Faz um FOR que passa por todos os registros, e coloca assim:
if Registro[i].text in [combobox1.text[1] .. combobox2.text[1]] then
// Esse esta entre a letra que ele quer
if Registro[i].text in [combobox1.text[1] .. combobox2.text[1]] then
// Esse esta entre a letra que ele quer
GOSTEI 0
Lrferreira3
10/02/2003
bom se for por sql usa isso
If (combobox1.text = ´Nome´)and(edit1.text<>´´)then
begin
dbgrid1.DataSource := Datamodule2.datasource1;
datamodule2.Query.sql.clear;
datamodule2.Query.sql.add(´select * from tabela where upper(nome) like upper(´´ + edit1.text + ´¬´)´);
datamodule2.Query.Active := true;
if not datamodule2.Query.Locate(´Nome´,edit1.Text,[loPartialKey,locaseinsensitive]) then
begin
ShowMessage(´Arquivo não encontrado´);
ou simplesmente esse
datamodule2.Tabela.Locate(´nome´,edit1.text,[loPartialKey,locaseinsensitive]);
coloca isso num botão
If (combobox1.text = ´Nome´)and(edit1.text<>´´)then
begin
dbgrid1.DataSource := Datamodule2.datasource1;
datamodule2.Query.sql.clear;
datamodule2.Query.sql.add(´select * from tabela where upper(nome) like upper(´´ + edit1.text + ´¬´)´);
datamodule2.Query.Active := true;
if not datamodule2.Query.Locate(´Nome´,edit1.Text,[loPartialKey,locaseinsensitive]) then
begin
ShowMessage(´Arquivo não encontrado´);
ou simplesmente esse
datamodule2.Tabela.Locate(´nome´,edit1.text,[loPartialKey,locaseinsensitive]);
coloca isso num botão
GOSTEI 0
Anonymous
10/02/2003
desculpe mas acho q vc num entenderam ... meu problema principal é criar um afunção tipo
[b:ec14f3a87d]Function[/b:ec14f3a87d] ... não sei qual parametro uso
outra duvida e fazer uma pesquisa entre letras ... digito A em um edit e D em outro dai ele pesquisa tudo que comece com A,B,C,D ...manja ..pesquisa entre letras ... valeuuuuuu
[b:ec14f3a87d]Function[/b:ec14f3a87d] ... não sei qual parametro uso
outra duvida e fazer uma pesquisa entre letras ... digito A em um edit e D em outro dai ele pesquisa tudo que comece com A,B,C,D ...manja ..pesquisa entre letras ... valeuuuuuu
GOSTEI 0