主题：客户端的表增加一条数据后，如何实时反应到服务端？

客户端与服务端加载同一个表，在客户端的该表中增加一条数据后，如何实时反应到服务端？我现在用定时器，5分钟刷新一下该表，但这样做实时性太差，有什么思路是可以实时通知的？

学习了一下openQQ的帮助，非要登录服务端及客户端的两个操作者互为好友才能收发消息吗？  我不要上线通知行不行？因为服务端是为了收到客户端的提醒，其实理论上在不在线客户端都要发。

要用客户端向服务端发通知 

QQServer : 

如果用udpclient进行消息收发，但调试程序时，服务端和客户端都在一台电脑上，  都用52178的端口，会报 每个套接字只能使用一次的错误，怎么办？

If UDPClients.Count = 0 Then

    UDPClients.Add("UDP1",new UDPClient("UDP1") )

End If

UDPClients("UDP1").IP = "127.0.0.1"     '这里是指向自己

UDPClients("UDP1").Port = "52178"

UDPClients("UDP1").Start()

2 仍然是服务端

菜单的“管理项目”功能区，单击“网络监视器”，设置UDPClient的ReceivedMessage事件代码 （用于解析收到的消息）   消息格式为  %E|ID号%

Dim msg As String = e.Message

Dim ret As String = "!false"

If e.Message.StartsWith("%") AndAlso e.Message.EndsWith("%")     '假定收到的信息头尾都是"%"

    msg  = msg.Trim("%")    '去掉收到的消息中头尾的%

    Dim prefix As String = msg.SubString(0,1)

    Select Case prefix

        Case "E" '查询        'E表示紧急   emergent

            msg = msg.TrimStart("E","|")     '把开头的E和|都删除

            Dim dr As DataRow = DataTables("自助报障记录表").Find("ID = '" & msg & "'")

            If dr IsNot Nothing Then

                 '调用语音播放ID号的内容

                end if                 

        'Case "U" '留着区分非紧急消息

           case else

     end select 

    ' e.ReturnValue = ret     '用于向发送端返回处理后的结果，此场景下不需要

end if

  

3.客户端  

如果程序编写时客户端与服务端都在一台电脑上，都用52178端口，该如何设置才不会冲突？

急求