Array
(
)

Ler o Banco de Dados e Verificar se o arquivo já existe

Adelor Silva
   - 24 dez 2005

utilizo o paradox e gostaria de fazer a seguinte rotina...

antes de gravar o novo arquivo no banco de dados, o sistema verifica se já não existe um arquivo com este nome...


Adelor Silva
   - 24 dez 2005

ai vai uma parte do código fonte...

procedure TCadBrChata.Button2Click(Sender: TObject);
begin
if Trim(DBEdit1.Text) = ´´ then
begin
DBEdit1.SetFocus;
ShowMessage(´Digite a Descrição da Barra Chata´);
exit;
end;
DataModule1.TB_Tab_Br_Chata.Post;
DBEdit1.SetFocus;
end;


Edilcimar
   - 24 dez 2005

na realidade o que vc fez foi verificar se o nome é nulo, se não for então vc está tentando gravar, mas se o nome realmente existir vc não está fazendo nada, então faça o seguinte, se o nome não for nulo dê um locate (ou algo semelhante) e aí então se não achar vc poderá fazer a inclusão do referido registro, e caso o mesmo seja encontrado faça algo para verificar se o mesmo é idêntico àquele que vc está tentando inserir, pois José da Silva eu tenho a leve impressão de que existe mais de 1, assim como pilha tipo AA existe mais de 1 marca