Pesquisa com c�digo SQL.

Question

Ola Pessoal, estou tentando fazer uma pesquisaem com o seguinte c�digo SQL:[code:1:4ed1ccc070]procedure TFrm_ConsCliente.BtConsultarClick(Sender: TObject);beginWith DMDados.IBQ_ConsCli doBeginClose;Sq...

Eixox · Answer

Acredito que isso deva resolver o seu problema:

procedure TFrm_ConsCliente.BtConsultarClick(Sender: TObject);
begin
With DMDados.IBQ_ConsCli do
begin
Close;
Sql.Clear;
Sql.Add(�Select From Tab_Cliente �);
[b:d581e05ae6][u:d581e05ae6]Sql.Add(�Where Nome_Cli = � + EditBusca.Text);[/u:d581e05ae6][/b:d581e05ae6]
Open;
end;
end;

Verifique que faltou o tipo de compara��o que voc� gostaria da fazer (=) ou substitua pelo comando LIKE se achar melhor.

neste caso ficaria
SQL.Add(�Where Nome_Cli Like � + �� + �� + EditBusca.Text + �� + ��);

A �ltima linha � desnecess�ria - parabyname....n�o tem necessidade j� que voc� pode colocar o par�metro diretamente do campo Edit.

Peninha · Answer

Amigo, tentei com o seu c�digo mas infleizmente n�o deu certo.
J� tentei outras alternativas e at� agora nada, vou continuar tentando acertar este c�digo. Se algu�m mas poder ajudar eu agrade�o.
Peninha.

Eixox · Answer

Como eu s� burro, n�o vi isso:T� faltando os campos retornos da sua consulta... Faltou quais os campos devem retornar - de uma olhada que agora tem que rodar obrigatoriamente.With DMDados.IBQ_ConsCli do begin Close; Sql.Clear; Sql.Add(�Select From [color=red:94db0493a7][u:94db0493a7][i:94db0493a7][b:94db0493a7]*[/b:94db0493a7][/i:94db0493a7][/u:94db0493a7][/color:94db0493a7] Tab_Cliente �); Sql.Add(�Where Nome_Cli = � + EditBusca.Text); Open; end; end;...

Thomaz_prg · Answer

Amigo EixoX, achou corretamente o erro, mas colocou o acerto em local errado. Voc� colocou assim:

With DMDados.IBQ_ConsCli do 
begin 
Close; 
Sql.Clear; 
Sql.Add(�Select From * Tab_Cliente �); 
Sql.Add(�Where Nome_Cli = � + EditBusca.Text); 
Open; 
end;

Por�m o Correto �:

With DMDados.IBQ_ConsCli do 
begin 
Close; 
Sql.Clear; 
Sql.Add(�Select [b]*[/b] From Tab_Cliente �); 
Sql.Add(�Where Nome_Cli = :Nome�);
ParamByName(�Nome�).AsString := EditBusca.Text; 
Open; 
end;

Peninha · Answer

Amigos, funcionou desta forma:[code:1:472e386611] With DMDados.IBQ_ConsCli do       begin         Close;         Sql.Clear;         Sql.Add(�Select * From Tab_Cliente �);         Sql.Add(�Where Nome_Cli = :Nome�);         ParamByName(�Nome�).AsString := EdtBusca.Text;         Open;      end;       Label1.Caption:=DmDadoS.IBQ_ConsCliNOME_CLI.AsString;[/code:1:472e386611]Mas gostaria de adcionar um detalhe nesta pesquisa. Para pesquisar preciso digitar o nome do cliente exato, como fa�o para que ao digitar os parte do primeiro nome e j� ir buscando este nome?EX: Tenho um cliente chamado Jo�o mota marinho, no entanto tenho outros com o nome de Jo�o e sobrenome diferentes.Sei que posso usar o (Like �), s� que n�o sei como coloca-lo no c�digo.Peninha....

Eixox · Answer

isso � uma pena porque consome processamento desnecess�rio, por�m
voc� pode executar isso:

no evento OnChange do Edit que ser� digitado o nome coloque o seguinte comando:

With DMDados.IBQ_ConsCli do
begin
Close;
Sql.Clear;
Sql.Add(�Select * From Tab_Cliente �);
Sql.Add(�Where Nome_Cli LIKE � + �� + EdtBusca.Text + �� + ��);
Open;
end;

Aquela parte onde voc� passa o par�metro � desnecess�ria. Economiza o processamento do sistema.

Peninha · Answer

Bem pessoal consegui.ESte c�digo faz a consulta exata do nome do cliente:[code:1:1b5b1bcb99]  With DMDados.IBQ_ConsCli do       begin         Close;         Sql.Clear;         Sql.Add(�Select * From Tab_Cliente �);         Sql.Add(�Where Nome_Cli= :Nome�);         ParamByName(�Nome�).AsString := EdtBusca.Text;         Open;      end;[/code:1:1b5b1bcb99]Agora, como fa�o para consultar tamb�m pelo c�digo do cliente?Algu�m pode me ajudar?Erivan marinho....

Paulo · Answer

Peninha fa�a assim:[quote:15c85847b4]With DMDados.IBQ_ConsCli do       begin         Close;         Sql.Clear;         Sql.Add(�Select * From Tab_Cliente �);         Sql.Add(�Where Nome_Cli like �+quotedstr( EdtBusca.Text);ou abaixo         Sql.Add(�Where Nome_Cli like �+quotedstr( EdtBusca.Text+���);>>>se quiser por partes         Open;      end; [/quote:15c85847b4]Agora n�o sei se um OR dentro do WHERE, daria certo....

Peninha · Answer

Paulo, n�o consigo nem compilar o programa, da um erro nesta linha:

   Sql.Add(�Where Nome_Cli like �+ quotedStr(EdtBusca.Text);//>>>se quiser por partes

N�o consegui identificar o erro.
Peninha.

Martins · Answer

[quote:d1e72ddf60=�peninha�]Paulo, n�o consigo nem compilar o programa, da um erro nesta linha:[code:1:d1e72ddf60]   Sql.Add(�Where Nome_Cli like �+ quotedStr(EdtBusca.Text);//>>>se quiser por partes[/code:1:d1e72ddf60]N�o consegui identificar o erro.Peninha.[/quote:d1e72ddf60]O q o colega Paulo sugeriu foi o seguinte, vc pode usar pelo nome exato assim:[code:1:d1e72ddf60]With DMDados.IBQ_ConsCli do begin Close; Sql.Clear; Sql.Add(�Select * From Tab_Cliente �); Sql.Add(�Where Nome_Cli like �+quotedstr( EdtBusca.Text);Open; end; [/code:1:d1e72ddf60]ou por partes do nome:[code:1:d1e72ddf60]With DMDados.IBQ_ConsCli do begin Close; Sql.Clear; Sql.Add(�Select * From Tab_Cliente �); Sql.Add(�Where Nome_Cli like �+QuotedStr(  ���+ EdtBusca.Text + ��� );Open; end; [/code:1:d1e72ddf60]Eu particularmente costuma trabalar com parametros e nunca tive dor de cabe�a nem perda de performance.Boa sorte!!...

Caninha51 · Answer

o c�digo dele soh naum compilou por falta de um par�ntese.

With DMDados.IBQ_ConsCli do 
begin 
Close; 
Sql.Clear; 
Sql.Add(�Select * From Tab_Cliente �); 
Sql.Add(�Where Nome_Cli like �+QuotedStr(  ���+ EdtBusca.Text + ��� )); 
Open; 
end;