-
Notifications
You must be signed in to change notification settings - Fork 1
/
DataOperationsSqlServer.vb
42 lines (31 loc) · 1.73 KB
/
DataOperationsSqlServer.vb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Imports System.Data.SqlClient
Namespace Classes
Public Class DataOperationsSqlServer
Private ConnectionString As String = "Data Source=KARENS-PC;Initial Catalog=NorthWindAzure;Integrated Security=True"
Public LastException As Exception
Public Function LoadCustomerRecordsUsingDataTable() As DataTable
Dim selectStatement =
"SELECT Cust.CustomerIdentifier, CT.ContactTypeIdentifier, Cust.CompanyName, " &
"Cust.ContactName, CT.ContactTitle, Cust.Address AS Street, Cust.City, " &
"Cust.PostalCode, Cust.Country, Cust.Phone, Cust.ModifiedDate " &
"FROM Customers AS Cust INNER JOIN ContactType AS CT ON " &
"Cust.ContactTypeIdentifier = CT.ContactTypeIdentifier;"
Dim customerDataTable = New DataTable
Using cn As New SqlConnection With {.ConnectionString = ConnectionString}
Using cmd As New SqlCommand With {.Connection = cn}
Try
cmd.CommandText = selectStatement
cn.Open()
customerDataTable.Load(cmd.ExecuteReader())
customerDataTable.Columns("CustomerIdentifier").ColumnMapping = MappingType.Hidden
customerDataTable.Columns("ContactTypeIdentifier").ColumnMapping = MappingType.Hidden
customerDataTable.Columns("ModifiedDate").ColumnMapping = MappingType.Hidden
Catch ex As Exception
LastException = ex
End Try
End Using
End Using
Return customerDataTable
End Function
End Class
End Namespace