Ler o Banco de Dados e Verificar se o arquivo já existe
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...
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
Curtidas 0
Respostas
Adelor Silva
24/12/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;
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;
GOSTEI 0
Edilcimar
24/12/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
GOSTEI 0