TSQLQuery + TADODataSource + ODBC Conector + MySQL Error al modificar datos

[pablogarciau]

Con este codigo :
> WITH OBJECT ::oServer
> ::KeyValue:=strzero(val(:Valor),nLen)
> :FastEdit()
> :Valor := alltrim(str(val(:Valor)+1)) <-->Esta es la linea 70
> :FastUpdate()
> :End()
> END WITH
Recibo un dialogo con el siguiente texto y no puedo midificar valores en
la tabla
Xailer DataControls Error
Select * from folios order by llave
ADODB:Recordset:Fielput('3') [#0]
En Procedimiento:TFolio:Create Linea : 70
Ya cheque el ADODataSource y tiene nMode adModeWrite
Les agradeceria si me pudiesen orientar al respecto
Saludos y gracias

[ignacio]

Juan Pablo,
Mandenos el error.log completo y la estructura de la tabla.
Gracias
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Juan Pablo Garcia" <pablogarciau@msn.com> escribió en el mensaje
news:[email=46558a28@ozsrv2.ozlan.local...]46558a28@ozsrv2.ozlan.local...[/email]
> Con este codigo :
>
>> WITH OBJECT ::oServer
>> ::KeyValue:=strzero(val(:Valor),nLen)
>> :FastEdit()
>> :Valor := alltrim(str(val(:Valor)+1)) <-->Esta es la linea 70
>> :FastUpdate()
>> :End()
>> END WITH
>
> Recibo un dialogo con el siguiente texto y no puedo midificar valores en
> la tabla
>
> Xailer DataControls Error
> Select * from folios order by llave
> ADODB:Recordset:Fielput('3') [#0]
> En Procedimiento:TFolio:Create Linea : 70
>
> Ya cheque el ADODataSource y tiene nMode adModeWrite
>
> Les agradeceria si me pudiesen orientar al respecto
>
> Saludos y gracias

[pablogarciau]

> Mandenos el error.log completo y la estructura de la tabla.
Lo siento, no se genera ningun error.log, simplemente manda el dialog y
no ejecuta la instruccion
La estructura de la tabla:
Columname: DataType:
Key Integer NotNull AutoInc
LLave Char(30) NotNull
Valor Char(20) NotNull
Gracias por su atencion

[ignacio]

Juan Pablo,
Me temo que aquí no esta fallando. Por favor mandenos un ejemplo completo
que muestre el error, así como la tabla con su contenido (realice un script
de exportación). Igualmente le recomiendo que compruebe la configuración que
ha de poner en la conexión de ODBC referente a las pestañas Flags que en
otras ocasiones hemos comentado en este mismo foro. Y lo más importante
compruebe que esta usando un driver ODBC que no tenga problemas con ADO.
También hay mensajes al respecto en este mismo foro.
Un saludo,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Juan Pablo Garcia" <pablogarciau@msn.com> escribió en el mensaje
news:[email=465667cb@ozsrv2.ozlan.local...]465667cb@ozsrv2.ozlan.local...[/email]
>> Mandenos el error.log completo y la estructura de la tabla.
> Lo siento, no se genera ningun error.log, simplemente manda el dialog y no
> ejecuta la instruccion
>
> La estructura de la tabla:
>
> Columname: DataType:
>
> Key Integer NotNull AutoInc
> LLave Char(30) NotNull
> Valor Char(20) NotNull
>
> Gracias por su atencion

[pablogarciau]

Ignacio Ortiz de Zúñiga escribió:
> Juan Pablo,
>
> Me temo que aquí­ no esta fallando. Por favor mandenos un ejemplo completo
> que muestre el error,
Ignacio : Le anexo un pequeño proyecto que muestra el error
> así­ como la tabla con su contenido
no le mando las tablas porque el proyecto genera el DBF para el caso
local (Con el cual no tengo problema alguno), en cuanto al que se
conecta via ADO esta disponible en mi servidor (ya la secuencia de
coneccion incluida muestra los parametros con los que debera conectar el
ODBC Conector de MySQL, vease en OnInitialize del unico formulario
incluido)
Le agradezco mucho sus finas atenciones, estoy seguro que la falla debe
ser por mi falta de pericia y les pido disculpas anticipadas por las
molestias.
Saludos
--

[pablogarciau]

Solucionado Ignacio, agregue :nLockType:=adLockOptimistic en la creacion
del TSQLQuery, mil disculpas por las molestias, lo dicho falta de
pericia con ADO y SQL

[ignacio]

Juan Pablo,
Me alegro.
Un saludo
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Juan Pablo Garcia" <pablogarciau@msn.com> escribió en el mensaje
news:[email=465a52f2@ozsrv2.ozlan.local...]465a52f2@ozsrv2.ozlan.local...[/email]
> Solucionado Ignacio, agregue :nLockType:=adLockOptimistic en la creacion
> del TSQLQuery, mil disculpas por las molestias, lo dicho falta de pericia
> con ADO y SQL

[pablogarciau]

Ignacio :
Con la adicion de los tipos de Cursor y RecordLock me funciona el
FastEdit() no asi el FastAddNew(), siempre que lo utilizo recibo el
siguiente error:
Las tablas y los campos estan de acuerdo a lo indicado por la ayuda de
Xailer, es decir, no estan vinculadas a ningun datacontrol y los datos
se asignan directamente por codigo.
Te agradeceria alguna sugerencia
------------------------- Información del compilador
--------------------------
Versión Xailer: Xailer 1.4.0 Version 1.4
Compilador: xHarbour build 0.99.61 Intl. (SimpLex) PCode Version: 7
Compilador C/C++: Borland C++ 5.5.1
Plataforma: Windows XP Professional 5.01.2600 Service Pack 2
----------------------- Información detallada del error
-----------------------
Subsistema: ADODB.RecordSet
Código de error: 16389
Estado: .F.
Descripción: E_FAIL
Operación: CANCELUPDATE
Argumentos:
Fichero:
Código error SO: 0
Pila de llamadas:
TOLEAUTO:CANCELUPDATE (0)
TADORECORDS:UPDATE (230)
TSQLQUERY:FASTUPDATE (494)
TFORMCAJA:CIERREVENTA (774)
TFORMCAJA:VALIDAR (187)
TMASKEDIT:ONEXIT (0)
TEDIT:VALID (900)
TMASKEDIT:VALID (154)
TFORMPRINCIPAL:GONEXTCONTROL (0)
TFORMPRINCIPAL:WMKEYDOWN (567)
TWINCONTROL:WMKEYDOWN (955)
TFOLDER:WMKEYDOWN (449)
XFOLDERPAGE:WMKEYDOWN (955)
TFORMCAJA:WMKEYDOWN (60)
TPANEL:WMKEYDOWN (955)
TSTDCONTROL:WMKEYDOWN (955)
TEDIT:WMKEYDOWN (510)
TMASKEDIT:WMKEYDOWN (634)
RUNFORM (0)
TAPPLICATION:RUN (209)
MAIN (16)
------------------ Información detallada de áreas de trabajo
------------------
Area: 1
Alias: VTA
Registro: 1
Filtro:
Relación:
Orden del í­ndice: 0
Clave activa: 0

[ignacio]

Juan Pablo,
Efectivamente está fallando y esperamos tenerlo solucionado lo antes
posible. Puede utilizar el método AddNew() mientras tanto. Perdone por las
molestias. Gracias por su colaboración.
Un saludo,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Juan Pablo Garcia" <pablogarciau@msn.com> escribió en el mensaje
news:[email=466e5483@ozsrv2.ozlan.local...]466e5483@ozsrv2.ozlan.local...[/email]
> Nada ?

[pablogarciau]

Nada ?