test.sql

来自「wrox出版社的另一套经典的VB2005数据库编程学习书籍,收集了书中源码,郑重」· SQL 代码 · 共 86 行

DECLARE @pt Point
SET @pt = CONVERT(Point, '0,0')
SET @pt.X = 1
SET @pt.Y = 2
PRINT @pt.ToString()
PRINT ''

SET @pt = CONVERT(Point, '2.5,3.6')
PRINT @pt.X
PRINT @pt.Y
PRINT @pt.ToString()
PRINT ''

SET @pt.X = 2
SET @pt.Y = 2
PRINT @pt.ToString()
PRINT ''

PRINT @pt.DistanceTo(CONVERT(Point, '1,1'))
PRINT ''

SET NOCOUNT ON

--Parse separated string and display mailing label (USA)
DECLARE @Addr1 Address
SET @Addr1 = CONVERT(Address, 'Rattlesnake Canyon Grocery;2817 Milton Dr.;Albuquerque;NM;94610-5708;USA')
PRINT @Addr1.MailingLabel()

--Retrieve individual fields
PRINT @Addr1.Name
PRINT @Addr1.Address
PRINT @Addr1.City
PRINT @Addr1.Region
PRINT @Addr1.PostalCode
PRINT @Addr1.Country
PRINT ''

--Alter field values
SET @Addr1.Address = '2817 Milton Drive'
SET @Addr1.PostalCode = '94610'
PRINT @Addr1.MailingLabel()
PRINT @Addr1.MailingListHeaderCSV()
PRINT @Addr1.MailingListCSV()
PRINT @Addr1.AddressXML()
PRINT ''
PRINT 'Instance Order Count: ' + CONVERT(varchar, @Addr1.CustomerOrderCount())
PRINT ''
PRINT 'Order Count for RATTC: ' + 
CONVERT(varchar, @Addr1.OrderCountByCustomerID('RATTC'))
PRINT ''

--Copy of @Addr
DECLARE @Test Address
SET @Test = CONVERT(Address, @Addr1)
PRINT @Test.ToString()
PRINT ''

--Verify the two addresses are the same
PRINT 'Equality Test: ' + CONVERT(varchar, @Addr1.IsEqualTo(@Test))
PRINT ''

--Print the hash code
PRINT 'HashCode: ' + CONVERT(varchar, @Addr1.GetHashCode())
PRINT ''

--Parse string and display mailing label (USA)
SET @Addr1 = CONVERT(Address, 'Rattlesnake Canyon Grocery;2817 Milton Dr.;Albuquerque;NM;94610-5708;USA')
PRINT @Addr1.MailingLabel()
PRINT ''

--Escape single quotes and omit Region and PostalCode (Ireland)
DECLARE @Addr2 Address
SET @Addr2 = CONVERT(Address, 'O''Reilly Irish Providers, Ltd.;8 Johnstown Road;Cork;;;Ireland')
PRINT @Addr2.ToString()
PRINT ''
PRINT @Addr2.MailingLabel()
PRINT @Addr2.MailingListHeaderCSV()
PRINT @Addr2.MailingListCSV()
PRINT @Addr2.AddressXML()
PRINT ''

--Print the hash code
PRINT 'HashCode: ' + CONVERT(varchar, @Addr2.GetHashCode())
PRINT ''