> SET ESCAPE ON > CLOSE DATABASES ALL > CLEAR > > LOCAL nHandle, cConnString > > cConnString = "Driver=SQL Server;Server=(local);Trusted_Connect=Yes;Database=MCM" > > nHandle = SQLSTRINGCONNECT(cConnString) > > IF nHandle > 0 > > ** Run the query > cQuery = "select * from campaign where campid = 'TSR'" > nResult = SQLExec(nHandle, cQuery, "CampInfo") > BROWSE NORMAL > > ** If no errors occured... > IF nResult > 0 > > =CURSORSETPROP("Tables", "dbo.campaign", "CampInfo") > =CURSORSETPROP("KeyFieldList", "Id", "CampInfo") > =CURSORSETPROP("UpdatableFieldList", "Id, ProdCat", "CampInfo") > =CURSORSETPROP("UpdateNameList", "ProdCat dbo.campaign.ProdCat") > =CURSORSETPROP("SendUpdates", .T., "CampInfo") > > SELECT CampInfo > REPLACE ProdCat WITH "CHANGED" NEXT 1 > > =TABLEUPDATE(.T.) > BROWSE NORMAL > > ENDIF > > =SQLDISCONNECT(nHandle) > > ELSE > > ? "Not connected" > > ENDIF > >RETURN >