問題描述

我正在嘗試在我的 vb.net 應用程序中實現 sqldependency:

I'm trying to implement sqldependency in my vb.net application as per:

http://www.dreamincode.net/forums/topic/156991-using-sqldependency-to-monitor-sql-database-changes/

我在調用代碼時遇到問題，當收到通知時，應用程序鎖定且沒有錯誤.(當通過委托調用 MyOnChanged 時)

I'm having problems with the involking code, when a notification is recieved the application locks up with no errors. (When MyOnChanged is called via the deligate)

我是否在 C# > VB.net 轉換中犯了錯誤?

Have I made a mistake in my C# > VB.net conversion?

  Private Sub GetNames()
    Dim connectionString As String = "String..."
    ListView1.Items.Clear()

    SqlDependency.[Stop](connectionString)
    SqlDependency.Start(connectionString)

    Using cn As New SqlConnection(connectionString)
        Using cmd As SqlCommand = cn.CreateCommand()
            cmd.CommandType = CommandType.Text
            cmd.CommandText = "SELECT [finish_time], [file_name] FROM dbo.[log_table];"

            cmd.Notification = Nothing

            Dim dep As New SqlDependency(cmd)

            AddHandler dep.OnChange, New OnChangeEventHandler(AddressOf MyOnChanged)

            cn.Open()

            Using dr As SqlDataReader = cmd.ExecuteReader()
                While dr.Read()

                    Dim ls As New ListViewItem(dr.Item("finish_time").ToString.Trim())
                    ls.SubItems.Add(dr.Item("file_name").ToString.Trim())
                    ListView1.Items.Add(ls)

                End While
            End Using
        End Using
    End Using
End Sub




Private Sub MyOnChanged(ByVal sender As Object, ByVal e As SqlNotificationEventArgs)
    If ListView1.InvokeRequired Then
        ListView1.Invoke(New MethodInvoker(AddressOf GetNames))
    Else
        GetNames()
    End If
    Dim dep As SqlDependency = TryCast(sender, SqlDependency)
    AddHandler dep.OnChange, New OnChangeEventHandler(AddressOf MyOnChanged)
End Sub

推薦答案

按照 Merlyn 的建議，我使用 .NET 反射器來計算正確的 .net 轉換:

As Merlyn recommended, I used .NET reflector to work out the proper .net conversion:

Private Sub MyOnChanged(ByVal sender As Object, ByVal e As SqlNotificationEventArgs)
    If MyBase.InvokeRequired Then
        Me.LVFTPXfers.BeginInvoke(New MethodInvoker(AddressOf Me.GetNames))
    Else
        Me.GetNames()
    End If
    Dim dependency As SqlDependency = TryCast(sender, SqlDependency)
    RemoveHandler dependency.OnChange, New OnChangeEventHandler(AddressOf Me.MyOnChanged)
End Sub

這篇關于C# VB.net 語法轉換建議的文章就介紹到這了，希望我們推薦的答案對大家有所幫助，也希望大家多多支持html5模板網！