Como Grabar desde una conexión local a una remota

[Adolfredo Martinez]

Hola a todos los amigos del forum.


Tengo una inquietud.

No se si me hago entender, pero estoy haciendo unos procesos en conexión local, del resultado de ese proceso quiero grabarlo en otra conexión pero remota.
Les coloco un ejemplo:

STATIC oRsParame
//----------------------------------------------------------//
function main()
//----------------------------------------------------------//
local oDlg1,oError,lNuevo:=.F.,cText := ""
local oGet := ARRAY(10)
LOCAL lSalir := .F.
LOCAL lSalvar := .F.
local oBoton1,oBoton2,oBr,vFECHALIMI :=space(12),vINTMORA:=0,vDESIMPTO:=0,vDESMORA:=0,vANOVIG:=space(4)
local cServer := "127.0.0.1"
local cDataBase := "fwmariadb"
local cUser := "root"
local cPassWord := "adolfredom"
local nPort := 3306
local nFlags := 0
local oCn := NIL

if oCn == nil .or. oCn:Ping() = .F.
MsgRun( "Connecting to Server", "CLOUD SERVER", ;
{ || oCn := maria_Connect( {cServer, cDataBase, cUser, cPassWord, nPort } ) } )
endif

if oCn == nil
? "Failed to connect"
return nil
else
cText += "Connection OK" + CRLF
cText += "Host: " + cServer +CRLF
cText += "Database: " +cDataBase + CRLF
cText += "" + CRLF
cText += ""
msginfo( cText ,"Conexion Exitosa")
ENDIF

oRsParame := oCn:RowSet( "SELECT * FROM valtvrs ORDER BY cod")

vFECHALIMI:= oRsParame:Fields("FECHALIMI"):value
vINTMORA := oRsParame:Fields("INTMORA"):value
vDESIMPTO := oRsParame:Fields("DESIMPTO"):value
vDESMORA := oRsParame:Fields("DESMORA"):value
vANOVIG := oRsParame:Fields("ANOVIG"):value



DEFINE BRUSH oBr RESOURCE "IRON"
DEFINE DIALOG oDlg1 NAME "PARAME";
TITLE "Parametros para Liquidación"
oDlg1:lHelpIcon := .f.
oDlg1:lTransparent := .t.

REDEFINE GET oGet[01] var vFECHALIMI PICTURE "@!K" ID 101 OF oDlg1
REDEFINE GET oGet[02] var vINTMORA PICTURE "999.999" ID 109 OF oDlg1
REDEFINE GET oGet[03] var vDESIMPTO PICTURE "999.99" ID 113 OF oDlg1
REDEFINE GET oGet[04] var vDESMORA PICTURE "999.99" ID 118 OF oDlg1
REDEFINE GET oGet[05] var vANOVIG PICTURE "####" ID 108 OF oDlg1

** Boton para Salvar la Resolucion
REDEFINE BUTTONBMP oBoton1 ID 114 OF oDlg1 ;
BITMAP "SALVAR" TEXTRIGHT PROMPT "salvar" TOOLTIP "salvar los Parametros" ;
ACTION ( lSalvar := .T. , oDlg1:End() )

** Boton para cancelar
REDEFINE BUTTONBMP oBoton2 ID 115 OF oDlg1 ;
BITMAP "CANCELAR" TEXTRIGHT PROMPT "Cancelar" TOOLTIP "Cancela la Parametros" ;
ACTION ( lSalir := .T. , oDlg1:End() )


ACTIVATE DIALOG oDlg1 CENTER on init oBoton1:enable()


IF lSalvar

****aqui quiero salvarlo en otra conexion pero remota.
oRsParame:Fields("FECHALIMI"):value := oParame:vFECHALIMI
oRsParame:Fields("INTMORA"):value := oParame:vINTMORA
oRsParame:Fields("DESIMPTO"):value := oParame:vDESIMPTO
oRsParame:Fields("DESMORA"):value := oParame:vDESMORA
oRsParame:Fields("ANOVIG"):value := oParame:vANOVIG

oRsParame:Save()
oRsParame:ReQuery()
oDlg1:Refresh()
*************
oCn:Close()
ENDIF

IF lSalir
oCn:Close()
Return Nil
endif

RETURN( NIL)



Gracias y saludos para todos.

[nageswaragunupudi]

We would like to discuss in detail on this subject.

But before that, will you please try this very simple code?

Code: Select all  Expand view  RUN

oRsParame := oCn:RowSet( "SELECT * FROM valtvrs ORDER BY cod")
oRsParame:Edit()
 

Upon your feedback, we will get into more details and FWH recommended approach to editing of RowSets (even other data-sources)