LISTING 1: Code to Enumerate User-Defined Views and Stored Procedures

BEGIN CALLOUT A
Sub Caller()
Dim srvname As String
Dim loginname As String
Dim pwd As String
Dim dbname As String

'Set general parameters for connection to a database.
srvname = "yourservername"
loginname = "sa"
pwd = ""
dbname = "NorthwindCS"

BEGIN CALLOUT B
'Call subprocedure to manipulate SQL Server objects.
ListViewsAndStoredProcedures srvname, loginname, pwd, dbname
'RenameViewWithADO srvname, loginname, pwd, dbname, _
  "View1", "View2"
'RenameViewWithoutADO srvname, loginname, pwd, dbname, _
  "View1", "View2"
'BackupAStoredProcedure srvname, loginname, pwd, dbname, _
  "yourdatabasename"
END CALLOUT B

End Sub
END CALLOUT A

Sub ListViewsAndStoredProcedures(srvname As String, _
  loginname As String, pwd As String, dbname As String)
Dim srv1 As SQLDMO.SQLServer
Dim vew1 As SQLDMO.View
Dim usp1 As SQLDMO.StoredProcedure
Dim str1 As String

'Connect to server.
Set srv1 = New SQLDMO.SQLServer
srv1.Connect srvname, loginname, pwd

BEGIN CALLOUT C
'Enumerate view names on server with a descriptive title.
Debug.Print "List of views in " & srv1.Databases(dbname).Name
For Each vew1 In srv1.Databases(dbname).Views
  If vew1.SystemObject = False Then _
    Debug.Print vew1.Name
Next vew1
END CALLOUT C

BEGIN CALLOUT D
'Enumerate user-defined stored procedure names on server
'with a descriptive title.
Debug.Print
Debug.Print "List of stored procedures in " & srv1.Databases(dbname).Name
For Each usp1 In srv1.Databases(dbname).StoredProcedures
  If usp1.SystemObject = False Then _
    Debug.Print usp1.Name
Next usp1
END CALLOUT D

'Clean up objects.
srv1.Disconnect
Set srv1 = Nothing
End Sub