Oi João...
Exatamente isso o que eu queria!!!!!!!!!
Apesar de eu ser analista, não sou expert em programação (tenho outras
atribuições).
Esta sua solução, creio, vai resolver meus problemas.
E por ser um analista idoso, não programo exatamente orientado a objetos. Sou
do time mais antigo, procedural, que não consegue absorver todas as
características da OO.
Muito obrigado,
Emerson
Joao Morais <[EMAIL PROTECTED]> escreveu:
BrancoRP2000 wrote:
> Ok, esta parte eu sei fazer.
> O que eu nao sei é montar uma funcao que possa ser chamada a qualquer
> momento. E na chamada eu passo o nome da ADOQUERY para que ele faça os
> procedimentos.
Opa, mas se é que eu entendi o que você quer, então é a parte mais fácil:
function GravaDados(AQuery: TADOQuery): Boolean;
begin
try
ADOQuery.Post;
Result := True;
except
on E: Exception do
if E is <ClasseDeErroDoADO>
Result := False;
else
raise;
end;
end;
Se você está fazendo um projeto orientado a objetos, coloque esta função
na classe que grava os seus dados. Se não, coloque em uma unit de
utilitários do banco para que todo o seu sistema tenha acesso.
Se você está a procura de reusabilidade de código, analisa a
possibilidade de usar um framework de persistência.
--
João Morais
>
>>Prezados,
>>
>>Preciso de uma ajuda.
>>Gostaria de fazer uma função que me retornasse TRUE ou FALSE para a gravação
>>(post) de dados em um adoquery.
>>
>>Exemplo:
>>No sistema eu chamaria a funcao GRAVADADOS(nome_adoquery);
>>E se retornar TRUE é porque gravou, FALSE nao gravou:
>>
>>A funcao teria que receber como parâmetro o nome do adoquery e fazer alguns
>>procedimentos como:
>>
>>try
>> adoquery.post;
>> retorna TRUE
>>except
>> retorna FALSE
>
>
> try
> ADOQuery.Post;
> Result := True;
> except
> on E: Exception do
> if E is <ClasseDeErroDoADO>
> Result := False;
> else
> raise;
> end;
>
> --
> Joao Morais
---------------------------------
BRANCORP2000
http://brancorp2000.blogspot.com
MSN: [EMAIL PROTECTED]
---------------------------------
Você quer respostas para suas perguntas? Ou você sabe muito e quer
compartilhar seu conhecimento? Experimente o Yahoo! Respostas!
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
