Qermezkon
چهارشنبه 25 مهر 1386, 07:04 صبح
من کد زیر رو نوشتم اما بعد از تغییر اطلاعات در جدول هیچ پیغامی به می نمی ده , برنامه کار نمی کنه
Public Class Form1
Private SM As String = ""
Private DT As New DataTable
Private SQLCON As SqlConnection = Nothing
Private SQLCMD As SqlCommand = Nothing
Private Delegate Sub UIDelegate()
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
SqlDependency.Stop("Data Source=172.17.203.248;persist security info=False;uid=pcstock2005;pwd=pcstock2005;Initial Catalog=PCStock2005;")
SqlDependency.Start("Data Source=172.17.203.248;persist security info=False;uid=pcstock2005;pwd=pcstock2005;Initial Catalog=PCStock2005;")
If IsNothing(SQLCON) Then
SQLCON = New SqlConnection("Data Source=172.17.203.248;uid=pcstock2005;pwd=pcstock2 005;Initial Catalog=PCStock2005;")
End If
If IsNothing(SQLCMD) Then
SQLCMD = New SqlCommand("Select * From WorkOrder", SQLCON)
End If
GetData()
End Sub
Public Sub GetData()
DT.Clear()
SQLCMD.Notification = Nothing
Dim Dependency As New SqlDependency(SQLCMD)
Dim SQLDA As New SqlDataAdapter("Select * From WorkOrder", SQLCON)
AddHandler Dependency.OnChange, AddressOf Dependency_OnChange
SQLDA.Fill(DT)
End Sub
Public Sub Dependency_OnChange(ByVal Sender As Object, ByVal e As SqlNotificationEventArgs)
Dim D As New UIDelegate(AddressOf RefreshData)
Dim Dependency As SqlDependency = CType(Sender, SqlDependency)
D.Invoke()
RemoveHandler Dependency.OnChange, AddressOf Dependency_OnChange
MsgBox("Change")
End Sub
Public Sub RefreshData()
Me.Text = "Database had some changes and are applied in the Grid"
GetData()
End Sub
Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
SqlDependency.Stop("Data Source=172.17.203.248;uid=pcstock2005;pwd=pcstock2 005;Initial Catalog=PCStock2005;")
If SQLCON.State = ConnectionState.Open Then
SQLCON.Close()
End If
End Sub
End Class
Public Class Form1
Private SM As String = ""
Private DT As New DataTable
Private SQLCON As SqlConnection = Nothing
Private SQLCMD As SqlCommand = Nothing
Private Delegate Sub UIDelegate()
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
SqlDependency.Stop("Data Source=172.17.203.248;persist security info=False;uid=pcstock2005;pwd=pcstock2005;Initial Catalog=PCStock2005;")
SqlDependency.Start("Data Source=172.17.203.248;persist security info=False;uid=pcstock2005;pwd=pcstock2005;Initial Catalog=PCStock2005;")
If IsNothing(SQLCON) Then
SQLCON = New SqlConnection("Data Source=172.17.203.248;uid=pcstock2005;pwd=pcstock2 005;Initial Catalog=PCStock2005;")
End If
If IsNothing(SQLCMD) Then
SQLCMD = New SqlCommand("Select * From WorkOrder", SQLCON)
End If
GetData()
End Sub
Public Sub GetData()
DT.Clear()
SQLCMD.Notification = Nothing
Dim Dependency As New SqlDependency(SQLCMD)
Dim SQLDA As New SqlDataAdapter("Select * From WorkOrder", SQLCON)
AddHandler Dependency.OnChange, AddressOf Dependency_OnChange
SQLDA.Fill(DT)
End Sub
Public Sub Dependency_OnChange(ByVal Sender As Object, ByVal e As SqlNotificationEventArgs)
Dim D As New UIDelegate(AddressOf RefreshData)
Dim Dependency As SqlDependency = CType(Sender, SqlDependency)
D.Invoke()
RemoveHandler Dependency.OnChange, AddressOf Dependency_OnChange
MsgBox("Change")
End Sub
Public Sub RefreshData()
Me.Text = "Database had some changes and are applied in the Grid"
GetData()
End Sub
Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
SqlDependency.Stop("Data Source=172.17.203.248;uid=pcstock2005;pwd=pcstock2 005;Initial Catalog=PCStock2005;")
If SQLCON.State = ConnectionState.Open Then
SQLCON.Close()
End If
End Sub
End Class