Листинг 4

Пример создания таблицы

conn.Connect()
Dim AWDBase As Database = myServer.Databases(«AdventureWorks»)
Dim DiscountsTable As New Table(AWDBase, «Sales.Discounts»)
Dim ID As New Column(DiscountsTable, «ID», DataType.Int)
Dim Name As New Column(DiscountsTable,»Name», DataType.NVarChar(30))
ID.Identity = True
DiscountsTable.Columns.Add(ID)
DiscountsTable.Columns.Add(Name)
Try
	DiscountsTable.Create()
Catch ex As Exception
	Console.WriteLine(ex.Message)
	conn.Disconnect()
	Return
End Try
Console.WriteLine(«The table was created»)
conn.Disconnect()