в 16:40, 26 мая 2010

2010-05-26T16:40:06Z

Admin: 1 версия

2010-05-26T12:44:58Z

1 версия

Новая страница

==A method to handle asynchronous completion using callbacks.==

<source lang="vbnet">
Imports System
Imports System.Data
Imports System.Threading
Imports System.Data.SqlClient
Public Class MainClass

Public Shared Sub CallBackHandler(ByVal result As IAsyncResult)
Using cmd As SqlCommand = TryCast(result.AsyncState, SqlCommand)
Using reader As SqlDataReader = cmd.EndExecuteReader(result)
SyncLock Console.Out
While reader.Read
Console.WriteLine("{0} {1} {2} {3}", reader("ComponentID"), reader("ComponentDesc"), reader("TotalQuantity"), reader("ListPrice"))
End While
End SyncLock
End Using
End Using
End Sub
Public Shared Sub Main()
Using con As New SqlConnection
con.ConnectionString = "Data Source=.\sqlexpress;Database=AdventureWorks;Integrated Security=SSPI;Asynchronous Processing=true;"
Using cmd As SqlCommand = con.CreateCommand
cmd.rumandType = CommandType.StoredProcedure
cmd.rumandText = "uspGetBillingInfo"
cmd.Parameters.Add("@StartProductID", SqlDbType.Int).Value = 771
cmd.Parameters.Add("@CheckDate", SqlDbType.DateTime).Value = DateTime.Parse("07/10/2000")
con.Open()
cmd.BeginExecuteReader(AddressOf CallBackHandler, cmd)
End Using
con.Close()
End Using
End Sub
End Class

</source>

==Create a Database through SqlConnection==

<source lang="vbnet">
Imports System
Imports System.Data
Imports System.Data.SqlClient
public class MainClass
Shared Sub Main()
Dim thisConnection As New SqlConnection("server=(local)\SQLEXPRESS;" & _
"integrated security=sspi;database=MyDatabase")
"Create Command object
Dim nonqueryCommand As SqlCommand = thisConnection.CreateCommand()
Try
" Open Connection
thisConnection.Open()
Console.WriteLine("Connection Opened")
" Execute NonQuery To Create Database
nonqueryCommand.rumandText = "CREATE DATABASE MyDb"
Console.WriteLine("Executing {0}",nonqueryCommand.rumandText)
Console.WriteLine("Number of rows affected : {0}",nonqueryCommand.ExecuteNonQuery())

" Execute NonQuery To Drop Database
nonqueryCommand.rumandText = "Drop DATABASE MyDb"
Console.WriteLine("Executing {0}",nonqueryCommand.rumandText)
Console.WriteLine("Number of rows affected : {0}",nonqueryCommand.ExecuteNonQuery())

Catch ex As SqlException
" Display error
Console.WriteLine("Error: " & ex.ToString())
Finally
" Close Connection
thisConnection.Close()
Console.WriteLine("Connection Closed")
End Try
End Sub
End Class

</source>

==Execute NonQuery To Create Table and report how many rows affected==

<source lang="vbnet">
Imports System
Imports System.Data
Imports System.Data.SqlClient
public class MainClass
Shared Sub Main()
Dim thisConnection As New SqlConnection("server=(local)\SQLEXPRESS;" & _
"integrated security=sspi;database=tempdb")
"Create Command object
Dim nonqueryCommand As SqlCommand = thisConnection.CreateCommand()
Try
" Open Connection
thisConnection.Open()
Console.WriteLine("Connection Opened")

" Execute NonQuery To Create Table
nonqueryCommand.rumandText = "CREATE TABLE MyTable (ID integer)"
Console.WriteLine("Executing {0}", nonqueryCommand.rumandText)
Console.WriteLine("Number of rows affected : {0}", nonqueryCommand.ExecuteNonQuery())
" Execute NonQuery To Drop Table
nonqueryCommand.rumandText = "DROP TABLE MyTable"
Console.WriteLine("Executing {0}", nonqueryCommand.rumandText)
Console.WriteLine("Number of rows affected : {0}", nonqueryCommand.ExecuteNonQuery())
Catch ex As SqlException
" Display error
Console.WriteLine("Error: " & ex.ToString())
Finally
" Close Connection
thisConnection.Close()
Console.WriteLine("Connection Closed")
End Try
End Sub
End Class

</source>

← Предыдущая	Версия 16:40, 26 мая 2010
(нет различий)

VB.Net/Database ADO.net/SqlCommand Create - История изменений

в 16:40, 26 мая 2010

Admin: 1 версия