RE: datagrid de VB 6.0

Hola

Cambia el parametro adOpenDynamic por --- > adOpenKeyset

Saludos

Grover Navia
PD. no es problema de PostgreSql

Ariel <buenasalud(at)ubbi(dot)com> escribió:
v\:* {behavior:url(#default#VML);} o\:* {behavior:url(#default#VML);} w\:* {behavior:url(#default#VML);} .shape {behavior:url(#default#VML);} Hazel

Mira la solucion que encontre pero que no es nada prolija, pero me ayudo para salir de un apuro, consiste en crear otra consulta en donde devuelvo con un count la cantidad de registros que tiene la consulta, y ase valor lo uso como equivalente de lo que me tendría que devolver el RecordCount. Por que VB siempre devuelve el valor de -1

Ariel

---------------------------------

De: pgsql-es-ayuda-owner(at)postgresql(dot)org [mailto:pgsql-es-ayuda-owner(at)postgresql(dot)org] En nombre de Hazel Muñoz
Enviado el: Martes, 18 de Abril de 2006 13:42
Para: Andres Gutierrez
CC: pgsql-es-ayuda(at)postgresql(dot)org
Asunto: Re: [pgsql-es-ayuda] datagrid de VB 6.0

Estoy utilizando un código que encontré en internet, en lugar de usar un datagrid normal utiliza un MSHFlexGrid, como no he podido hacerlo funcionar no sé cuál es la diferencia entre ambos.

Aquí va el Sub Load() del Form que tiene el datagrid, no funciona el RecordCount porque siempre me devuelve -1. ¿Cómo puedo llenar un datagrid, aunque sea uno de los normales?

Private Sub Form_Load()
SQL = "Select * from responsable"
Set cnUsuario = New ADODB.Connection
cnUsuario.ConnectionString = "DRIVER=PostGreSQL; Server=localhost;Port=5432;User Id=postgres;Password=tulipazules;Database=SORA;"
cnUsuario.Open
Option1.Value = True

Set rsResponsable = New ADODB.Recordset
rsResponsable.Open SQL, cnUsuario, adOpenDynamic, adLockOptimistic

Dim i, j
'tell the grid how many columns to have
MSHFlexGrid1.Cols = rsResponsable.Fields.Count
'tell the grid how many rows to have + 1
MSHFlexGrid1.Rows = rsResponsable.RecordCount + 1
j = 0
With rsResponsable
'this loop only fills up the grid captions along the top with the field "name" not the value
MsgBox rsResponsable.RecordCount, "Error"

Do While j < .Fields.Count + 1
If Not IsNull(.Fields(j).Name) Then
MSHFlexGrid1.TextMatrix(i, j) = .Fields(j).Name
MSHFlexGrid1.TextMatrix(0, 0) = .Fields(j).Name
End If
j = j + 1
Loop
End With
'With rsResponsable
'move to the first record
.MoveFirst
i = 1
Do While i <= .RecordCount
j = 0
'this loop now fills up the grid with the field "value"
Do While j < .Fields.Count
If Not IsNull(.Fields(j).Value) Then
MSHFlexGrid1.TextMatrix(i, j) = .Fields(j).Value
End If
j = j + 1
Loop
.MoveNext 'move to the next record
i = i + 1
Loop
End With

End Sub

--
Hazel MC

---------------------------------

LLama Gratis a cualquier PC del Mundo.
Llamadas a fijos y móviles desde 1 céntimo por minuto.
http://es.voice.yahoo.com