Otimizar consulta SQL

[Leonardo_Augusto]

Olá tenho as duas SUB() abaixo, mas como a finalidade das duas é similar, gostaria de uma dica para otimizar, talvez reunir tudo em uma consulta apenas

Sub Valores()
 Dim cmd As New SqlCommand("select * from Numeros", Conexao.Conectar)
 Dim dr As SqlDataReader
 Try
	 dr = cmd.ExecuteReader(System.Data.CommandBehavior.CloseConnection)
	 While dr.Read()
		 Label1.Text = dr("Artigos")
		 Label2.Text = dr("Sistemas")
		 Label4.Text = dr("Projetos")

	 End While
 Catch ex As Exception
	 dr = Nothing
	 Throw ex
 Finally
 End Try
End Sub
Sub ContaUser()
 Dim cmd As New SqlCommand("select count(*) AS UserId from Users", Conexao.Conectar)
 Dim dr As SqlDataReader
 Try
	 dr = cmd.ExecuteReader(System.Data.CommandBehavior.CloseConnection)
	 While dr.Read()
		 Label3.Text = dr("UserId")
	 End While
 Catch ex As Exception
	 dr = Nothing
	 Throw ex
 Finally
 End Try
End Sub

Edited April 8, 2015 at 05:20 PM by apocsantos
geshi

[nelsonr]

Boas,

então porque não juntas as duas numa só? Fazes uma operação e de seguida a outra.

Não te esqueças de fechar os readers.

Se precisas de ler apenas um registo não uses o While, faz apenas If (o while vai passar por todas os resultados do comando)

[Leonardo_Augusto]

Obrigado ,ótima dica!