Fórum Erro ao alterar SQL do IBQuery via código #44436
21/05/2004
0
Utilizo Delphi 6, tenho em meu Data Module (DM):
IBDataBase,
IBTransaction e
IBQuery,
todos componentes de acesso me parecem estar devidamente configurado, pleo menos nenhum erro é indicado, porém, ao chamar a função abaixo ocorre o seguinte erro logo na 1ª linha:
[Project Cliente.exe raised exception class EAccessViolation with message´Access violation at address 004939B4 in module ´Cliente.exe´ Read of address 00000060´. Process stoped... ]
function TFLogin.ValidaLogin(Login: string; Senha: string): boolean;
begin
with DM.IBQLogi do
begin
Active := False;
SQL.Clear;
SQL.Add(´SELECT TBUSUARIO.LOGIUSUA, TBUSUARIO.SENHUSUA´);
SQL.Add(´FROM TBUSUARIO´);
SQL.Add(´WHERE (TBUSUARIO.LOGIUSUA = ´´+ Login +´´) and (TBUSUARIO.SENHUSUA = ´´+ Senha +´´);´);
Active := True;
if DM.IBQLogi.RecordCount > 0 then
Result := True else
Result := False;
Active := False;
end;
end;
Talvez alguma propriedade de um dos componentes de acesso, ou a falta de algum comando, só sei que assim funciona no acesso a uma base Access, qual a diferença? o q está errado?
Agradeço a quem possa colaborar.
Carvajal
Curtir tópico
+ 0Posts
21/05/2004
Carvajal
espero q alguem possa me ajudar
Valeu
Gostei + 0
22/05/2004
Afarias
Em que linha do código o erro ocorre exatamente??
T+
Gostei + 0
23/05/2004
Carvajal
Muito obrigado pela ajuda e atenção
Carlinhos
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)