OSCAR OMAR
22 de Octubre del 2005

mi situacion es la siguiente: Tengo un problema al momento en que intento subir datos desde Vfp a Sql Server pero esto solo pasa cuando en la cadena de campos a subir existe un campo fecha(datetime()),de resto funciona bien. 驴 Mi Pregunta es como hago para arreglar esta joda?... aqui esta el codigo que uitilizo por favor ayuda!

store sqlstringconnect("driver={SQL Server};server=SERVIDOR;Integrated Security=True;database=BDCOTTON") to pconexion
IF pconexion <= 0
MESSAGEBOX('No se puede conectar', 16, 'Error de conexi贸n SQL')
return
ENDIF
lcejecutar = "SELECT * FROM DEVOMERC"

If SQLEXEC(pconexion,lcejecutar,"DEVOMERC") < 1
MESSAGEB('ERROR AL APERTURAR EL CURSOR <DEVOMERC>')
RETURN
ENDIF

=SQLDISCONNECT(pconexion)
xCampos="dmCod_Sed,dmCod_Dev,dmCed_Cli,dmCed_Ven,dmCos_Dev,dmIva_Dev,dmNum_ven,dmObs_mov,dmFec_dev"&&
store sqlstringconnect("driver={SQL Server};server=SERVIDOR;Integrated Security=True;database=BDCOTTON") to pconexion
lcejecutar = "INSERT INTO DEVOMERC("+xCampos+") VALUES('"+ '1'+"','"+ 'D0500015' +"','"+'V05000215'+"','"+'14264733'+"','"+'15000'+"','"+'250'+"','"+'004'+"','"+'xxxxxxxxxxxxxxxxx'+"','"+TTOC(DATETIME())+"')"
IF SQLEXEC(pconexion,lcejecutar)<1
MESSAGEBOX('Error al intentar Guardar Los Datos')
ENDIF

gabrield
22 de Octubre del 2005

Estimado Oscar:
Aunque indicas cu谩l es el error, puedo darte algunas pistas.
A modo de comentario, fijate como funciona

TEXT TO NombreVariable TEXTMERGE NOSHOW
...
ENDTEXT

esto simplifica mucho la generaci贸n de cadenas. Por ejemplo, mira esto

TEXT TO Consulta TEXTMERGE NOSHOW
SELECT *
FROM Clientes cli
WHERE cli.idCliente = <<Variable>>
ENDTEXT

para conocer el tema de las fechas en SQL f铆jate en http://www.mug.org.ar/SQL/ArticSQL/240.aspx

Saludos cordiales.
Gabriel Dame帽ov
www.gdmsargentina.com.ar
Sistemas Inform谩ticos