CLEAR all
lcMDB = 'c:\temp\northwind.mdb'
lnConnHandle = ;
Sqlstringconnect("Driver={Microsoft Access Driver (*.mdb)};"+;
"Uid=Admin;DBQ="+m.lcMDB)
TEXT TO lcSQL noshow
SELECT * FROM Products where (Discontinued=?m.State)
ENDTEXT
state = .T.
? SQLExec(m.lnConnHandle, m.lcSQL, 'result')
SQLDisconnect(0)
Select result
Browse