Ler o Banco de Dados e Verificar se o arquivo já existe
24/12/2005
0
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
Curtir tópico
+ 0
Responder
Posts
24/12/2005
Adelor Silva
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;
Responder
24/12/2005
Edilcimar
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
Responder
Clique aqui para fazer login e interagir na Comunidade :)