FarPOint Spread 2.5 y VB6

[givani]

Hola, yo también soy ingeniero en informática, el mundo corre y ahi que correr.
hay que aprender de todo.

Normalmente usaba:

Carga la grilla y le pone correspondiente el nombre a las columnas.

Existe otro metodo : grilla.datasource, sin embargo no lo recomiendo, en algunas versiones no funcionaba y eliminaba toda la información a mostrar en la base de datos.



Function Carga_Grilla(consulta As String, ByVal Grilla As Control)
Dim i, j
Dim Conta
Dim rs_aux As New ADODB.Recordset

Grilla.DeleteRows 1, Grilla.MaxRows
rs_aux.CursorLocation = adUseClient

rs_aux.Open consulta, cnn, adOpenDynamic, adLockReadOnly
Grilla.MaxRows = 0

DoEvents

If rs_aux.State <> 0 Then

If Not rs_aux.EOF Then
Grilla.MaxCols = rs_aux.Fields.Count
Grilla.MaxRows = rs_aux.RecordCount
Grilla.Row = 0
For i = 0 To rs_aux.Fields.Count - 1
Grilla.Col = i + 1
Grilla.Text = rs_aux.Fields(i).Name
DoEvents
Next

Conta = 1
Do While rs_aux.EOF = False
Grilla.Row = Conta
For i = 0 To rs_aux.Fields.Count - 1
Grilla.Col = i + 1

If IsNull(rs_aux(i)) = False Then
Grilla.Text = (rs_aux(i))
End If
DoEvents
Next
Conta = Conta + 1
NFilasGrilla = NFilasGrilla + 1
rs_aux.MoveNext
Loop
End If
rs_aux.Close
End If
Set rs_aux = Nothing
Grilla.MaxRows = NFilasGrilla
End Function


Saludos