C# VB.net conseils de conversion de syntaxe

Question

Je suis en train de mettre en œuvre SqlDependency dans mon application vb.net selon:

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

Je vais avoir des problèmes avec le code involking, lorsqu'une notification est reçu l'application se bloque sans erreur. (Lorsque MyOnChanged est appelé via le deligate)

Est-ce que j'ai fait une erreur dans ma conversion 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 

Answer 1

Comme Merlyn recommandé, j'utiliser réflecteur .NET pour élaborer la bonne conversion .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 

Answer 2

Vous voudrez peut-être essayer l'outil de conversion de code en SharpDevelop pour le projet Mono:

• SharpDevelop Wiki

» ... Il inc Ludes caractéristiques comme ... conversion de code entre C# et VB.NET ... »

alt text http://www.softpedia.com/screenshots/SharpDevelop_5.png