Postada em 26/11/2007 00:45 hs
Galera valeu a força, consegui resolver o problema
o modulo corrigido fica assim
Public Function Consultar(ByVal intcodigo As Integer) As Variant
Set rs = CreateObject("adodb.recordset")
Dim cmdC As ADODB.Command
Set cmdC = New ADODB.Command
With cmdC
.ActiveConnection = con
.CommandText = "p_consultar"
.CommandType = adCmdStoredProc
.Parameters.Append .CreateParameter(, adInteger, adParamInput, , intcodigo)
Set rs = .Execute
End With
With rs
If .EOF Then
MsgBox "registro nao encontrado"
Else
Set frmconsulta_cli.MSHFlexGrid1.DataSource = rs
End If
End With
Set cmdC = Nothing
End Function
mas para funcionar corretamente, é necessário adicionar o posicionamento do cursor na conexao (con.CursorLocation = adUseClient), ai os dados sao exibidos tranquilamente.
Valeu a força !
|
