amirsajjadi
یک شنبه 09 فروردین 1388, 18:48 عصر
با سلام
من با کلاس های VB.net به بانک sql کانکت میشم. حالا برای close کردن کانکشن باید چیکار کنم ؟
Public Function MySelect(ByVal ole As String, Optional ByVal connectionString As String = "") As Data.DataTable
If connectionString = "" Then connectionString = "Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Bank;Data Source=(local)\SQLEXPRESS"
Dim dt As New Data.DataTable
Try
Dim cmd As New Data.SqlClient.SqlCommand
Dim con As New Data.SqlClient.SqlConnection
Dim da As New Data.SqlClient.SqlDataAdapter(cmd)
con.ConnectionString = connectionString
cmd.Connection = con
con.Open()
cmd.CommandText = ole
da.Fill(dt)
con.Close()
Catch ex As Exception
'ERROR
End Try
Return dt
End Function
با تشکر
من با کلاس های VB.net به بانک sql کانکت میشم. حالا برای close کردن کانکشن باید چیکار کنم ؟
Public Function MySelect(ByVal ole As String, Optional ByVal connectionString As String = "") As Data.DataTable
If connectionString = "" Then connectionString = "Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Bank;Data Source=(local)\SQLEXPRESS"
Dim dt As New Data.DataTable
Try
Dim cmd As New Data.SqlClient.SqlCommand
Dim con As New Data.SqlClient.SqlConnection
Dim da As New Data.SqlClient.SqlDataAdapter(cmd)
con.ConnectionString = connectionString
cmd.Connection = con
con.Open()
cmd.CommandText = ole
da.Fill(dt)
con.Close()
Catch ex As Exception
'ERROR
End Try
Return dt
End Function
با تشکر