Bases de Datos - de Tabla Libre a una tabla en SQL

   
Vista:
Imágen de perfil de Eduardo Jose

de Tabla Libre a una tabla en SQL

Publicado por Eduardo Jose ejg_tuc@hotmail.com (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)
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Eduardo Jose

de Tabla Libre a una tabla en SQL

Publicado por Eduardo Jose ejg_tuc@hotmail.com (2 intervenciones) el 15/03/2011 20:57:56
ya encontre la solucion, no se si sera la mejor
lcF = STRTRAN(DTOC(d1.fecha),'/','-')
lctipo = "'"+d1.tipo+"'"
lncen = ALLTRIM(STR(d1.c_emisor))
lnnum = ALLTRIM(STR(d1.numero))
ldfec = d1.fecha
lnR=SQLEXEC(gnCon, "INSERT INTO sdb (tipo, c_emisor, numero, fecha) VALUES (&lcTipo, &lnCen, &lnNum, &lcF)")

ASI FUNCIONA.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar