clientdataset

Delphi

11/02/2008

Como fazer validacao de dados em tabelas Mybase ( cds)?
-ex: tabela : controle ( autoinc)
nome
no onvalidate de nome :
para evitar registros duplicados


Cilmar

Cilmar

Curtidas 0

Respostas

Marco Salles

Marco Salles

11/02/2008

várias Formas

se entendi bem , pode-se usar o código abaixo :

procedure TForm1.cdsNOMEValidate(Sender: TField);
 var
  cdsTemp:TclientDaTaset;
begin
try
  cdsTemp:=TclientDataSet.Create(self);
  cdsTemp.CloneCursor(cds,false);
  if cdsTemp.Locate(´Nome´,cds.FieldByName(´Nome´).AsString,[LocaseInsensitive]) then
   raise exception.Create(´RegistroDuplicado´);
finally
  freeandNil(cdsTemp);
end;
end;


P:s Cds é o Nome do Seu ClienteDataSet

Espero que ajude


GOSTEI 0
Cilmar

Cilmar

11/02/2008

Funciona!

Grato pela dica.

um abraço

Cilmar


GOSTEI 0
POSTAR