Fórum Verificar DBEdit Vazio #541288

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;