Como manipular vários resultados usando o DataReader no Visual Basic .NET

Este artigo contém uma função genérica que você pode usar para processar vários conjuntos de registros e outras mensagens que são retornadas de procedimentos armazenados ou a execução de instruções de SQL em lote.

Descrição da técnica

ActiveX Data Objects (ADO) pode receber cinco tipos diferentes de dados do servidor:

• Recordset
• Número de registros que são modificadas por uma consulta ação (como INSERT, UPDATE, DELETE ou SELECT INTO)
• Aviso ou mensagem informativa
• Mensagem de erro
• Valores de retorno do procedimento armazenado e parâmetros de saída

Quando você lê os resultados de um instrução SQL em lote, você pode usar o método NextResult para posicionar o DataReader no resultado próximo no conjunto de resultados.

Requisitos

A lista a seguir descreve o hardware recomendado, software, infra-estrutura de rede e service packs que você precisa:

• Microsoft Windows 2000 Professional, Windows 2000 Server, Windows 2000 Advanced Server ou Windows NT 4.0 Server
• Microsoft Visual Studio .NET
• Microsoft SQL Server 7.0 ou posterior

Este artigo pressupõe que você esteja familiarizado com os seguintes tópicos:

• O Visual Studio .NET
• Conceitos básicos do ADO.NET e sintaxe

Criar projeto e adicionar código

Este código de exemplo usa a tabela autores do banco de dados de exemplo Pubs.

1. Cole as instruções a seguir no SQL Query Analyzer ferramenta ou o utilitário ISQL:

   CREATE PROC MyProc
   AS
       SELECT * FROM Authors
       SELECT * FROM Authors WHERE State = 'CA'
   GO 
   					

2. Abra o Visual Studio .NET.
3. Criar um novo Visual Basic Windows Application projeto.
4. Verifique se seu projeto contém uma referência ao namespace System.Data e adicione uma referência a este espaço para nome se não.
5. Coloque um botão de comando no Form1. Altere a propriedade nome do botão para btnTest e altere a propriedade Text para teste .
6. Use a declaração Imports nos namespaces de sistema , System.Data.OLEDB e System.Data.SqlClient para que não é necessário para qualificar declarações esses namespaces posteriormente no seu código. Adicione o seguinte código à seção General Declarations do Form1:

   Imports System
   Imports System.Data.OleDb
   Imports System.Data.SqlClient
   					

7. Adicione o seguinte código após a região "Windows Form Designer gerou código" na janela código.
   
   Observação <username>Você deve alterar senha e identificação do usuário <nomedousuário> = < senha de alta segurança > para os valores corretos antes de executar esse código. Certifique-se que a ID de usuário tenha as permissões apropriadas para executar esta operação no banco de dados.

       Private Sub btnTest_Click(ByVal sender As System.Object, _
       ByVal e As System.EventArgs) Handles btnTest.Click
           Dim myConnString As String = _
                   "User ID=<username>;Password=<strong password>;Initial Catalog=pubs;Data Source=myServer"
           Dim myConnection As New SqlConnection(myConnString)
           Dim myCommand As New SqlCommand()
           Dim myReader As SqlDataReader
   
           myCommand.CommandType = CommandType.StoredProcedure
           myCommand.Connection = myConnection
           myCommand.CommandText = "MyProc"
           Dim RecordCount As Integer
   
           Try
               myConnection.Open()
               myReader = myCommand.ExecuteReader
               While myReader.Read()
                   'Write logic to process data for the first result.
                   RecordCount = RecordCount + 1
               End While
               MessageBox.Show("Total number of Authors: " & RecordCount.ToString)
   
               myReader.NextResult()
               RecordCount = 0
   
               While myReader.Read()
                   'Write logic to process data for the second result.
                   RecordCount = RecordCount + 1
               End While
                MessageBox.Show("Authors from California: " & RecordCount.ToString)
           Catch ex As Exception
               MessageBox.Show(ex.ToString())
           Finally
               myConnection.Close()
           End Try
       End Sub
   					

8. Modificar a seqüência de conexão ( myConnString ) conforme apropriado para seu ambiente.
9. Salve seu projeto. No menu Debug , clique em Iniciar para executar seu projeto.
10. Clique em Test . Observe que as caixas de mensagens exibem os dados que o procedimento armazenado retorna.

REFERÊNCIAS

Para obter informações adicionais sobre como chamar procedimentos armazenados, clique no número abaixo para ler o artigo na Base de dados de Conhecimento da Microsoft: Para obter informações adicionais sobre tratamento de erros, clique no número abaixo para ler o artigo na Base de dados de Conhecimento da Microsoft: Para obter informações adicionais sobre parâmetros e procedimentos armazenados, clique no número abaixo para ler o artigo na Base de dados de Conhecimento da Microsoft: Para obter mais informações sobre objetos ADO.NET e a sintaxe, consulte o seguinte Microsoft .NET Framework Software Development Kit (SDK) documentação: