SO WIRD'S GEMACHT: Bearbeiten mehrerer Ergebnisse mit dem DataReader in Visual Basic .NET

Zum Anfang

Beschreibung des Verfahrens

• Recordset
• Anzahl der Datensätze, die durch eine Aktionsabfrage (wie INSERT, UPDATE, DELETE oder SELECT INTO) geändert werden.
• Informations- oder Warnmeldung
• Fehlermeldung
• Rückgabewerte und Ausgabeparameter von gespeicherten Prozeduren

Zum Anfang

Voraussetzungen

• Microsoft Windows 2000 Professional, Windows 2000 Server, Windows 2000 Advanced Server oder Windows NT 4.0 Server
• Microsoft Visual Studio .NET
• Microsoft SQL Server 7.0 oder höher

• Visual Studio .NET
• ADO.NET-Grundlagen und -Syntax

Zum Anfang

Erstellen des Projekts und Hinzufügen des Codes

1. Fügen Sie die folgenden Anweisungen in den SQL Query Analyzer oder das ISQL-Hilfsprogramm ein:

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

2. Öffnen Sie Visual Studio .NET.
3. Erstellen Sie ein neues Visual Basic Windows-Anwendungsprojekt.
4. Stellen Sie sicher, dass Ihr Projekt eine Referenz auf den System.Data-Namespace enthält. Wenn dies nicht der Fall ist, fügen Sie eine Referenz zu diesem Namespace hinzu.
5. Setzen Sie eine Command-Schaltfläche auf Form1. Ändern Sie die Eigenschaft Name der Schaltfläche in btnTest und die Eigenschaft Text in Test.
6. Wenden Sie die Anweisung Imports auf die Namespaces System, System.Data.OleDb und System.Data.SqlClient an, damit Sie später in Ihrem Code keine Deklarationen in diesen Namespaces bestimmen müssen. Fügen Sie den folgenden Code zu dem Abschnitt Allgemeine Deklarationen von Form1 hinzu:

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

7. Fügen Sie den folgenden Code nach dem Bereich "Vom Windows Form-Designer generierter Code" in das Codefenster ein:

       Private Sub btnTest_Click(ByVal sender As System.Object, _
       ByVal e As System.EventArgs) Handles btnTest.Click
           Dim myConnString As String = _
                   "User ID=sa;Password=sa;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. Ändern Sie die Verbindungszeichenfolge (myConnString) entsprechend Ihrer Umgebung.
9. Speichern Sie das Projekt. Klicken Sie im Menü Debuggen auf Starten und führen Sie das Projekt aus.
10. Klicken Sie auf Testen. Beachten Sie, dass die Meldungsfelder die von der gespeicherten Prozedur zurückgegebenen Daten anzeigen.

Zum Anfang