Листинг 5

Пример модификации свойств таблицы

conn.Connect()
Dim AWDBase As Database = myServer.Databases(«AdventureWorks»)
Dim DiscountsTable As Table = AWDBase.Tables(«Sales.Discounts»)
Dim Name As Column = DiscountsTable.Columns(«Name»)
Name.Nullable = False
Try
	DiscountsTable.Alter()
Catch ex As Exception
	Console.WriteLine(ex.Message)
	conn.Disconnect()
	Return
End Try
Console.WriteLine(«The table was altered»)
conn.Disconnect()