PARA EL SR. PEDRO DE LEON RODAS
Publicado: Mié Abr 01, 2009 9:02 pm
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....
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....