
de Tabla Libre a una tabla en SQL
Publicado por Eduardo Jose (2 intervenciones) el 15/03/2011 16:20:31
Tengo una tabla libre SDB.DBF quiero recorrerla e ir pasando sus registros a una tabla llamada tambien sdb que esta en una base llamada SQL ANYWHERE de sybase, probe de muchas maneras y no puedo insertar los registros, pongo el codigo q estoy usando como base. QUE HAGO MAL? Gracias desde ya.
SELECT 0
USE z:\datos1\sdb ALIAS d1
=SQLEXEC(gnCon, "OPEN DATABASE test")
=SQLEXEC(gnCon, "USE sdb")
SELECT d1
GO top
i=0
SET CENTURY on
DO WHILE i<2 && uso i<2 para probar
SET DATE ymd
lcF = STRTRAN(DTOC(d1.fecha),'/','-')
lctipo = d1.tipo
lncen = d1.c_emisor
lnnum = d1.numero
ldfec = d1.fecha
lnR=SQLEXEC(gnCon, "INSERT INTO test.sdb (tipo, c_emisor, numero, fecha) VALUES (lcTipo, lnCen, lnNum, lcF)")
WAIT WINDOW STR(lnR) TIMEOUT 2
SET DATE dmy
i=i+1
ENDDO
=SQLEXEC(gnCon, "CLOSE DATABASE test")
=SQLDISCONNECT(gnCon)
SELECT 0
USE z:\datos1\sdb ALIAS d1
=SQLEXEC(gnCon, "OPEN DATABASE test")
=SQLEXEC(gnCon, "USE sdb")
SELECT d1
GO top
i=0
SET CENTURY on
DO WHILE i<2 && uso i<2 para probar
SET DATE ymd
lcF = STRTRAN(DTOC(d1.fecha),'/','-')
lctipo = d1.tipo
lncen = d1.c_emisor
lnnum = d1.numero
ldfec = d1.fecha
lnR=SQLEXEC(gnCon, "INSERT INTO test.sdb (tipo, c_emisor, numero, fecha) VALUES (lcTipo, lnCen, lnNum, lcF)")
WAIT WINDOW STR(lnR) TIMEOUT 2
SET DATE dmy
i=i+1
ENDDO
=SQLEXEC(gnCon, "CLOSE DATABASE test")
=SQLDISCONNECT(gnCon)
Valora esta pregunta


0