SQL Server version i VB.NET

Eksempel:

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

Namespace E
    Public Class Program
        Private Shared Sub Disp(sender As Object, evtargs As SqlInfoMessageEventArgs)
            For Each err As SqlError In evtargs.Errors
                Console.WriteLine("Message: " & err.Message)
            Next
        End Sub
        Public Shared Sub Main(args As String())
            Using con As New SqlConnection("Server=ARNEPC3\SQLEXPRESS2008;Integrated Security=true;Database=Test")
                con.Open()
                Dim cmd As New SqlCommand()
                cmd.CommandText = "sp_dbcmptlevel"
                cmd.CommandType = CommandType.StoredProcedure
                cmd.Connection = con
                Dim p As New SqlParameter()
                p.ParameterName = "@dbname"
                p.DbType = DbType.[String]
                p.Size = 128
                p.Direction = ParameterDirection.Input
                p.Value = "Test"
                cmd.Parameters.Add(p)
                AddHandler con.InfoMessage, AddressOf Disp
                Dim rdr As SqlDataReader = cmd.ExecuteReader()
                While rdr.Read()
                    Console.WriteLine("result set: " & Convert.ToString(rdr(0)))
                End While
                rdr.Close()
            End Using
            Console.ReadKey()
        End Sub
    End Class
End Namespace

Tricket er at den kommer ud som message og ikke som result set.

Hvordan er det så lige at jeg får startet sub'en, eller får trukket data ud? Det kan jeg ikke lige gennemskue.

Alstå, hvis jeg f.eks. har en knap i en form, og vil have resultatet i en message box?

AddHandler con.InfoMessage, AddressOf Disp

goer at Disp bliver kaldt med messages fra SQLServer.

Hvis det er win form skal:

Console.WriteLine("Message: " & err.Message)

erstattes med noget som opdaterer en GUI kontrol.

Jeg er rimeligt ny i VB.NET, så jeg skal have lidt mere hjælp. Her er dine sub's (med en ændring i Disp), og en button_1.click - hvordan skal det kobles sammen så jeg kører det når jeg klikke på knappen?

---------------------------------------------------------------

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

    End Sub

    Private Shared Sub Disp(ByVal sender As Object, ByVal evtargs As SqlInfoMessageEventArgs)
        For Each err As SqlError In evtargs.Errors
            MessageBox.Show("Message: " & err.Message)
            'Console.WriteLine("Message: " & err.Message)
        Next
    End Sub


    Public Shared Sub Main(ByVal args As String())
        Using con As New SqlConnection("Server=.\SQL2008;Integrated Security=true;Database=taclogdata")
            con.Open()
            Dim cmd As New SqlCommand()
            cmd.CommandText = "sp_dbcmptlevel"
            cmd.CommandType = CommandType.StoredProcedure
            cmd.Connection = con
            Dim p As New SqlParameter()
            p.ParameterName = "@dbname"
            p.DbType = DbType.[String]
            p.Size = 128
            p.Direction = ParameterDirection.Input
            p.Value = "Test"
            cmd.Parameters.Add(p)
            AddHandler con.InfoMessage, AddressOf Disp
            Dim rdr As SqlDataReader = cmd.ExecuteReader()
            While rdr.Read()
                Console.WriteLine("result set: " & Convert.ToString(rdr(0)))
            End While
            rdr.Close()
        End Using
        Console.ReadKey()
    End Sub

Har det. Button skal starte den nederste, der så kalder Disp.

Smid et svar.

ok