Pesquisa SQL

Delphi

22/07/2003

Tenho uma duvida simples em sql...

Tenho que fazer uma pesquisa através de um codigo contido em um edit.
Quando a pessoa digitar o número 1, tem que trazer todos codigos iniciados por 1..

So presido a linha de comando do sql.

grato, desde já!


Marciobrignol

Marciobrignol

Curtidas 0

Respostas

Durvalcastro

Durvalcastro

22/07/2003

/*Assim*/
SELECT CODIGO, NOME
FROM CLIENTE
WHERE CODIGO LIKE ´1¬´

/*ou assim*/

SELECT CODIGO, NOME
FROM CLIENTE
WHERE CODIGO LIKE ´1¬´
WHERE CLICOD starting with ´1´

Obs.: lembre-se de que deste jeitoo Interbase não usará os índices para fazer a pesquisa...
8)


GOSTEI 0
Marciobrignol

Marciobrignol

22/07/2003

Tah mas, desse modo ja consegui, o problema esta sendo substituir aquele um por edit.text. Ai que estou me perdendo e tah dando erro de sql!

Se poderes me passar o comando sql, ja com isso substituido seria muito bom!

Obrigado!


GOSTEI 0
Vieira_alex

Vieira_alex

22/07/2003

:D

E aí amigo , tente fazer assim.

Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add(´SELECT * FROM Funcio´);
Query1.SQL.Add(´WHERE Codigo = :vCodigo´);
Query1.ParamByName(´vCodigo´).AsString := ECodigo.Text;
Query1.Open;


GOSTEI 0
Marcelo.c

Marcelo.c

22/07/2003

Acho que o melhor seria:

Query1.SQL.Add(´SELECT * FROM Cliente´);
Query1.SQL.Add(´WHERE Codigo LIKE ´+QuotedStr(Edit1.Text+´¬´));


GOSTEI 0
Rjanuzzi

Rjanuzzi

22/07/2003

:D E aí amigo , tente fazer assim. Query1.Close; Query1.SQL.Clear; Query1.SQL.Add(´SELECT * FROM Funcio´); Query1.SQL.Add(´WHERE Codigo = :vCodigo´); Query1.ParamByName(´vCodigo´).AsString := ECodigo.Text; Query1.Open;



ou,


Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add(´SELECT * FROM Funcio´);
Query1.SQL.Add(´WHERE Codigo LIKE :vCodigo´);
Query1.ParamByName(´vCodigo´).AsString := ECodigo.Text+´¬´;
Query1.Open;


GOSTEI 0
POSTAR