Visual Basic - Urgente problemas con msflexgrid

Life is soft - evento anual de software empresarial
   
Vista:

Urgente problemas con msflexgrid

Publicado por Omar Rivas (14 intervenciones) el 21/07/2009 20:48:29
Hola amigos.

Estoy haciendo una pequeña aplicacion donde quiero mostrar en un datagrid1 informacion que tengo en una tabla en acces, el tema es que solo me muestra un registro, considerando que tengo más de uno.
utilizo el siguiente codigo en el command2 (Mostrar)

Private Sub Command2_Click()
Dim f As Integer
Dim COBRADOR As String
Set recset = New Recordset




consulta = "select * from socios where cobrador ='" & combo2 & "' and mes = '" & Text12 & "';"
recset.Open consulta, conexion, adOpenDynamic

'el combo2 posee al cobrador y el text12 contiene el mes

f = 1
recset.MoveFirst
Do While recset.EOF = False
If recset!COBRADOR = Text1.Text Then
MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
MSFlexGrid1.TextMatrix(f, 0) = f
MSFlexGrid1.TextMatrix(f, 1) = recset!RUT
MSFlexGrid1.TextMatrix(f, 2) = recset!NOMBREs
MSFlexGrid1.TextMatrix(f, 3) = recset!apellidos
MSFlexGrid1.TextMatrix(f, 4) = recset!direccion
MSFlexGrid1.TextMatrix(f, 5) = recset!SECTOR
MSFlexGrid1.TextMatrix(f, 6) = recset!MONTO
MSFlexGrid1.TextMatrix(f, 7) = recset!MES_pago
MSFlexGrid1.TextMatrix(f, 8) = recset!COBRADOR
MSFlexGrid1.TextMatrix(f, 9) = recset!SALDO
MSFlexGrid1.TextMatrix(f, 10) = recset!telefono
MSFlexGrid1.TextMatrix(f, 11) = recset!movil

Else
MsgBox "No existen datos asociados a este recaudador"


End If
recset.MoveNext

Loop
end sub

en el load tengo el siguiente codigo

Private Sub Form_Load()
Set conexion = New Connection
Set recset = New Recordset

With conexion


.Provider = "Microsoft.Jet.OLEDB.4.0;"
.ConnectionString = "Data Source = base_datos.mdb;"
.Open
End With




consulta = "select distinct año from socios"
recset.Open consulta, conexion, adOpenDynamic

recset.MoveFirst
Do While recset.EOF = False
Text13 = recset!año
recset.MoveNext
Loop
recset.Close



consulta = "select distinct cobrador from socios"
recset.Open consulta, conexion, adOpenDynamic
Text1.Text = recset!COBRADOR

recset.MoveFirst
Do While recset.EOF = False
combo2.AddItem recset!COBRADOR
recset.MoveNext
Loop
recset.Close

combo2.ListIndex = 0
MSFlexGrid1.ColWidth(0) = 400
MSFlexGrid1.ColWidth(1) = 900
MSFlexGrid1.ColWidth(2) = 1600
MSFlexGrid1.ColWidth(3) = 1600
MSFlexGrid1.ColWidth(4) = 1600
MSFlexGrid1.ColWidth(5) = 1000
MSFlexGrid1.ColWidth(6) = 900
MSFlexGrid1.ColWidth(7) = 600
MSFlexGrid1.ColWidth(8) = 1600
MSFlexGrid1.ColWidth(9) = 1600
MSFlexGrid1.ColWidth(10) = 900
MSFlexGrid1.ColWidth(11) = 900
MSFlexGrid1.TextMatrix(0, 0) = "N°"
MSFlexGrid1.TextMatrix(0, 1) = "Rut"
MSFlexGrid1.TextMatrix(0, 2) = "Nombres"
MSFlexGrid1.TextMatrix(0, 3) = "Apellidos"
MSFlexGrid1.TextMatrix(0, 4) = "Direccion"
MSFlexGrid1.TextMatrix(0, 5) = "Sector"
MSFlexGrid1.TextMatrix(0, 6) = "Monto"
MSFlexGrid1.TextMatrix(0, 7) = "Mes Pagar"
MSFlexGrid1.TextMatrix(0, 8) = "Recaudador"
MSFlexGrid1.TextMatrix(0, 9) = "Saldo"
MSFlexGrid1.TextMatrix(0, 10) = "Telefono"
MSFlexGrid1.TextMatrix(0, 11) = "Movil"

End Sub

por favor ayudenme es urgente.
desde ya muchas gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Urgente problemas con msflexgrid

Publicado por JaImE GuErReRo (361 intervenciones) el 21/07/2009 22:36:21
en tu primer while falta

f=f+1
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Urgente problemas con msflexgrid

Publicado por David Castro (2 intervenciones) el 22/07/2009 19:39:22
El problema puede ser la forma en que tienes el ciclo while en tu codigo

tu lo tienes

While recset.EOF

intenta poner en su lugar

while not recset.EOF

Dios te bendiga
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar