Verificar DBEdit Vazio

Delphi

02/01/2016

Boa tarde pessoal, estou com problemas nesse código que creio que é coisa simples
  if(DBEdit10.Text = not null) then
  begin
    frmConexao.GRUPOCLIENTES_SQLDataSet1.Close;
    frmConexao.GRUPOCLIENTES_ClientDataSet1.Close;
    frmConexao.GRUPOCLIENTES_SQLDataSet1.CommandText := 'SELECT * FROM GRUPOCLIENTES WHERE CODIGO = '+DBEdit10.Text;
    frmConexao.GRUPOCLIENTES_SQLDataSet1.Open;
    frmConexao.GRUPOCLIENTES_ClientDataSet1.Open;
    sEdit1.Text := frmConexao.GRUPOCLIENTES_ClientDataSet1.FieldByName('NOME').AsString;
  end;

No caso ele verifica se o DBEdit10 não está vazio para dar continuidade ao código, mas não está funcionando, gostaria de saber se tem outro jeito de verificar isso aí.
Obrigado
Luis Dantas

Luis Dantas

Curtidas 0

Melhor post

Raimundo Pereira

Raimundo Pereira

03/01/2016

Bom dia, Luis.

Verifique o link do dbedit10.text
Se estiver linkado ao mesmo GRUPOCLIENTES_SQLDataSet1 toda vez que você fecha-lo ele estará em branco, não vai funcionar a não ser que guarde os dados do dbedit10
em uma variável antes.

Var TMP_ID:string;
TMP_ID:=dbEdit10.Text;

f (TMP_ID <>'' ) then
begin
frmConexao.GRUPOCLIENTES_SQLDataSet1.Close;
frmConexao.GRUPOCLIENTES_ClientDataSet1.Close;
frmConexao.GRUPOCLIENTES_SQLDataSet1.CommandText := 'SELECT * FROM GRUPOCLIENTES WHERE CODIGO = '''+TMP_ID+'''';
frmConexao.GRUPOCLIENTES_SQLDataSet1.Open;
frmConexao.GRUPOCLIENTES_ClientDataSet1.Open;
sEdit1.Text := frmConexao.GRUPOCLIENTES_ClientDataSet1.FieldByName('NOME').AsString;
end;
GOSTEI 1

Mais Respostas

Luis Dantas

Luis Dantas

02/01/2016

Obrigado P2.
Consegui aqui já. Forte abraço
GOSTEI 0
Douglas

Douglas

02/01/2016

Opa Luis, tudo bem?

Gostaria de deixar uma dica: null é diferente de vaizo, ok? Por isso, o teu código não estava funcionando!

Bons Códigos!

Um abraço.
GOSTEI 1
Luis Dantas

Luis Dantas

02/01/2016

Entendi Douglas, Obrigado.
GOSTEI 0
POSTAR