Expert Software Company : News

marți, 25 mai 2010

Intoarce numarul de inregistrari procesate sin SQL Server sau MySQL

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