Fórum Consulta SQL #149443

25/03/2003

0

Delphi

Estou com um probleminha, é o seguinte:

Tenho uma consulta Sql para consultar os documentos pelo nome do cliente e pelo nome da obra...

Select * from ´Tbdocumentos.db´ doc
Where doc.nomecli like :Nome and doc.nomeobra like :nomeobra

Tenho dois maskedits, o primeiro para o nome do cliente e o segundo pelo nome da obra..
no onchange do primeiro:

Qrbuscar.Close;
Qrbuscar.Params[0].AsString:=Maskedit1.Text + ´¬´;
Qrbuscar.Open;

no onchange do segundo:

Qrbuscar.Close;
Qrbuscar.Params[1].AsString:=Maskedit2.Text + ´¬´;
Qrbuscar.Open;

Até ai tudo bem, mas só q qdo vou consultar, clico no primeiro maskedit e vou digitar o nome do cliente, ele não procura nada, só depois q eu clicar no segundo mask e digitar algo e apagar, aí ele parece q habilita o query e o dbgrid mostra os itens, aí ele consulta normal.

alguém tem uma sugestão pra ´consertar´ isso??

Obrigadooo....

Rafaela


Rafaela

Rafaela

Responder

Posts

25/03/2003

Diana

Select * from ´Tbdocumentos.db´ doc
Where doc.nomecli like :Nome AND doc.nomeobra like :nomeobra

DO JEITO QUE VOCE COLOCOU ELE EXIGI QUE REALMENTE OS DOIS CAMPOS SEJAM PREENCHIDOS...´quando nomecliente for como nome E nomeobra for como nomeobra´

tenta assim
cria duas query´s
query1 - para consultar por nome do cliente
e query2 - para consultar por nome da obra

no form create coloca
query1.open;
query2.open;

na sql de cada uma coloca:
select * from tabela
where nomecli like:nomecli

e no onchange ou onexit de cada uma vc coloca
Query1.Close;
Query1.Params[0].AsString:=Maskedit1.Text + ´¬´;
Query1.Open;

Query2.Close;
Query2.Params[0].AsString:=Maskedit2.Text + ´¬´;
Query2.Open;

@--->>>


Responder

Gostei + 0

25/03/2003

Aroldo Zanela

Estou com um probleminha, é o seguinte: Tenho uma consulta Sql para consultar os documentos pelo nome do cliente e pelo nome da obra... Select * from ´Tbdocumentos.db´ doc Where doc.nomecli like :Nome and doc.nomeobra like :nomeobra Tenho dois maskedits, o primeiro para o nome do cliente e o segundo pelo nome da obra.. no onchange do primeiro: Qrbuscar.Close; Qrbuscar.Params[0].AsString:=Maskedit1.Text + ´¬´; Qrbuscar.Open; no onchange do segundo: Qrbuscar.Close; Qrbuscar.Params[1].AsString:=Maskedit2.Text + ´¬´; Qrbuscar.Open; Até ai tudo bem, mas só q qdo vou consultar, clico no primeiro maskedit e vou digitar o nome do cliente, ele não procura nada, só depois q eu clicar no segundo mask e digitar algo e apagar, aí ele parece q habilita o query e o dbgrid mostra os itens, aí ele consulta normal. alguém tem uma sugestão pra ´consertar´ isso?? Obrigadooo.... Rafaela


Select * from ´Tbdocumentos.db´ doc
Where doc.nomecli like :Nome [b:49e4d8e71d]or[/b:49e4d8e71d]doc.nomeobra like :nomeobra


Responder

Gostei + 0

25/03/2003

Aroldo Zanela

Estou com um probleminha, é o seguinte: Tenho uma consulta Sql para consultar os documentos pelo nome do cliente e pelo nome da obra... Select * from ´Tbdocumentos.db´ doc Where doc.nomecli like :Nome and doc.nomeobra like :nomeobra Tenho dois maskedits, o primeiro para o nome do cliente e o segundo pelo nome da obra.. no onchange do primeiro: Qrbuscar.Close; Qrbuscar.Params[0].AsString:=Maskedit1.Text + ´¬´; Qrbuscar.Open; no onchange do segundo: Qrbuscar.Close; Qrbuscar.Params[1].AsString:=Maskedit2.Text + ´¬´; Qrbuscar.Open; Até ai tudo bem, mas só q qdo vou consultar, clico no primeiro maskedit e vou digitar o nome do cliente, ele não procura nada, só depois q eu clicar no segundo mask e digitar algo e apagar, aí ele parece q habilita o query e o dbgrid mostra os itens, aí ele consulta normal. alguém tem uma sugestão pra ´consertar´ isso?? Obrigadooo.... Rafaela


Select * from ´Tbdocumentos.db´ doc
Where doc.nomecli like :Nome [b:4be2652b5c]or[/b:4be2652b5c] doc.nomeobra like :nomeobra


Responder

Gostei + 0

25/03/2003

Aroldo Zanela

Acrescentando:

No onChage dos dois componentes:
begin
PesquisaObra;
end;

procedure PesquisaObra;
begin
Qrbuscar.Close;
Qrbuscar.Params[0].AsString:=Maskedit1.Text + ´¬´;
Qrbuscar.Params[1].AsString:=Maskedit2.Text + ´¬´;
Qrbuscar.Open;
end;


Responder

Gostei + 0

25/03/2003

Rafaela

Como declaro essa procedure Aroldo?


Responder

Gostei + 0

25/03/2003

Okama

Como declaro essa procedure Aroldo?



[color=green:9eeb778402]No inicio do codigo fonte após as definições de Type: [/color:9eeb778402]

[b:9eeb778402]PROCEDURE[/b:9eeb778402] PESQUISAOBRA;


[color=green:9eeb778402]e após [/color:9eeb778402]
[b:9eeb778402]implementation[/b:9eeb778402]

[b:9eeb778402]uses[/b:9eeb778402] unit2;

[color=blue:9eeb778402]{$R *.dfm}[/color:9eeb778402]
[b:9eeb778402]
PROCEDURE [/b:9eeb778402]TForm1.PESQUISAOBRA;
[b:9eeb778402]begin[/b:9eeb778402]

<bla bla bla>
[b:9eeb778402]end;[/b:9eeb778402]


[color=green:9eeb778402]antes de[/color:9eeb778402]
[b:9eeb778402]end.[/b:9eeb778402]


Responder

Gostei + 0

25/03/2003

Aroldo Zanela

Como declaro essa procedure Aroldo?


type
TForm1 = class(TForm)
procedure PesquisaObra; ( depois de escrever - pressione CTRL SHIFT C para colocar o código)
private
{ Private declarations }
public
{ Public declarations }
end;


Responder

Gostei + 0

25/03/2003

Rafaela

MUITÍSSIMO OBRIGADO GENTEEEEE..........
DEU TUDO CERTINHOOO.......


VALEUUUUUUUUU


RAFAELA


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar