FiveTech Support Forums

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 :

  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

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:

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

es una tabla de 60 registros fw 21.04

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():

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

Tal vez,

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()