Consulta, SQL????????????

Delphi

03/06/2003

Ola!
Sou iniciante. :oops:
Tenho uma tabela com uns dos campos VENDEDOR e CREDITO.
Gostaria de criar uma consulta que ao digitar o nome do vendedor em um edit e pressionar o botão OK, exiba em um DBGrid todos os clientes do determinado vendedor que esta com credito negativo.
Tipo: :roll:

Select * from tabela where credito < 0 and vendedor = conteudo do edit.text;
Como passar o conteudo do edit para esta instrução? :?:

Qual o codigo do botão?

Fico agradecido pela ajuda.


Marcelo_j.

Marcelo_j.

Curtidas 0

Respostas

Inutaishou

Inutaishou

03/06/2003

Marcelo. não conheço sql, mas eu acho que você deve fazer isso assim:

Query1.SQL := ´Select * from tabela where credito < 0 and vendedor = ´ + edit.text;


Tenta isso... Acho que dá certo...


GOSTEI 0
Leandronanet

Leandronanet

03/06/2003

Tente isso..

Coloque no onclick do botão que vai fazer a pesquisa

Query.Close;
Query.Sql.Text := ´select * from tabela where credito < 0 and upper(vendedor) like upper (´+quotedstr(NOME_DO_EDIT.text+´¬´)+´) ´
Query.Open;


GOSTEI 0
Perin75

Perin75

03/06/2003

cara tente isto



With Query1 do
Begin
close;
sql.clear;
sql.add(´select * from tabela´);
sql.add(´where where credito < 0 ´);
sql.add(´and vendedor like upper(:vendedor)´)
parambyname(´vendedor´).asstring := ´¬´+edit1.text+´¬´
open;

End;

caso o campo credito set null nao tenha nada
faz assim

With Query1 do
Begin
close;
sql.clear;
sql.add(´select * from tabela´);
sql.add(´where where credito is null´);
sql.add(´and vendedor like upper(:vendedor)´)
parambyname(´vendedor´).asstring := ´¬´+edit1.text+´¬´
open;
End;


faz isto que funciona


GOSTEI 0
POSTAR