Information générale
Catégorie:
Base de données, Tables, Vues, Index et syntaxe SQL
Hi!
Small correction :)
h=SQLConnect("ORADSN","USERID","PWD") && Establish a connection
IF h > 0
WAIT WINDOW "Connection Successful" NOWAIT
*
* Execute the stored procedure
*
lcId = "123456" && Passed In Proc
ldDateReport = space(10) && Passed Out Proc
lnResult=SQLExec(h,"{Call SP_MYPROC((?lcId, ?@ldDateReport) }"
if lnResult <> -1
WAIT WINDOW "Execute Successful" NOWAIT
else
WAIT WINDOW "Execute Failed" NOWAIT
endif
=SQLDisconnect(h) && Terminate the connection
ELSE
WAIT WINDOW "Connection Failed"
ENDIF
Best Regards!
Yuri.
Précédent
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement