problema al grabar registro con Rowset FWconnect

[lafug]

Hola a Todos,

Estoy pasando de ADO a FWConnect , resulta que abro el recordset :
oRS := oCon:RowSet("SELECT * FROM centrocosto order by codigo_cc", .t. ) pero se abre de solo lectura , entonces al grabar :

Code: Select all | Expand

  oRS:codigo_cc   := cCodigo
  oRS:nombre_cc := ALLTRIM(cDescri)

da el error : Error description: Warning BASE/39 Write not allowed: FWMARIAROWSET:codigo_cc
Entonces al sacar el parametro .T. al final de la consulta demora 6 segundos en abrir el recordset y asi se puede grabar ,entonces habrá algún
parámetro donde el recordset abra rápido y se pueda grabar? o simplemente hay que usar el UPDATE e INSERT en Sql?

Gracias de antemano

[FiveTech AI]

Estimado lafug,

En RowSet( cSql, aParams, lReadOnly ), si el segundo parámetro es lógico se interpreta como lReadOnly. Por eso con .t. el rowset se abre de solo lectura y te da "Write not allowed". Para editar, no lo pases.

Los 6 segundos no los he podido comprobar, pero lo habitual es que se deba a cargar toda la tabla. Abre solo el registro que vas a editar con un WHERE, y para altas o cambios sueltos usa Execute con parámetros. Ejemplo mío, sin probar:

Code: Select all | Expand

oRS := oCon:RowSet( "SELECT * FROM centrocosto WHERE codigo_cc = ?", { cCodigo } )
oRS:nombre_cc := AllTrim( cDescri )
oRS:Save()

// o directamente:
oCon:Execute( "UPDATE centrocosto SET nombre_cc = ? WHERE codigo_cc = ?", ;
              { AllTrim( cDescri ), cCodigo } )

Si la tabla es pequeña y sigue tardando, dinos la versión de FWH y cuántos registros tiene.

Un saludo,
FiveTech AI

[lafug]

es una tabla de 60 registros fw 21.04

[FiveTech AI]

Estimado/a lafug,

Gracias por los datos. Con 60 registros, 6 segundos no se explican por el tamaño de la tabla. Mi hipótesis (no comprobada) es que se trata de latencia de red: un RowSet editable necesita consultar al servidor información adicional de la tabla (por ejemplo su clave primaria) además del SELECT, y si cada consulta tarda mucho (servidor remoto, o resolución de nombre lenta), se suman.

Para acotarlo, puedes medir por separado, con Seconds():

Code: Select all | Expand

n := Seconds()
oCon := FW_DemoDB( ... )   // o tu forma habitual de conectar
? "conexion:", Seconds() - n

n := Seconds()
oRS := oCon:RowSet( "SELECT * FROM centrocosto ORDER BY codigo_cc" )
? "rowset:", Seconds() - n

(ejemplo mío sin probar, sustituye la línea de conexión por la tuya). Si la conexión ya tarda, prueba a usar la IP del servidor en lugar del nombre de host. Si tarda el RowSet, dinos si el servidor es local o remoto.

Otra cosa: FWH 21.04 es una versión antigua y yo he revisado el código de la versión actual, así que el comportamiento puede diferir. Si puedes probar con una versión reciente, mejor.

Un saludo,
FiveTech AI

[karinha]

Tal vez,

Code: Select all | Expand

cSql := "UPDATE centrocosto SET nombre_cc = " + oCon:SqlTimeStamp(ALLTRIM(cDescri)) + " WHERE codigo_cc = " + cCodigo
oCon:Execute( cSql )

ó

oRS := oCon:RowSet( "SELECT codigo_cc, nombre_cc FROM centrocosto WHERE codigo_cc = " + xValue )


oRS := oCon:RowSet( "SELECT * FROM centrocosto ORDER BY codigo_cc ASC" )

ó

oRS:codigo_cc := cCodigo
oRS:nombre_cc := ALLTRIM(cDescri)
oRS:Update()