hj tive q abrir um sistema feito há dois anos para fazer algumas modificações, tudo estava funcionando perfeitamente até então, quando executei o projeto no D2007 apresentou o um erro de Access Violation na seguinte rotina:
function TDMPrincipal.ContaRegistros(Descricao: String): Integer;
Pergunta
fajo
Oi Galera,
hj tive q abrir um sistema feito há dois anos para fazer algumas modificações, tudo estava funcionando perfeitamente até então, quando executei o projeto no D2007 apresentou o um erro de Access Violation na seguinte rotina:
function TDMPrincipal.ContaRegistros(Descricao: String): Integer;
var Qr: TSQLQuery;
begin
Qr := TSQLQuery.Create(nil);
with Qr do
try
SQLConnection := Conexao;
SQL.Add(Descricao);
Open;
Result := Fields[0].Value;
finally
free;
end;
end;
e o pior, na linha negritada, faz algum sentido?
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.