Alguien tiene una version de Tsbrowse de M.Mercado y
que funcione para consultas mysql
Gracias
Marco Augusto wrote:Alguien tiene una version de Tsbrowse de M.Mercado y
que funcione para consultas mysql
Gracias
goosfancito wrote:Marco Augusto wrote:Alguien tiene una version de Tsbrowse de M.Mercado y
que funcione para consultas mysql
Gracias
Si es que vas a implementar la TS ( tsbrowse ) por primera vez, te recomiendo la xBrowse.
Gustavo.
Marco Augusto wrote:Alguien tiene una version de Tsbrowse de M.Mercado y
que funcione para consultas mysql
Gracias
oMiConexion := TOleAuto():New(“adodb.connection”)
oMiConexion:Open(“MicroSoft.Jet.OLEDB.4.0; Data Source=.\taller.mdb”)
oRecordSet := TOleAuto():New(“adodb.recordset”)
oRecordSet:LockType := adLockOptimistic
oRecordSet:CursorType := adOpenKeySet
oRecordSet:ActiveConnection(oMiConexion)
oRecordSet:Source := “Select * from Clientes”
oRecordSet:Open()
oRecordSet:MoveFirst()
@ 0, 0 LISTBOX oBrw FIELDS oRecordSet:Fields(“nombre”):value,;
oRecordSet:Fields(“apellido”):value,;
oRecordSet:Fields(“id”):value,;
oRecordSet:Fields(“edad”):value,;
oRecordSet:Fields(“ciudad”):value,;
oRecordSet:Fields(“estado”):value;
HEADERS "Nombre",”Apellido”,”Id”,”Edad”,”Ciudad”,”Estado”
/* esto es lo que cambia */
oBrw:bLogicLen = { || oRecordSet:RecordCount }
oBrw:bGoTop = { || oRecordSet:MoveFirst() }
oBrw:bGoBottom = { || oRecordSet:MoveLast() }
oBrw:bSkip = { | nSkip | Skipper( oRecordSet, nSkip ) }
oBrw:cAlias = "ARRAY"
STATIC FUNCTION SKIPPER( oRs, nSkip )
LOCAL nRec := oRs:AbsolutePosition
oRs:Move( nSkip )
IF oRs:EOF; oRs:MoveLast(); ENDIF
IF oRs:BOF; oRs:MoveFirst(); ENDIF
RETURN oRs:AbsolutePosition – nRe
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot] and 50 guests