[Resolvido] result set com mySQL

[Druid 0]

Pessoal sou noobie aqui no forum e também em ASP .NET, gostaria de saber como tratar um resultado de uma SQL que deve retornar o número de registros de uma select, veja exemplo do código abaixo (estou perdido aqui porque venho do Delphi e o ambiente GUI do Visual Studio 2008 é bem diferente, mas aos poucos vou me adaptando):

 

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim Codigo, TotProd As Integer

Dim strSQL, strSQL1, strSQL2, Staff, rs, rsc As String

Dim Test As Boolean

'Dim rsc As Collection

 

Test = Inicializa.IncluiColuna

 

IncluiColunas()

 

Codigo = Val(Me.TextBox1.Text)

 

strSQL2 = "SELECT Count(Pro_codigo) FROM produto2 WHERE (Pro_codigo ='" & Codigo & "'" & ")"

 

Da2 = New MySqlDataAdapter(strSQL2, conexaoMySQL)

Ds2 = New Data.DataSet

cmd2.Connection = conexaoMySQL

cmd2.CommandText = strSQL2.ToString

 

Da2.Fill(Ds2)

 

dr = Ds2.Tables(0).Rows(0)

 

'TotProd = CInt(New ListItem(Ds2.Tables(0).Rows.ToString()))

 

Staff = Ds2.Tables(0).Rows(0).ToString()

 

rsc = Ds2.Tables(0).Rows.Item(0).ToString

 

Dim Resultado As ListItem

 

rs = Ds2.Tables(0).Rows.ToString()

 

Staff = rs(0).ToString()

 

'MsgBox(MsgBoxStyle.OkOnly, Cm.CommandText)

 

strSQL = "SELECT Pro_codigo, Pro_descricao, Pro_qtd, Pro_valor, Pro_status FROM produto2 WHERE (Pro_codigo ='" & Codigo & "'" & ")"

 

Da = New MySqlDataAdapter(strSQL, conexaoMySQL)

Ds = New Data.DataSet

 

Cm.Connection = conexaoMySQL

Cm.CommandText = strSQL.ToString

 

'MsgBox(MsgBoxStyle.OkOnly, Cm.CommandText)

 

Da.Fill(Ds)

GridView1.DataSource = Ds

GridView1.DataBind()

 

GridView1.Visible = True

 

strSQL1 = "SELECT v.Ven_codigo, v.Ven_produto, v.Ven_qtd, v.Ven_data, v.Ven_valor, v.Ven_status FROM vendas2 v JOIN produto2 p ON (p.Pro_codigo = v.Ven_produto) WHERE (v.Ven_produto ='" & Codigo & "'" & ")"

SqlDataSource2.SelectCommand() = strSQL1

GridView2.Visible = True

 

End Sub

 

Como que eu faço para pegar o valor desta select: strSQL2 = "SELECT Count(Pro_codigo) FROM produto2 WHERE (Pro_codigo ='" & Codigo & "'" & ")"?

 

Agradeço antecipadamente a ajuda,

 

DruidCtba

[Mário Monteiro 179]

da mesma forma que pega qualquer outro valor

 

Valor = NOME_DO_RECORDSET("NOME_DO_CAMPO")

 

No seu caso especifico como se trata de uma contagem pode usar um ALIAS para facilitar

 

Count(Pro_codigo) AS Total

 

E recupera

 

Valor = NOME_DO_RECORDSET("Total")

[Druid 0]

Ok amigo, muito obrigado, mas o que seria no meu caso o tal "NOME_DO_RECORDSET"?

 

OK descobri :)

 

strSQL2 = "SELECT Count(Pro_codigo) as TotReg FROM produto2 WHERE (Pro_codigo ='" & Codigo & "'" & ")"

 

TotProd = Ds2.Tables(0).Rows(0)("TotReg")

 

Valeu, muito obrigado.

[Mário Monteiro 179]

que bom que resolveu

 

Parabéns