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