I have an ODBC Datos_ds with access driver for the database DATOS.MDB
The code is :
SET DATE british
SET CPDIALOG OFF
SET SAFETY OFF

OPEN DATABASE DATOS1

SELECT 1
USE SOLICIT0

SELECT 2
USE CLIENTE0
INDEX ON CUENTA TAG CUENTA
SET ORDER TO TAG CUENTA


SELECT 1
GO TOP
wmanejo = SQLCONNECT('Datos_ds','admin')

DO WHILE .NOT. EOF()
wfecha1 = DTOC(fecha_co)
wfecha = fecha_co
wanio = STR(YEAR(wfecha),4)
wmes = wanio + "/"+RIGHT("0" + TRIM(STR(MONTH(wfecha),2)),2)
wdia = wmes + "/" + RIGHT("0" + TRIM(STR(DAY(wfecha),2)),2)
wsolicitud = solicitud
woficial = referencia
wcliente = cuenta
wmoneda = moneda_co
waprobado = cred_aprob
wmonto = STR(importe_co,14,2)
SELECT 2
SEEK wcliente
wrubro = rub_activ
SELECT 1
wcuotas = STR(cuo_tot_co,3,0)
wcantidad = STR(1,1)
=SQLPREPARE(wmanejo,'insert into datos (fecha,anio,mes,dia,solicitudes,oficial,cliente,moneda,aprobado,monto,rubro,cuotas,cantidad) values (wfecha1,wanio,wmes,wdia,wsolicitud,woficial,wcliente,wmoneda,waprobado,wmonto,wrubro,wcuotas,wcantidad)')
resultado =SQLEXEC(wmanejo)
=SQLCOMMIT(wmanejo)
SKIP
ENDDO
=SQLDISCONNECT(wmanejo)
CLOSE DATABASES
CLOSE ALL
RETURN

The sqlexec return -1 to me always.
Could you you help me ?
Many Thanks
Claudio Luna