Código Delphi [-] Adoquery1.sql.text:= 'Select Codigocuenta from TuTabla Where Codigocuenta =' +QuotedStr(Edit1.Text); If Edit1.Text = Adoquery1.Fields[0].Value then MessageDlg('El codigo ya Existe',mtError,[mbOK],0) else // lo que sea
Adoquery1.sql.text:= 'Select Codigocuenta from TuTabla Where Codigocuenta =' +QuotedStr(Edit1.Text); If Edit1.Text = Adoquery1.Fields[0].Value then MessageDlg('El codigo ya Existe',mtError,[mbOK],0) else // lo que sea