Página 1 de 1

PARA EL SR. PEDRO DE LEON RODAS

Publicado: Mié Abr 01, 2009 9:02 pm
por Martin Del Angel
Hola Pedro!
Veo que tienes un problema:
En este codigo por lo que veo lo usas para migrar inf. de un dbf a una
tabla Mysql. una pregunta?
Tienes ligado algún control a una de estas tablas ?
Porque si no tienes ligado ningun control a la tablas porque no usas
FastAddNew() y FastUpdate(), tambien te recomiendo que uses esta funcion
de Xharbour HB_GCALL(.T.).
::midb:BeginTrans()
::sociod:Gotop()
Do while .not. ::sociod:eof()
::tabla_mysql:AddNew() <== por FastAddNew()
::tabla_mysql:numero=::sociod:numero
::tabla_mysql:nombre=::sociod:nombre
::tabla_mysql:direccion=::sociod:direccion
::tabla_mysql:colonia=::sociod:colonia
::tabla_mysql:estado=::sociod:estado
::tabla_mysql:municipio=::sociod:municipio
::tabla_mysql:cp=::sociod:cp
::tabla_mysql:telefono=::sociod:telefono
::tabla_mysql:numero_abal=::sociod:num_abal
::tabla_mysql:nombre_abal=::sociod:abal
::tabla_mysql:parte_social=::sociod:parte_soc
::tabla_mysql:fecha_alta=::sociod:fecha_alta
::tabla_mysql:fecha_parte_social=::sociod:fec_parte
::tabla_mysql:Update() <==por FastUpdate()
HB_GCALL(.T.) <=== aqui
::sociod:Skip()
Enddo
::midb:CommitTrans()
Saludos....

PARA EL SR. PEDRO DE LEON RODAS

Publicado: Jue Abr 02, 2009 2:28 am
por PEDRO DE LEON RODAS[3]
Gusto de saludarte mi estimado Martin del Angel.
Gracias por tu respuesta.
El problema es Xailer 2.0 con Xarbour version actual.
E incluso use FastAddNew() y FastUpdate() y aún así me daba el error.
Tuve que regresarme a la version 1.99
Ahí funciona perfectamente bien mi sistema.
Puedo hacer el traspaso de informacion de una DBF a Mysql sin nungún
problema.
Precisamente hoy Miercoles fuí a instalar el sistema y quedó funcionando
perfectamente bien.
Mi cliente quedó sastifecho.
Nuevamente, gracias.
Dios te bendiga.
__________ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 3982 (20090402) __________
ESET NOD32 Antivirus ha comprobado este mensaje.
http://www.eset.com