AYUDA CON UN ERROR DE Datasource

[inemart]

hola de nuevo por aqui.
tengo un problema cuando quiero mostrar unos datos en un mshflexgrid cuando realiza la busqueda me manda aun error y dice "Error en el metodo Datasource del objeto 'IMSHFLEXGRID' " y no se por que me marca este error este es mi codigo :

Private Sub Command3_Click()
Dim Str As String

srtsuc = ValidaCombo(CmbSucReng, RsSucursal, "codigo")
srtclie = ValidaCombo(CmbCliReng, RsClientes, "codigo")

Str = "select * " & _
" from backofficeMPB.dbo.VenDet" & _
" where cliente = " & srtclie & _
" and farmacia = " & srtsuc

rs.Open Str, Ocnn, adOpenDynamic, adLockOptimistic

Set MSHFlexgrid1.DataSource = rs (AQUI ME MARCA EL ERROR )


rs.Close

End Sub

alguien sabe por que me marca este error? gracias de antemano

----------------------------------------------
gracias por sus respuestas acertadas

[Insomnia]

Hola

Puede que este equivocado, pero me parece que un MsFlexGrid no se carga con la propiedad DataSource (en un Datagrid SI)

Para llenar un MsFlexGrid tienes que ir recorriendo sus filas y columnas, algo como:

Código:

Columnas = Reg.Fields.Count
j=1
while not reg.eof
   for i=0 to Columnas - 1
      MSHFlexgrid1.TextMatrix(j, i) = Reg.Fields(i).Value
   next
   reg.movenext
   j=j+1
Wend

El código esta escrito sin comprobar, seguramente tenga errores, pero supongo que será suficiente para hacerte una idea.

--Saludos--

[seba123neo]

el flexgrid si tiene la propiedad DataSource...

saludos.

[vicentecamesella]

Efectivamente lo tiene. Pero me parece que el error lo tienes en la consulta en el where se le tiene q colocar comilla simple en la comparacion saludos

[inemart]

gracias por sus respuestas: e checado todo y no encuentro el porque yo pienso que me esta la consulta me esta arrojando mucha informacion que no se puede mostrar completa no creen?

muchas gracias por su valioso tiempo

[gogupe]

Iniciado por vicentecamesella

Efectivamente lo tiene. Pero me parece que el error lo tienes en la consulta en el where se le tiene q colocar comilla simple en la comparacion saludos

Pienso lo mismo, si rtclie y srtsuc es una cadena de texto debe de cerrarse entre comillas simples, quedando:

Str = "select * " & _
" from backofficeMPB.dbo.VenDet" & _
" where cliente = '" & srtclie & _
"' and farmacia = " & srtsuc & "'"

Pruébalo asi a ver que tal va.

[arbsoft]

Lo que pasa es que estas consultando datos de 2 o mas tablas relacionadas por un campo clave y este error aparece cuando en una de las tablas no encuentra informacion relacionada.
revisa la informacion en tus tablas y modifica los datos manualmente y verás que el problema esta resuelto.