|
|
Postada em 16/10/2007 17:51 hs
Tenho o seguinte codigo em um modulo
' Rotina de Consulta:
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 = cn
.CommandText = "p_Consultar"
.CommandType = adCmdStoredProc
.Parameters.Append .CreateParameter(, adInteger, adParamInput, , intCodigo)
Set rs = .Execute
End With
With rs
If not.EOF Then
frmconsulta_cli.msflexgrid1.datasource=rs
else
msgbox "registro nao encontrado"
end if
end with
end function
Ao executar o modulo, apresenta erro na linha "frmconsulta_cli.msflexgrid1.datasource=rs" e nao exibe os dados, como eu resolvo isso ?
|
|
|
|
|
|
Cardoso G
|
PATOS DE MINAS
MG - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 16/10/2007 18:23 hs
tente assim set frmconsulta_cli.msflexgrid1.datasource = rs |
|
|
|
|
|
Postada em 16/10/2007 21:46 hs
Passe para nós o erro que está dando, pois assim fica mais fácil de tentarmos ajudá-lo. Flw T+
João Carlos Junior Administrador de Redes - Windows 2003 Srv, Linux Desenvolvedor Visual Basic 6.0 com Access, SQL Server, VB .Net e Crystal Reports X Iniciante em C# e ASP .NET
|
|
|
|
|
|
Postada em 16/10/2007 23:27 hs
O que o colega Cardoso G passou está correto se o flexgrid for o Hierarchical Flexgrid pois suporta o comando. Se for MSflexgrid aí não vai dar certo mesmo. Qual grid vc usa? MSFlexgrid ou MSHFlexgrid? |
|
|
|
|
|
Postada em 18/10/2007 00:47 hs
Conforme o ghost_jlp perguntou, eu utilizo o mshflexgrid e segui a dica que me passaram e nao funcionou ! o que faço ?
O erro que aparece é "method or data member not found" e quando acrescento utilizo o linha "set frmconsulta_cli.mshflexgrid1.datasource = rs" a linha é ignorada.
Como resolvo isso pessoal ?
|
|
|
|
|
|
Postada em 18/10/2007 08:36 hs
Vc conferiu o nome do flexgrid para ver se está correto? É este formulário mesmo? Faça um teste colocando um MSHFlexgrid local e veja se acontece a mesma coisa. |
|
|
|
