Erro ADO
Olá,
Estou com o seguinte problema. Quando abro um formulario faço uma consulta no banco para ver as permissões dos usuarios usando o componente ADO, mas quando fecho o formulario dá um erro e quando tiro essa linha não dá erro. Já tentei fechar o Ado, fechar a conexão e nada sempre o msm erro.
A mensagem de erro é a com titulo de CPU com um monte de caracteres estrnhos :D
[/img]
Estou com o seguinte problema. Quando abro um formulario faço uma consulta no banco para ver as permissões dos usuarios usando o componente ADO, mas quando fecho o formulario dá um erro e quando tiro essa linha não dá erro. Já tentei fechar o Ado, fechar a conexão e nada sempre o msm erro.
A mensagem de erro é a com titulo de CPU com um monte de caracteres estrnhos :D
[/img]
Al_oliveira
Curtidas 0
Respostas
Marcio.theis
16/06/2004
manda a mensagem de erro para nós podermos ter algo de construtivo em que se basear.
GOSTEI 0
Al_oliveira
16/06/2004
Quando carrega o formulário executo a seguinte função
function TFSIS0001.VerificarUsuario: boolean;
var
Qry: TADOQuery;
begin
VerificarUsuario := True;
Qry := TADOQuery.Create(self);
with Qry do
begin
Connection := dm.Conexao;
close;
SQL.text := ´SELECT ´;
Open;
if IsEmpty then
VerificarUsuario := False;
Free;
end;
end;
function TFSIS0001.VerificarUsuario: boolean;
var
Qry: TADOQuery;
begin
VerificarUsuario := True;
Qry := TADOQuery.Create(self);
with Qry do
begin
Connection := dm.Conexao;
close;
SQL.text := ´SELECT ´;
Open;
if IsEmpty then
VerificarUsuario := False;
Free;
end;
end;
GOSTEI 0