Já osobně bych nechával otevřené connection:
Try
connection.Open()
Dim cmd As New SqlCommand("Nějaký select", connection)
Label1.text = cmd.ExecuteScalar
Dim cmd2 As New SqlCommand("Nějaký select", connection)
Label2.text = cmd2.ExecuteScalar
Finally
connection.Close()
End Try
Případně i Command, pokud příkazů voláte hodně podobných (třeba s identickými parametry):
Try
connection.Open()
Dim cmd As New SqlCommand("Nějaký select", connection)
Label1.text = cmd.ExecuteScalar
cmd.CommandText = "Nějaký select"
Label2.text = cmd.ExecuteScalar
cmd.CommandText = "Nějaký select"
Label3.text = cmd.ExecuteScalar
cmd.CommandText = "Nějaký select"
Label4.text = cmd.ExecuteScalar
Finally
connection.Close()
End Try
|