tenho este code

ligacao_pedido = "data source=(local);initial catalog=Pedidos;" & _
"integrated security=SSPI;persist security info=True"

strsql_pedido = " SELECT [Stock Produto] FROM Tab_produtos " & _
"where Tab_produtos.[Nome Produto] = '" & nome_produto & "'"

sda_pedido = New SqlDataAdapter(strsql_pedido, ligacao_pedido)
ds_pedido = New DataSet()
sda_pedido.Fill(ds_pedido)
sda_pedido.Dispose()


quero guardar o resultado do select numa variavel

mas não sei como

agradecia urgente uma ajuda

alguns exemplos:

link 1 (http://www.sitepoint.com/article/dataset-datareader)
link 2 (http://samples.gotdotnet.com/quickstart/howto/doc/adoplus/GetDataFromDB.aspx)

muito obrigada, o link 2 ajudou bastantes

mas dá um peq prob, so capta o stock para os produtos do iten 1,2 3 e da grid, o do iten1 esqueceu-se lol

aqui vai o meu code


__________________________________________________ _____________________________

Protected Sub GridView_pedidos_RowCommand(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCommandEventArgs ) Handles GridView_pedidos.RowCommand

'variaveis que guardam valores de sessão de utilizador

Dim utilizador As String = Session("Login") ' guarda o nome de utilizador em sessão
Dim dia As String = Session("HorarioLogin") ' guarda o dia em que o utilizador se logou

' variaveis do comando do botão

If (e.CommandName = "BotaoPedir") Then
Dim txt As String = ""
Dim auxHiddenArgument As String = ""
Dim nome_produto As String

For Each row As GridViewRow In GridView_pedidos.Rows
auxHiddenArgument = CType(row.FindControl("auxHiddenArgument"), HiddenField).Value
If (e.CommandArgument = auxHiddenArgument) Then 'encontrou o botão k fez o pedido

' capta o valor da caixa de texto do botão clicado
txt = CType(row.FindControl("Txt_Quantidade"), TextBox).Text
' capta o nome do produto do botão clicado
nome_produto = row.Cells(1).Text

' Me.Lbl_teste.Text = "o " & utilizador & " pediu " & txt & " unidades de " & _
' nome_produto & " no dia " & dia


'************************************************* ***************
'pesquiza o stock do produto
'************************************************* ***************

' ligação a Bd

ligacao_pedido = "data source=(local);initial catalog=Pedidos;" & _
"integrated security=SSPI;persist security info=True"


Dim Select_stock As String = " SELECT [Stock Produto] FROM Tab_produtos" & _
" where Tab_produtos.[Nome Produto] = '" & nome_produto & "'"

Dim stock_SqlDataAdapter As SqlDataAdapter = New SqlDataAdapter(Select_stock, ligacao_pedido)


Dim stock_ds As DataSet = New DataSet

stock_SqlDataAdapter.Fill(stock_ds, "Tab_produtos")

Dim stock_DataRow As DataRow

For Each stock_DataRow In stock_ds.Tables("Tab_produtos").Rows
stock_prod = Val(stock_DataRow("Stock Produto").ToString)
Next

Me.Lbl_teste.Text = "o produto " & nome_produto & "tem - >> " & stock_prod & " unidades em stock"

Exit For 'forçar saida do ciclo
End If
Next
end if



agradecia uma ajuda para este prob