dbedit

Delphi

24/02/2003

Boa tarde a todos,\


Como saber se um ou mais dbedit´s estao vazios ou com dados?, preciso fazer uma consulta ou filtro através de comandos SQL, onde o usuario digita nos dbedit´s os campos a pesquisar ou filtrar, preciso saber onde ele digitou para poder montar a sequencia de ´WHERE´S´.

dese já agradeço a atenção de todos,

obrigado.

marcos.


Anonymous

Anonymous

Curtidas 0

Respostas

Tsilva

Tsilva

24/02/2003

Coloque no botao da consulta:

if dbedit.text = ´´ then
ShowMessage(´Campo em Branco´);
dbedtit.setfocus
else
comando...


GOSTEI 0
Marcelo Saviski

Marcelo Saviski

24/02/2003

textoSQL := ´select * from table where ´;
if dbedit1.text <> ´´ then
  begin
    textoSQL := TextoSQL + ´ (´ + nomedoCampo1 + ´ like "¬´ +  dbedit1.text + ´¬") and ´;
  end;

if dbedit2.text <> ´´ then
  begin
    textoSQL := TextoSQL + ´ (´ + nomedoCampo2 + ´ like "¬´ +  dbedit2.text + ´¬") and ´;
  end;

....repete o numero de dbedit´s
if dbeditnumero.text <> ´´ then
  begin
    textoSQL := TextoSQL + ´ (´ + nomedoCamponumero + ´ like "¬´ +  dbeditnumero.text + ´¬") and ´;
  end;

textoSQL := Copy(textoSQL, 1, Length(TextoSQL) - 4) + ´ Order By ´ + nomedoCampodeordem + ´asc´ ou ´desc´


:mrgreen: :mrgreen: :mrgreen: :mrgreen: :mrgreen: :mrgreen: :mrgreen: :mrgreen: :mrgreen: :mrgreen: :mrgreen: :mrgreen: :mrgreen: :mrgreen:


GOSTEI 0
POSTAR