C# VB.net 语法转换建议答案

【问题标题】：C# VB.net syntax conversion adviceC# VB.net 语法转换建议
【发布时间】：2023-03-16 07:01:01
【问题描述】：

我正在尝试按照以下方式在我的 vb.net 应用程序中实现 sqldependency：

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

我在调用代码时遇到问题，当收到通知时，应用程序会锁定且没有错误。（当通过代理调用 MyOnChanged 时）

我的 C# > VB.net 转换是否出错？

  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

【问题讨论】：

您可以尝试的一个技巧是用 C# 对其进行编码，对其进行编译，然后查看 .NET 反射器中的代码（在网络上搜索此工具）。这将允许您获取任何 .NET 代码，并以任何其他语言（例如 VB.Net）查看它。
另外，在这种情况下，学习使用调试器非常有用。

标签： sql-server vb.net

【解决方案1】：

按照 Merlyn 的建议，我使用 .NET 反射器来进行正确的 .net 转换：

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

【讨论】：

【解决方案2】：

您可能想尝试 SharpDevelop 中的代码转换工具用于 Mono 项目：

SharpDevelop Wiki

"... 包括... C#和VB.NET之间的代码转换 ..."

_{（来源：softpedia.com）}

【讨论】：