MYSQL
Publicado por IVAN (6 intervenciones) el 19/08/2008 21:57:11
Hola a todos
Tengo un problema al grabar los datos de una consulta a la base de MYSQL. Quiero grabar varios registros al tiempo pero siempre me graba los datos del ultimo registro. Hago un ciclo pero no me funciona..
Como puedo hacer para grabarlos todos los registros.?
Tengo el suguiente codigo
SELECT lisdatos
GO TOP
DO WHIL !EOF()
cmd1 = SQLEXEC(lnHandle,"INSERT INTO factura (do) VALUES (?tmpndato)")
IF cmd1 > 0
SELECT lisdatos
FOR i=2 TO FCOUNT()
tmpcampo=FIELD(i)
ndato=&tmpcampo
cmd = SQLEXEC(lnHandle,"UPDATE factura set &tmpcampo='"+ndato+"'")
NEXT
ELSE
MESSAGEBOX("No se pudo conectar a la tabla ","Error en Factura")
ENDIF
SELECT lisdatos
SKIP
ENDD
MESSAGEBOX("Informacion Grabada" + CHR(13))
SQLDISCONNECT(lnHandle)
Tengo un problema al grabar los datos de una consulta a la base de MYSQL. Quiero grabar varios registros al tiempo pero siempre me graba los datos del ultimo registro. Hago un ciclo pero no me funciona..
Como puedo hacer para grabarlos todos los registros.?
Tengo el suguiente codigo
SELECT lisdatos
GO TOP
DO WHIL !EOF()
cmd1 = SQLEXEC(lnHandle,"INSERT INTO factura (do) VALUES (?tmpndato)")
IF cmd1 > 0
SELECT lisdatos
FOR i=2 TO FCOUNT()
tmpcampo=FIELD(i)
ndato=&tmpcampo
cmd = SQLEXEC(lnHandle,"UPDATE factura set &tmpcampo='"+ndato+"'")
NEXT
ELSE
MESSAGEBOX("No se pudo conectar a la tabla ","Error en Factura")
ENDIF
SELECT lisdatos
SKIP
ENDD
MESSAGEBOX("Informacion Grabada" + CHR(13))
SQLDISCONNECT(lnHandle)
Valora esta pregunta


0