Synonym Class

public sealed class Synonym : ScriptSchemaObjectBase, IObjectPermission, ICreatable, IDroppable, 
	IExtendedProperties, IScriptable, IAlterable

public final class Synonym extends ScriptSchemaObjectBase implements IObjectPermission, ICreatable, 
	IDroppable, IExtendedProperties, IScriptable, IAlterable

public final class Synonym extends ScriptSchemaObjectBase implements IObjectPermission, ICreatable, 
	IDroppable, IExtendedProperties, IScriptable, IAlterable

'Connect to the local, default instance of SQL Server.
Dim srv As Server
srv = New Server()
'Reference the AdventureWorks database.
Dim db As Database
db = srv.Databases("AdventureWorks")
'Define a Synonym object variable by supplying the parent database, name, and schema arguments in the constructor.
'The name is also a synonym of the name of the base object.
Dim syn As Synonym
syn = New Synonym(db, "Shop", "Sales")
'Specify the base object, which is the object on which the synonym is based.
syn.BaseDatabase = "AdventureWorks"
syn.BaseSchema = "Sales"
syn.BaseObject = "Store"
syn.BaseServer = srv.Name
'Create the synonym on the instance of SQL Server.
syn.Create()