CLEAR
SQLDISCONNECT(0)
lcConnStr = "Driver={SQL Server};Server=(local);Database=Gestiune2010;Trusted_Connection=Yes;"
lnConn = SQLSTRINGCONNECT(lcConnStr)
TEXT TO lcSQL NOSHOW TEXTMERGE PRETEXT 15
SELECT sItemCode, sDescription
FROM Items
WHERE sItemCode <> '00001'
ENDTEXT
SQLEXEC(lnConn, lcSQL, "tmpItems", laCount)
*WAIT WINDOW laCount(1,1)
WAIT WINDOW laCount(1,2) &&numarul de inregistrari INLOCUIESTE SELECT @@rowcount
*DISPLAY MEMORY LIKE laCount
RETURN
Niciun comentariu:
Trimiteți un comentariu