Verificar DBEdit Vazio

02/01/2016

2

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
Responder

Post mais votado

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;
Responder

Mais Posts

03/01/2016

Luis Dantas

Obrigado P2.
Consegui aqui já. Forte abraço
Responder

04/01/2016

Douglas

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.
Responder

04/01/2016

Luis Dantas

Entendi Douglas, Obrigado.
Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira