VB.Net by API/System.Data.SqlClient/SqlConnection — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
(нет различий)
|
Текущая версия на 15:50, 26 мая 2010
Содержание
SqlConnection.Database
<source lang="vbnet"> Imports System Imports System.Data Imports System.Data.SqlClient public class MainClass
Shared Sub Main() Dim connString As String = "server=(local)\SQLEXPRESS; " & _ "integrated security=sspi;" Dim conn As New SqlConnection(connString) Try conn.Open() Console.WriteLine("Connection Opened") Console.WriteLine("Connection Properties") Console.WriteLine("- ConnectionString : {0}",conn.ConnectionString) Console.WriteLine("- Database : {0}",conn.Database) Console.WriteLine("- DataSource : {0}", conn.DataSource) Console.WriteLine("- ServerVersion : {0}", conn.ServerVersion) Console.WriteLine("- State : {0}", conn.State) Console.WriteLine("- WorkstationId : {0}", conn.WorkstationId) Catch ex As SqlException Console.WriteLine("Error: " & ex.ToString()) Finally conn.Close() Console.WriteLine("Connection Closed") End Try End Sub
End Class
</source>
SqlConnection.DataSource
<source lang="vbnet"> Imports System Imports System.Data Imports System.Data.SqlClient public class MainClass
Shared Sub Main() Dim connString As String = "server=(local)\SQLEXPRESS; " & _ "integrated security=sspi;" Dim conn As New SqlConnection(connString) Try conn.Open() Console.WriteLine("Connection Opened") Console.WriteLine("Connection Properties") Console.WriteLine("- ConnectionString : {0}",conn.ConnectionString) Console.WriteLine("- Database : {0}",conn.Database) Console.WriteLine("- DataSource : {0}", conn.DataSource) Console.WriteLine("- ServerVersion : {0}", conn.ServerVersion) Console.WriteLine("- State : {0}", conn.State) Console.WriteLine("- WorkstationId : {0}", conn.WorkstationId) Catch ex As SqlException Console.WriteLine("Error: " & ex.ToString()) Finally conn.Close() Console.WriteLine("Connection Closed") End Try End Sub
End Class
</source>
SqlConnection.InfoMessage
<source lang="vbnet"> Imports System Imports System.Collections Imports System.Data Imports System.IO Imports System.Xml.Serialization Imports System.Windows.Forms Imports System.Data.SqlClient
Public Class MainClass
Shared Dim WithEvents con As SqlConnection Shared Sub Main() con = New SqlConnection("Server=(local)\SQLEXPRESS;Initial Catalog=master;Integrated Security=SSPI") Dim cmd As New SqlCommand() cmd.rumandText = "PRINT("This raises an InfoMessage event")" cmd.Connection = con Try con.Open() cmd.ExecuteNonQuery() Finally con.Close() End Try End Sub Shared Sub con_InfoMessage(ByVal Sender As Object, _ ByVal E As SqlInfoMessageEventArgs) Handles con.InfoMessage Console.WriteLine( _ "{0} - {1}", "InfoMessage", E.Errors.Item(0).ToString()) End Sub
End Class
</source>
SqlConnection.ServerVersion
<source lang="vbnet"> Imports System Imports System.Data Imports System.Data.SqlClient public class MainClass
Shared Sub Main() Dim connString As String = "server=(local)\SQLEXPRESS; " & _ "integrated security=sspi;" Dim conn As New SqlConnection(connString) Try conn.Open() Console.WriteLine("Connection Opened") Console.WriteLine("Connection Properties") Console.WriteLine("- ConnectionString : {0}",conn.ConnectionString) Console.WriteLine("- Database : {0}",conn.Database) Console.WriteLine("- DataSource : {0}", conn.DataSource) Console.WriteLine("- ServerVersion : {0}", conn.ServerVersion) Console.WriteLine("- State : {0}", conn.State) Console.WriteLine("- WorkstationId : {0}", conn.WorkstationId) Catch ex As SqlException Console.WriteLine("Error: " & ex.ToString()) Finally conn.Close() Console.WriteLine("Connection Closed") End Try End Sub
End Class
</source>
SqlConnection.StateChange
<source lang="vbnet"> Imports System Imports System.Collections Imports System.Data Imports System.IO Imports System.Xml.Serialization Imports System.Xml Imports System.Windows.Forms Imports System.Data.SqlClient
Public Class MainClass
Shared Dim WithEvents con As SqlConnection Shared Sub Main() con = New SqlConnection("Server=(local)\SQLEXPRESS;Initial Catalog=MyDatabase;Integrated Security=SSPI") Dim cmd As New SqlCommand() cmd.rumandText = "SELECT TOP 5 FirstName, LastName FROM Employee" cmd.Connection = con Try con.Open() Dim reader As SqlDataReader = cmd.ExecuteReader() While reader.Read() Console.WriteLine( _ "{0} - {1}", reader.GetString(0), reader.GetString(1)) End While reader.Close() Finally con.Close() End Try End Sub Shared Sub con_StateChange(ByVal Sender As Object, _ ByVal E As StateChangeEventArgs) Handles con.StateChange Console.WriteLine( _ "{0} - {1}", "ConnectionState", E.CurrentState.ToString()) End Sub
End Class
</source>
SqlConnection.Version
<source lang="vbnet"> Imports System Imports System.Data Imports System.Data.SqlClient public class MainClass
Shared Sub Main() Dim connString As String = "server=(local)\SQLEXPRESS; " & _ "integrated security=sspi;" Dim conn As New SqlConnection(connString) Try conn.Open() Console.WriteLine("Connection Opened") Console.WriteLine("Connection Properties") Console.WriteLine("- ConnectionString : {0}",conn.ConnectionString) Console.WriteLine("- Database : {0}",conn.Database) Console.WriteLine("- DataSource : {0}", conn.DataSource) Console.WriteLine("- ServerVersion : {0}", conn.ServerVersion) Console.WriteLine("- State : {0}", conn.State) Console.WriteLine("- WorkstationId : {0}", conn.WorkstationId) Catch ex As SqlException Console.WriteLine("Error: " & ex.ToString()) Finally conn.Close() Console.WriteLine("Connection Closed") End Try End Sub
End Class
</source>
SqlConnection.WorkstationId
<source lang="vbnet"> Imports System Imports System.Data Imports System.Data.SqlClient public class MainClass
Shared Sub Main() Dim connString As String = "server=(local)\SQLEXPRESS; " & _ "integrated security=sspi;" Dim conn As New SqlConnection(connString) Try conn.Open() Console.WriteLine("Connection Opened") Console.WriteLine("Connection Properties") Console.WriteLine("- ConnectionString : {0}",conn.ConnectionString) Console.WriteLine("- Database : {0}",conn.Database) Console.WriteLine("- DataSource : {0}", conn.DataSource) Console.WriteLine("- ServerVersion : {0}", conn.ServerVersion) Console.WriteLine("- State : {0}", conn.State) Console.WriteLine("- WorkstationId : {0}", conn.WorkstationId) Catch ex As SqlException Console.WriteLine("Error: " & ex.ToString()) Finally conn.Close() Console.WriteLine("Connection Closed") End Try End Sub
End Class
</source>