lcConStr = "Provider=vfpoledb;Data Source="+HOME(2)+"northwind\northwind.dbc" >oCon = CreateObject("ADODB.connection") >oCmd = CreateObject("ADODB.Command") >oRs = CreateObject("ADODB.RecordSet") >oCon.Open(lcConStr) >oCmd.ActiveConnection = oCon >oRs.ActiveConnection = oCon >oCmd.CommandText = [SET DELETE OFF] >oCmd.Execute() >oCmd.CommandText = [ SELECT SET("DELETED"), * FROM orders] >oRs.Source = oCmd >>>Hi All,
>>SELECT * ; >> FROM mytable ; >> WHERE DELETED() >>>>