FoxPro/Visual FoxPro - Tecnico

 
Vista:

Tecnico

Publicado por Alberto Serrano (1 intervención) el 11/01/2007 15:37:46
Hola

Necesito pasar unos datos de una tabla DBF de visual foxpro a una Tabla SQL intente hacer la siguiente rutina pero cuuando va a migrarse me manda error en el tipo de datos y lo raro es que tienen la misma estructura y la dimesion y definicion y el mismo nombre de los campos por u ayuda gracias.

Les pongo mi rutina

SET TALK OFF
CLEAR
CLOSE ALL
SET STRICTDATE TO 0
SET SAFETY OFF
SET EXCLUSIVE ON
SET CONFIRM ON


Local lcconexion,lcejecutar
&& ESTABLECEMOS LA CONEXION DONDE
&& Dbq = ES EL NOMBRE DE LA BASE DE DATOS CON EL PATH
&& Uid = ES IGUAL AL NOMBRE DE USUARIO
&& Pwd = ES IGUAL A LA CLAVE
&& NOTA SI DESEARAS SOLAMENTE CONECTARTE A SQL SERVER DEBERIAS DE CAMBIAR SENCILLAMENTE LA CONNECTIONSTRING NO MAS
&& DE RESTO TODO ES IGUAL RECUERDA QUE PARA CAMBIAR DE BASE DE DATOS EN SQL SERVER ES:
&& SQLEXEC(LcConexion,"use midatabase;")

lcconexion = Sqlstringconnect("Driver={SQL Server};Server=Serva;Database=netbas;Uid=netbas;Pwd=netbas;")

&& CONSULTANDO EN LA BASE DE DATOS UNA TABLA LLAMADA CLIENTES
lcejecutar = "SELECT * from IC_Con"
If sqlexec(lcconexion,lcejecutar ,"_MyCursor") = 0
Messagebox("No se pudo establecer la conexion",0+64,"Alerta")
Return
Endif
*Select _mycursor
*Browse && PROBAMOS RESULTADOS DE LA CONSULTA


SELECT 2
USE C:\SUBIRBASE\EXPORTAR
GO TOP
DO WHILE ! EOF()



INSERT INTO _mycursor(CON_CIA,CON_SUC,CON_ID,CON_NOM,CON_APP,CON_APM,CON_SEX,CON_TIT,CON_CAR,;
CON_PUE,CON_CLI,CON_SIG,CON_CAL,CON_COL,CON_DEL,CON_EDO,CON_PAI,CON_CP,CON_LAD,CON_TE1,CON_TE2,CON_FAX,CON_MAI,;
CON_ALT,CON_CLA1,CON_CLA2,CON_CLA3,CON_CLA4,CON_CLA5,CON_MIE,CON_ORI,CON_CED,CON_RFC,CON_NIV,CON_REV,CON_MEM,;
CON_INI,CON_FIN,CON_PWD,CON_ACC,CON_USR,CON_UFE,CON_UHR,CON_EMP,CON_KBS) VALUES (EXPORTAR.CON_CIA,EXPORTAR.CON_SUC,;
ALLTRIM(EXPORTAR.CON_ID),ALLTRIM(EXPORTAR.CON_NOM),ALLTRIM(EXPORTAR.CON_APP),ALLTRIM(EXPORTAR.CON_APM),;
EXPORTAR.CON_SEX,ALLTRIM(EXPORTAR.CON_TIT),ALLTRIM(EXPORTAR.CON_CAR),ALLTRIM(EXPORTAR.CON_PUE),ALLTRIM(EXPORTAR.CON_CLI),ALLTRIM(EXPORTAR.CON_SIG),;
ALLTRIM(EXPORTAR.CON_CAL),ALLTRIM(EXPORTAR.CON_COL),ALLTRIM(EXPORTAR.CON_DEL),ALLTRIM(EXPORTAR.CON_EDO),ALLTRIM(EXPORTAR.CON_PAI),ALLTRIM(EXPORTAR.CON_CP),;
ALLTRIM(EXPORTAR.CON_LAD),ALLTRIM(EXPORTAR.CON_TE1),ALLTRIM(EXPORTAR.CON_TE2),ALLTRIM(EXPORTAR.CON_FAX),ALLTRIM(EXPORTAR.CON_MAI),;
ALLTRIM(EXPORTAR.CON_ALT),ALLTRIM(EXPORTAR.CON_CLA1),ALLTRIM(EXPORTAR.CON_CLA2),ALLTRIM(EXPORTAR.CON_CLA3),ALLTRIM(EXPORTAR.CON_CLA4),ALLTRIM(EXPORTAR.CON_CLA5),;
ALLTRIM(EXPORTAR.CON_MIE),ALLTRIM(EXPORTAR.CON_ORI),ALLTRIM(EXPORTAR.CON_CED),ALLTRIM(EXPORTAR.CON_RFC),EXPORTAR.CON_NIV,EXPORTAR.CON_REV,EXPORTAR.CON_MEM,;
ALLTRIM(EXPORTAR.CON_INI),ALLTRIM(EXPORTAR.CON_FIN),ALLTRIM(EXPORTAR.CON_PWD),EXPORTAR.CON_ACC,;
ALLTRIM(EXPORTAR.CON_USR),ALLTRIM(EXPORTAR.CON_UFE),ALLTRIM(EXPORTAR.CON_UHR),EXPORTAR.CON_EMP,EXPORTAR.CON_KBS)


SELECT exportar
SKIP
ENDDO
&&CERRAMOS LA CONEXION
=sqldisconnect(lcconexion)
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

RE:Tecnico

Publicado por Plinio (7841 intervenciones) el 11/01/2007 17:29:08
Has probado llevar los datos usando el UPSIZING wizard?
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
sin imagen de perfil

RE:Tecnico

Publicado por DALSOM (612 intervenciones) el 15/01/2007 14:51:38
LO QUE NECESITAS HACER ES PATH TRUE, NO HACERLO A TRAVES DE VISTAS O CURSORES.

TODO ESE COMANDASO DEL INSERT METELO EN UNA CADENA.

LUEGO HAS UN SQLEXEC(CONEXION,COMANDOCADENA) ANDES DE CERRAR TU CONEXION.

SALUDOS,
DALSOM.
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