Beginning Microsoft SQL Server 2008 ... - S3 Tech Training

Appendix B: Very Simple Connectivity Examples
End Sub
End Module
Dim rsMyRS As SqlClient.SqlDataReader
Dim cnMyConn As New SqlClient.SqlConnection(strConnect)
‘ “Open” the connection (this is the first time it actually
‘ contacts the database server)
cnMyConn.Open()
‘ Create the command object now
Dim sqlMyCommand As New SqlClient.SqlCommand(strCommand, cnMyConn)
‘ Create the result set
rsMyRS = sqlMyCommand.ExecuteReader()
‘Output what we got
Do While rsMyRS.Read
‘ Write out the first (ordinal numbers here)
‘ column. We can also refer to the column by name
Console.WriteLine(rsMyRS(“Name”))
Loop
Console.WriteLine()
Console.WriteLine(“Press any key to continue...”)
Console.ReadKey()
‘ Clean up
rsMyRS.Close()
cnMyConn.Close()
Executing Commands with No Data Set
654
Imports System
Imports System.Data
Imports System.Data.SqlClient
Module Program
Sub Main()
‘Create some base strings so you can look at these
‘separately from the commands they run in
‘ Integrated Security - next 2 lines should be uncommented to use
Dim strConnect As String = _
“Data Source=(local);Initial Catalog=master;Integrated Security=SSPI”
‘ SQL Security - next 2 lines should be uncommented to use
‘Dim strConnect As String = _
‘ “Data Source=(local);Initial Catalog=master;User Id=sa;Password=MyPass”
Dim strCommand As String = “CREATE TABLE Foo(Column1 INT NOT NULL PRIMARY KEY)”