PROBLEMA COM PESQUISA EM FIREBIRD

USUARIO.EXCLUIDOS 16/03/2005 08:00:34
#73160
Estou com o seguinte problema quando vou fazer esta pesquisa, estou usando o firebir.


Private Sub CarregaUsuario()
SQL = "SELECT US.CODUSUARIO,US.NOME,G.CODIGOEMPRESA,G.CODUSUARIO,E.CODIGO_EMPRESA,"
SQL = SQL & " E.DESCRICAO_EMPRESA FROM USUARIO US, GRUPO G, EMPRESA E "
SQL = SQL & " WHERE US.NOME='" & CboUsuario.Text & "' "
SQL = SQL & " AND G.CODUSUARIO=US.CODUSUARIO AND G.CODIGOEMPRESA= E.CODIGO_EMPRESA "
RsPermissao.Open SQL, CnBanco
With RsPermissao
If .EOF Or .BOF Then
GuardaCodUsuario = !CODUSUARIO & ""
Call CarregaGridEmpresas
End If
End With
RsPermissao.Close
End Sub

Eu não sei se tem alguma coisa a ver com relacionamento, porque eu não criei nenhum!
''''''''''''''''''''''''''''''''''''''
Run-time error '3021':

BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual.
USUARIO.EXCLUIDOS 16/03/2005 09:50:51
#73186 Resposta escolhida
Vc não pode fazer isso:

   If .EOF Or .BOF Then 
        GuardaCodUsuario = !CODUSUARIO & "" 
        Call CarregaGridEmpresas 
    End If


Talvez assim dê certo:

 If Not .EOF Or Not .BOF Then 
        GuardaCodUsuario = !CODUSUARIO & "" 
        Call CarregaGridEmpresas 
    End If
Citação:
Tópico encerrado , respostas não são mais permitidas
Voltar