Fórum Erro ADO #238041
16/06/2004
0
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
Curtir tópico
+ 0
Responder
Posts
16/06/2004
Marcio.theis
manda a mensagem de erro para nós podermos ter algo de construtivo em que se basear.
Responder
Gostei + 0
17/06/2004
Al_oliveira
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;
[img:b168c70d44]http://al_oliveira.sites.uol.com.br/erro-cpu.bmp[/img:b168c70d44]
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;
[img:b168c70d44]http://al_oliveira.sites.uol.com.br/erro-cpu.bmp[/img:b168c70d44]
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)