> 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 > ENDIF > >>
>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) >ENDFUNC >>
>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 >ENDIF > >>
SQLExec(lnHandle,'select * from dbo.authors','v_authors') CursorSetProp('KeyFieldList','au_id','v_authors') CursorSetProp('WhereType',1,'v_authors') CursorSetProp('Tables','authors','v_authors') CursorSetProp("UpdateNameList", ; "au_id authors.au_id,"+; "au_lname authors.au_lname,"+; "au_fname authors.au_fname,"+; "contract authors.contract",'V_authors') CursorSetProp('UpdatableFieldList','au_fname,au_lname,contract','v_authors') CursorSetProp('SendUpdates',.T.,'v_authors') CursorSetProp('Buffering',5,'v_authors')In updatenamelist fields appear in pairs, on the left is your fieldname and on the right basetable's fieldname. ie:
SQLExec(lnHandle,'select FirstName as Fname, LastName as Lname'+; ' from ServerTable...', 'v_myview) CursorSetProp("UpdateNameList", ; "Fname ServerTable.FirstName,"+; "Lname ServerTable.LastName",'V_myView')Cetin