Si es que vas a implementar la TS ( tsbrowse ) por primera vez, te recomiendo la xBrowse.Marco Augusto wrote:Alguien tiene una version de Tsbrowse de M.Mercado y
que funcione para consultas mysql
Gracias
Pregunta.. donde esta la xBrowse ? De quien es... ? Cuando vale... ?goosfancito wrote:Si es que vas a implementar la TS ( tsbrowse ) por primera vez, te recomiendo la xBrowse.Marco Augusto wrote:Alguien tiene una version de Tsbrowse de M.Mercado y
que funcione para consultas mysql
Gracias
Gustavo.
Todos y a la vez ningun browse te sirve para manipular MySQL.Marco Augusto wrote:Alguien tiene una version de Tsbrowse de M.Mercado y
que funcione para consultas mysql
Gracias
Code: Select all
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