Verificar DBEdit Vazio
02/01/2016
0
Boa tarde pessoal, estou com problemas nesse código que creio que é coisa simples
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
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
Curtir tópico
+ 0
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;
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;
Raimundo Pereira
Responder
Mais Posts
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.
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
Clique aqui para fazer login e interagir na Comunidade :)