Estimados Amigos
Bueno estoy haciendo mis primeros pasos con xojo y necesito de su ayuda, He creado en App, una propiedad llamada pData de type recordset y
scope Public
tengo un Botn de Comando que el pulsar clic, llena un listbox con datos de una consult. En el evento Action de dicho botn, tiene el siguiente cdigo:
Dim sql As String
sql = “SELECT tipouni,modelo,placa,marca FROM unidades”
App.pData=App.pDb.SQLSelect(sql)
If App.pdata <> Nil Then
DataList.ColumnAlignment(1)=listbox.alignright
While Not App.pdata.EOF
DataList.AddRow(App.pdata.IdxField(1).StringValue, App.pdata.IdxField(2).StringValue, _
App.pdata.IdxField(3).StringValue, App.pdata.IdxField(4).StringValue)
App.pdata.MoveNext
Wend
End If
tengo un listbox, llamada DataList, en este objeto se cargan perfectamente los datos de la consulta procesados desde el Botn de Comando. (todo bien hasta aqu)
En el evento KeyUp del DataList, tengo el siguente cdigo
if Asc(Key)=13 then
App.pdata.MoveFirst
MsgBox("Muestra el primer registro:"+App.pdata.IdxField(1).StringValue)
self.cmdSalir.SetFocus
end If
A modo de experimento quiero mostrar datos del primer registro de recordset al presionar enter en cualquiera de las filas del DataList,
Pero sucede que no me muestra ningn dato del recordset
Mi pregunta es: el recordset esta sin datos, o en que momento se queda vaco o se cierr el recordset?
Gracias de antemano, por sus respuestas
Cordialmente,
Raul