FoxPro/Visual FoxPro - ERROR AL PASAR DATOS DE LA DBF A SQL SERVER

   
Vista:

ERROR AL PASAR DATOS DE LA DBF A SQL SERVER

Publicado por natalia (12 intervenciones) el 31/08/2012 20:44:29
Buenas tardes chicos, estoy trabajando con vfp y tengo q migrar algunos datos al sql, para cargar al sql uso el siguiente codigo



_Sql="INSERT INTO Servicio(Serie,Orden,cod_cliente,fecha) VALUES (?vc1,?vc2,?vc3,?vc4)


mi pregunta es hasta cuantas variables puedo usar?? porq cuando uso 25 variables es decir 25 campos no puedo guardar mi formulario y me sale un mensaje de error
"Command contains unrecognized phrase/keyword"


si alguien me puede ayudar, mil gracias.
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

ERROR AL PASAR DATOS DE LA DBF A SQL SERVER

Publicado por Saul (676 intervenciones) el 06/09/2012 07:26:20
Mira lo que yo utilizo en tu cazo..



IF thisform.nmodieli = 1 &&Nuevo
TEXT TO lcSQLcommand NOSHOW
INSERT INTO inscripcionanimales (
Codigo_anm,
Registro_anm,
Empresa_anm,
Sexo_anm,
Nombre_anm,
FecNac_anm,
FecRecep_anm,
RegPrivado_anm,
Tatuaje_anm,
OrejaIzq_anm,
Orejadere_anm,
Inspector_anm,
Color_anm,
ColorLengua_anm,
ColorBorda_anm,
Estatus_anm,
EjempObte_anm,
FechaInsimina_anm,
CasaProcesa_anm,
RescateGe1_anm,
RescateGene_anm,
PurificaEtapa_anm,
PurificacionEta_anm,
EncasteAbsorc_anm,
Peritaje_anm,
Perito_anm,
Consanguinidad_anm,
Criador_anm,
Propietario_anm,
PadreCod_anm,
PadreReg_anm,
MadreCod_anm,
MadreReg_anm,
Notas_anm,
edad_anm,
NomPadre_anm,
NomMadre_anm,
encaste_anm,
mMora,
tMora )
VALUES (
?m.Codigo_anm,
?m.Registro_anm,
?xcodigoempresa, /*Codigo Publico de Empresa*/
?m.Sexo_anm,
?m.Nombre_anm,
?m.FecNac_anm,
?m.FecRecep_anm,
?m.RegPrivado_anm,
?m.Tatuaje_anm,
?m.OrejaIzq_anm,
?m.Orejadere_anm,
?m.Inspector_anm,
?m.Color_anm,
?m.ColorLengua_anm,
?m.ColorBorda_anm,
?m.Estatus_anm,
?m.EjempObte_anm,
?m.FechaInsimina_anm,
?m.CasaProcesa_anm,
?m.RescateGe1_anm,
?m.RescateGene_anm,
?m.PurificaEtapa_anm,
?m.PurificacionEta_anm,
?m.EncasteAbsorc_anm,
?m.Peritaje_anm,
?m.Perito_anm,
?m.Consanguinidad_anm,
?m.Criador_anm,
?m.Propietario_anm,
?m.PadreCod_anm,
?m.PadreReg_anm,
?m.MadreCod_anm,
?m.MadreReg_anm,
?m.Notas_anm,
?m.edad_anm,
?m.NomPadre_anm,
?m.NomMadre_anm,
?m.encaste_anm,
?m.mMora,
?m.tMora )
ENDTEXT
ELSE
TEXT TO lcSQLcommand NOSHOW
UPDATE inscripcionanimales SET codigo_anm = ?m.codigo_anm,
Registro_anm = ?m.registro_anm,
Empresa_anm = ?m.empresa_anm,
Sexo_anm = ?m.sexo_anm,
Nombre_anm = ?m.nombre_anm,
FecNac_anm = ?m.fecNac_anm,
FecRecep_anm = ?m.fecRecep_anm,
RegPrivado_anm = ?m.regPrivado_anm,
Tatuaje_anm = ?m.tatuaje_anm,
OrejaIzq_anm = ?m.orejaizq_anm,
Orejadere_anm = ?m.orejadere_anm,
Inspector_anm = ?m.inspector_anm,
Color_anm = ?m.color_anm,
ColorLengua_anm = ?m.colorlengua_anm,
ColorBorda_anm = ?m.colorborda_anm,
Estatus_anm = ?m.estatus_anm,
EjempObte_anm = ?m.ejempobte_anm,
FechaInsimina_anm = ?m.fechaInsimina_anm,
CasaProcesa_anm = ?m.casaprocesa_anm,
RescateGe1_anm = ?m.rescateGe1_anm,
RescateGene_anm = ?m.rescateGene_anm,
PurificaEtapa_anm = ?m.purificaEtapa_anm,
PurificacionEta_anm = ?m.purificacionEta_anm,
EncasteAbsorc_anm = ?m.encasteAbsorc_anm,
Peritaje_anm = ?m.peritaje_anm,
Perito_anm = ?m.perito_anm,
Consanguinidad_anm = ?m.consanguinidad_anm,
Criador_anm = ?m.criador_anm,
Propietario_anm = ?m.propietario_anm,
PadreCod_anm = ?m.padreCod_anm,
PadreReg_anm = ?m.PadreReg_anm,
MadreCod_anm = ?m.MadreCod_anm,
MadreReg_anm = ?m.MadreReg_anm,
Notas_anm = ?m.Notas_anm,
edad_anm = ?m.edad_anm,
NomPadre_anm = ?m.nompadre_anm,
NomMadre_anm = ?m.NomMadre_anm,
encaste_anm = ?m.encaste_anm,
mMora = ?m.mMora,
tMora = ?m.tMora
WHERE codigo_anm = ?m.codigo_anm
AND registro_anm = ?m.registro_anm
AND empresa_anm = ?m.empresa_anm
ENDTEXT
ENDIF

IF !EMPTY(lcSQLcommand)
cmd = SQLEXEC(CnxIfh,lcSQLcommand)
IF cmd > 0 && Intenta confirmar los cambios
WAIT WINDOW AT SROWS() / 2,(SCOLS() / 2) - 5 TIMEOUT 1 'Guardando en Base de Datos!!!'
ELSE
IF AERROR(laError)> 0
Messagebox("No guardo ningún dato se ha producido un Error: "+laError[2])
ENDIF
ENDIF
ENDIF
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