CLOSE ALL
CLEAR all
SET TALK OFF
SET LIBRARY TO SYS(2004)+"FPSQL.PLB"
PUBLIC errval
PUBLIC errmsg
PUBLIC Hndl
errval=0
errmsg=""
sourcename="test"
user="sa"
passwd=""
wait window "Intentando conexion"
Hndl=DBCONNECT(sourcename,user,passwd)
if Hndl>0
wait wind "Conexi¢n exitosa"
else
error=DBerror(0,@errmsg,@errval)
wait windo SUBSTR(errmsg,1,70)+chr(13)+SUBSTR(errmsg,71,70)
endif
lval=DBExec(Hndl,"USE PUBS")
if lval=1
wait wind "Instruccion SQl ejecutada"
else
wait wind "No se ejecuto instruccion SQL"
endif
lval=DBExec(Hndl,"selet * from jobs")
if lval=1
wait wind "Instruccion SQl ejecutada"
else
wait wind "No se ejecuto instruccion SQL"
endif
Somebody knows what I´m doing wrong?.
Thank you for your help.
CarlosCarlos A. Miranda
E.I.S.lnc
President