Thisform.Connhandle=0 Thisform.Connhandle = SQLCONNECT("NominaPopular") IF Thisform.ConnHandle>-1 nSucceded = SQLEXEC(Thisform.Connhandle,"Select * from tbNomina","NominaPopular") IF nSucceded>-1 SetRemoteCursor("NominaPopular") ELSE Thisform.Mensajes("Could Not Connect To DB!",1) IF Thisform.Mensajes("Do You Wish To Continue?",2)=NO Thisform.NominaElectronica=.f. Thisform.Release RETURN 0 ENDIF ENDIFAnd the following code to set the properties of the cursor
FUNCTION SetRemoteCursor(cNombreCursor) CURSORSETPROP("SendUpdates",.t.,cNombreCursor) CURSORSETPROP("Buffering",5,cNombreCursor) CURSORSETPROP("Tables",cNombreCursor,cNombreCursor) CURSORSETPROP("KeyFieldList","fldCodigoEmpleado",cNombreCursor) CURSORSETPROP("UpdatableFieldList","fldCodigoEmpleado,fldNumeroCta,fldMonto,fldTipoRegistro,fldNombreEmp",cNombreCursor) ENDFUNCThe connection is working and retrieving the data but, when I issue the following test code, it doesn't update the remote table.
SELECT NominaPopular APPEND BLANK replace fldCodigoEmpleado WITH "10000" replace fldmonto WITH 5000 replace fldNumeroCta WITH "1234567890" replace fldNombreemp WITH "Someone's Name" IF !TABLEUPDATE(0,.f.,"NominaPopular") WAIT WINDOW "NO SE pudo Actualiza La Tabla 1" SQLROLLBACK(Thisform.Connhandle) RETURN 0 ELSE IF SQLCOMMIT(Thisform.Connhandle)=-1 WAIT WINDOW "NO Se Pudo Actualizar La Tabla 2" ELSE WAIT WINDOW "Registro Actualizado" ENDIF ENDIFWhat am I missing here???