ASSOCIANDO VALOR DE UM CAMPO EM UMA LABE

JUNIORZEH 08/12/2011 15:09:38
#390855
boa tarde amigos,

estou com a seguinte duvida.

criei a conexão com o banco e o select

Dim conn As SqlConnection = New SqlConnection(My.Settings.SistemaConnectionString)
Dim comand = New SqlCommand([Ô]select SUM (total_prod) as total from itens_os where cod_os = @cod_os[Ô])

testet o select no sql server e o mesmo esta correto, a duvida e a seguinte

como atribuo o valor que o select me retorna a um textbox ou em uma label?

criei o mesmo select no tabeladpter.

Me.itens_osTableAdapter.FillBy5(SistemaDataSet.produto, cod_os.Text)

sera que alguem pode me ajudar?
JUNIORZEH 08/12/2011 15:21:26
#390856
tentei da seguinte maneira..

TextBox18.Text = (Itens_osBindingSource.Current([Ô]total[Ô]))

porem dah um erro dizendo que o coluna total nao existe no tabela itens_os
KERPLUNK 08/12/2011 19:06:42
#390916 Resposta escolhida
Dim conn As SqlConnection = New SqlConnection(My.Settings.SistemaConnectionString)
Dim comand = New SqlCommand([Ô]select SUM (total_prod) as total from itens_os where cod_os = @cod_os[Ô])

Vc executou o comando retornando um DataReader?
Dim dr = comand.ExecuteReader()
dr.Read()

Só daí pode pegar o valor e atribuir à uma label:
TextBox18.Text = dr[0].ToString()
JUNIORZEH 09/12/2011 14:46:09
#390986
KERPLUNK muito obrigado, ajudou muito....

consegui fazer dessa maneira que vc informou.

depois de entender a [Ô]logica[Ô] dos comando

conseguier fazer dessa meneira tambem, e achei um pouco mais simples

Dim v_total As String = SistemaDataSet.Tables(2).Compute([Ô]SUM (total_prod)[Ô], String.Empty).ToString

TextBox18.Text = v_total
Tópico encerrado , respostas não são mais permitidas
Voltar