FOXPRO: Hacer un cursor creado mediante SPT actualizable. :: PortalFox :: Nada corre como un zorro: "

Hacer un cursor creado mediante SPT actualizable.
Enviado por: rcano el 24 Nov 2003 - 01:03 AM
Bases de Datos Es una manera de evitar las ordenes insert, update, y delete y utilizar tableUpdate() y tableRevert()


Suponemos que ya tenemos hecha la conexión SQL

.....

m.lcSQL = 'SELECT CLienteID, Nombre, Apell1, Apell2 FROM Clientes WHERE Nombre LIKE 'A%''

m.llRetorno = (SQLEXEC(m.lnHnd, m.lcSQL, 'L_Clientes') > -1)

IF m.llRetorno

CrearCursorActualizable('L_Clientes', 'Clientes', 'ClienteId')

BROWSE

TABLEUPDATE(1, .T., 'L_Clentes')

ENDIF

RETURN

FUNCTION CrearCursorActualizable

LPARAMETERS tcAlias, tcTabla, tcKeyList

LOCAL llRetorno, i, lcCampos, lcCamposUp

LOCAL ARRAY laEstruct(1)



m.tcAlias = IIF(EMPTY(m.tcAlias), '', ALLTRIM(TRANSFORM(m.tcAlias)))

m.llRetorno = !EMPTY(m.tcAlias) AND USED(m.tcAlias)

IF !m.llRetorno

RETURN .F.

ENDIF

m.tcTabla = IIF(EMPTY(m.tcTabla), '', ALLTRIM(TRANSFORM(m.tcTabla)))

m.tcKeyList = IIF(EMPTY(m.tcKeyList), '', ALLTRIM(TRANSFORM(m.tcKeyList)))



m.llRetorno = m.llRetorno AND CURSORSETPROP('Buffering', 5)

"