Retornar resultado da busca
11/11/2008
0
tenho esse código, que realiza uma busca na tabela MSACCESS, está funcionando
Agora eu pergunto, como faço pra retornar o valor dessa busca? Fiz a verificação, e está trazendo resultado...
VS2008 Express com MSAccess
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
Facc
Curtir tópico
+ 0
Responder
Posts
12/11/2008
Guilhermehao
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
Responder
Clique aqui para fazer login e interagir na Comunidade :)