>loSqlServer = CREATEOBJECT('SQLDMO.SqlServer') >loSqlServer.LoginSecure = .T. >loSqlServer.Connect('WAC_SQL_02') >loSQLServer.ExecuteImmediate('SET QUOTED_IDENTIFIER OFF') >loSQLServer.ExecuteImmediate('SET ANSI_WARNINGS OFF') >loSQLServer.ExecuteImmediate('SET ANSI_NULLS ON') >loSQLServer.AnsiNulls = .T. > >loDataBases = loSqlServer.DataBases >loDataBase = loDataBases.Item['USP'] >loDataBaseViews = loDataBase.Views >loDataBaseView = loDataBaseViews.Item['OldViewName'] >lcText = loDataBaseView.text >lcText = STRTRAN(lcText,"OldViewName","NewViewName") >lctext = STRTRAN(lctext,"0102004","0009019") > >loNewView = CREATEOBJECT('SQLDMO.View') >loNewView.Name = 'NewViewName' >loNewView.text = lctext >loNewView.Owner = 'dbo' >loNewView.AnsiNullsStatus = .T. > >loDataBaseViews.Add(loNewView) >