Coneccion a Access desde VFP

Arturo
07 de Julio del 2004
Aqui envio el pequeño programa, estoy seguro que me falta alguna instruccion, donde es? La consulta sale bien, pero el "insert" me da error (-1). De antemano muchas gracias.

CREATE CONNECTION MyPos DATASOURCE pos
STORE SQLCONNECT('MyPos') TO gnConnHandle
= SQLSETPROP(gnConnHandle, 'Transactions',1)
IF gnConnHandle <= 0
=MESSAGEBOX('Cannot make connection', 16, 'SQL Connect Error')
ELSE
=MESSAGEBOX('Connection made', 64, 'SQL Connect Message')
a=SQLEXEC(gnConnHandle,"insert into articulos (codart,nomart,unidad) values ('11','prueba insert','GAL')")
wait window str(a,12,2)
sqlcommit(gnConnHandle)
SQLEXEC(gnConnHandle,"select * from articulos","cur1")
select cur1
brow
=SQLDISCONNECT(gnConnHandle)
ENDIF

eleon73
07 de Julio del 2004
puedes capturar el error y ver cual es el problema. Yo lo hago de la siguiente manera.

a=SQLEXEC(gnConnHandle,"insert into articulos (codart,nomart,unidad) values ('11','prueba insert','GAL')")

ne = AERROR(ae)
DEFINE WINDOW w_err AT 1.0,10.0 SIZE 20.0,120.0 FONT "San Serif",8 FLOAT NOCLOSE
MOVE WINDOW w_err CENTER
ACTIVATE WINDOW w_err
FOR s_e = 1 TO ne
? STR(ae[s_e,1]) + " " + ae[s_e,2]
ENDFOR
WAIT
DEACTIVATE WINDOW w_err