Gente!! tudo bem?

eu criei uma procedure de consulta(select) no firebird, nela eu criei um parametro chamado NCOD de tipo INTEGER, no teste que faço pelo ibExpert funciona, mas quando no vb da erro de 'tipo de dados incorretos' e 'nao foram fornecidos informações necessarias para este parametro':

 

no meu programa esta assim:

 

        Cmd.ActiveConnection = Cnn

        Cmd.CommandType = adCmdStoredProc
        Cmd.CommandText = "clientes_s"
        Cmd.Parameters("NCOD").Value = 1
       
        Set Tabela = Cmd.Execute
        With Tabela
             If .RecordCount > 0 Then
                .MoveMin
                Do Until .EOF
                   Lista.AddItem ![CODIGO] & Space(4) & ![NOME]
                   .MoveNext
                Loop
             End If
             .Close
        End With

 

alguem poderia me ajudar? para que eu migre o meu sistema para firebird, so falta isso dar certo...:)

Obrigado.

 

Bom dia,

 

Faz muuuito tempo que vc colocou este tópico....   acho que vc já deve ter resolvido o problema...  Caso não...

 

Verifique se o CursorLocation do objeto Connection esta setado em adUseClient !!

Se estiver em adUseServer o RecordCount sempre retornará -1 !!

 

Até logo !

 

tenta tirar os colchetes......

tbm já tentei recuperar um rs de um command.execute, mas o objeto vem fechado, optei por uma view ai vc faz Select * from Tabela where cod = xx