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)
"
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)
"
0 Commentarios:
Publicar un comentario
<< Home