Console.WriteLine( Its gone ); Console.WriteLine();

Console.WriteLine( Press any key to continue... ); Console.ReadKey();

finally

Выполнить завершающие действия if (cnMyConn != null)

cnMyConn.Close();

Применение средств установления соединений, предусмотренных в языке VB.NET

в последнее время язык VB.NET все шире применяется вместо языка Visual Basic. Сам автор в основном предпочитает использовать в собственных разработках язык С#, но очень многие разработчики считают для себя более удобным язык VB.NET.

Возврат набора данных

Imports System

Imports System.Data

Imports System.Data.SqlClient

Module Program

Sub MainO

Создать некоторые базовые строки, чтобы можно было рассматривать их отдельно от команд, в которых они используются

Встроенные средства защиты; они применяются, только если следующие две строки не закомментированы Dim StrConnect As String =

Data Source=(local);Initial Catalog=master;Integrated Security=SSPI Средства защиты SQL Server; они применяются, только если следующие две строки не закомментированы Dim StrConnect As String =

Data Source=(local);Initial Catalog=master;User Id=sa;Password=MyPass

Dim StrCommand As String =

SELECT Name, database id as ID FROM sys.databases

Dim rsMyRS As SqlClient.SqlDataReader

Dim cnMyConn As New SqlClient.SqlConnection(strConnect)

Открыть соединение (при этом фактически впервые осуществляется контакт с сервером базы данных) cnMyConn.Open()

Создать объект команды

Dim sqlMyCommand As New SqlClient.SqlCommand(strCommand, cnMyConn)

Создать результирующий набор rsMyRS = sqlMyCommand.ExecuteReaderО

Вывести полученные данные Do While rsMyRS.Read

Вывести данные первого столбца (по порядковому номеру). Можно также

ссылаться на столбец по имени Console.WriteLine(rsMyRS( Name ))

Loop

Console.WriteLine()

Console.WriteLine( Press any key to continue... ) Console.ReadKey()

Выполнить завершающие действия rsMyRS.Close() cnMyConn.Close()

End Sub

End Module

Выполнение команд без возврата набора данных

Imports System

Imports System.Data

Imports System.Data.SqlClient

Module Program

Sub MainO

Создать некоторые базовые строки, чтобы можно было рассматривать их

отдельно от команд, в которых они используются

Встроенные средства защиты; они применяются, только если следующие две строки не закомментированы Dim StrConnect As String =

Data Source=(local);Initial Catalog=master;Integrated Security=SSPI

Средства защиты SQL Server; они применяются, только если следующие две строки не закомментированы

Dim StrConnect As String =

Data Source=(local);Initial Catalog=master;User Id=sa;Password=MyPass

Dim StrCommand As String = CREATE TABLE Foo (Columnl INT NOT NULL PRIMARY ICEY) Dim strCommand2 As String = DROP TABLE Foo

Dim cnMyConn As New SqlClient.SqlConnection(strConnect)

Открыть соединение (при этом фактически впервые осуществляется контакт с сервером базы данных) cnMyConn.Open()

Создать объект команды

Dim sqlMyCommand As New SqlClient.SqlCommand(strCommand, cnMyConn)

Выполнить команду sqlMyCommand.ExecuteNonQuery()

Console.WriteLine( Table Created )

Console.WriteLine( Press enter to continue (you can go check to make sure that its there first) )

Console.ReadLine()

Внести изменения в текст команды sqlMyCommand.CommandText = strCommand2

sqlMyCommand.ExecuteNonQuery{)

Console.WriteLineCIts gone )

Console.WriteLine{)

Console.WriteLine{ Press any key to continue... ) Console.ReadKey{)

Выполнить завершающие действия cnMyConn.Close{)

End Sub End Module