>SELECT Inout.CardID, Inout.DateTime, Inout.Door, Inout.username,; > Inout.changed, Common.Name, Common.Description, Inout.KeyNum; > FROM ; > dbo.InOut Inout ; > INNER JOIN dbo.Common Common ; > ON Inout.Door = Common.Number; > AND Common.CatID = ( 110 ); > WHERE Inout.CardID = ( ?main_id ); > AND Inout.DateTime BETWEEN ?frstdat AND ?scnddat; > ORDER BY Inout.DateTime > >DBSetProp(ThisView,"View","SendUpdates",.T.) >DBSetProp(ThisView,"View","BatchUpdateCount",1) >DBSetProp(ThisView,"View","CompareMemo",.T.) >DBSetProp(ThisView,"View","FetchAsNeeded",.F.) >DBSetProp(ThisView,"View","FetchMemo",.T.) >DBSetProp(ThisView,"View","FetchSize",100) >DBSetProp(ThisView,"View","MaxRecords",-1) >DBSetProp(ThisView,"View","Prepared",.F.) >DBSetProp(ThisView,"View","ShareConnection",.F.) >DBSetProp(ThisView,"View","AllowSimultaneousFetch",.F.) >DBSetProp(ThisView,"View","UpdateType",1) >DBSetProp(ThisView,"View","UseMemoSize",255) >DBSetProp(ThisView,"View","Tables","dbo.InOut") >DBSetProp(ThisView,"View","WhereType",3) >DBSetProp(ThisView,"View","ParameterList","mainid,'I';frstdat,'T';scnddat,'T'") > >DBSetProp(ThisView+".cardid","Field","DataType","I") >DBSetProp(ThisView+".cardid","Field","UpdateName","dbo.InOut.CardID") >DBSetProp(ThisView+".cardid","Field","KeyField",.T.) >DBSetProp(ThisView+".cardid","Field","Updatable",.T.) > >DBSetProp(ThisView+".datetime","Field","DataType","T") >DBSetProp(ThisView+".datetime","Field","UpdateName","dbo.InOut.DateTime") >DBSetProp(ThisView+".datetime","Field","KeyField",.T.) >DBSetProp(ThisView+".datetime","Field","Updatable",.T.) > >DBSetProp(ThisView+".door","Field","DataType","I") >DBSetProp(ThisView+".door","Field","UpdateName","dbo.InOut.Door") >DBSetProp(ThisView+".door","Field","KeyField",.T.) >DBSetProp(ThisView+".door","Field","Updatable",.T.) > >DBSetProp(ThisView+".username","Field","DataType","C(21)") >DBSetProp(ThisView+".username","Field","UpdateName","dbo.InOut.username") >DBSetProp(ThisView+".username","Field","KeyField",.T.) >DBSetProp(ThisView+".username","Field","Updatable",.T.) > >DBSetProp(ThisView+".changed","Field","DataType","I") >DBSetProp(ThisView+".changed","Field","UpdateName","dbo.InOut.changed") >DBSetProp(ThisView+".changed","Field","KeyField",.T.) >DBSetProp(ThisView+".changed","Field","Updatable",.T.) > >DBSetProp(ThisView+".name","Field","DataType","C(50)") >DBSetProp(ThisView+".name","Field","UpdateName","dbo.Common.Name") >DBSetProp(ThisView+".name","Field","KeyField",.F.) >DBSetProp(ThisView+".name","Field","Updatable",.F.) > >DBSetProp(ThisView+".description","Field","DataType","C(50)") >DBSetProp(ThisView+".description","Field","UpdateName","dbo.Common.Description") >DBSetProp(ThisView+".description","Field","KeyField",.F.) >DBSetProp(ThisView+".description","Field","Updatable",.F.) > >DBSetProp(ThisView+".keynum","Field","DataType","I") >DBSetProp(ThisView+".keynum","Field","UpdateName","dbo.InOut.KeyNum") >DBSetProp(ThisView+".keynum","Field","KeyField",.T.) >DBSetProp(ThisView+".keynum","Field","Updatable",.F.) >>
>OPEN DATABASE CheckPoint >cSQL = SQLCONNECT("MyConnection") && returns 1 >? SQLEXEC(cSQL, "UPDATE InOut SET UserName = 'Me' SET Changed = 2 WHERE InOut.CardId = 976 and InOut.KeyNum = 32672") >>