Array
(
)

Retornar resultado da busca

Facc
   - 11 nov 2008

tenho esse código, que realiza uma busca na tabela MSACCESS, está funcionando
#Código

        Dim conn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:/ASPNET/databsp.mdb")
        Dim cmd As New OleDb.OleDbCommand
        Dim strSQL As String = "SELECT PRODUTO_ID, DESCRICAO_REDUZIDA, DESCRICAO_COMPLETA FROM PRODUTOS WHERE (PRODUTO_ID = @Produto)"


        cmd.Connection = conn
        cmd.CommandText = strSQL
        cmd.Parameters.Clear()
        cmd.Parameters.Add(New OleDb.OleDbParameter("@Produto", edtCodProduto.Text))
        conn.Open()

        lblDescProd.Text = cmd.ExecuteReader.RecordsAffected

        conn.Close()


Agora eu pergunto, como faço pra retornar o valor dessa busca? Fiz a verificação, e está trazendo resultado...

VS2008 Express com MSAccess

Guilhermehao
   - 12 nov 2008

#Código

     Dim conn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:/ASPNET/databsp.mdb") 
        Dim cmd As New OleDb.OleDbCommand 
        Dim strSQL As String = "SELECT PRODUTO_ID, DESCRICAO_REDUZIDA, DESCRICAO_COMPLETA FROM PRODUTOS WHERE (PRODUTO_ID = @Produto)" 

        cmd.Connection = conn 
        cmd.CommandText = strSQL 
        cmd.Parameters.Clear() 
        cmd.Parameters.Add(New OleDb.OleDbParameter("@Produto", edtCodProduto.Text)) 
        conn.Open() 

        lblDescProd.Text = cmd.ExecuteReader.RecordsAffected 

 [b]   Dim Dtb As DataTable
        Dim Adp As New OleDb.OleDbDataAdapter(cmd)
        Adp.Fill(Dtb)[/b]

        conn.Close()


Ai com esse adapter voce joga os dados para DataTable.
Aqui na nossa empresa fazemos desse jeito..
Espero ter ajudado..
Abrass