我在A机器上做了VB+ACCESS管理系统,ACCESS数据库存放图片路径(如C:\1.jpg),图片保存在文件夹里(如C:\),有新图片时管理系统会自动存储图片并把路径写入数据库。
当A机器数据库有图片更新时,如何让局域网(路由器链接)内的B机器上及时显示更新的图片?麻烦给出代码,所用控件。谢谢

解决方案 »

  1.   

    当新图片存入数据库后用Winsock控件发送一个广播(255.255.255.255),其它机器收到消息后执行一下查询就OK了
      

  2.   

    '发送客户端
    Private Sub Form_load()  With WinsckClient
      .LocalPort = 18889
      .RemotePort = 18888  '表示服务端端口名
      .Bind 18889  '绑定到本地端口
     End WithEnd Sub'保存新图片时发送广播消息
     With WinsckClient
        .RemoteHost = "255.255.255.255"
        .SendData "消息通知"
        .Close
     End With'接收端(服务器)设置
    Private Sub MDIform_load()
    '定义端口
        With WinsckServer
            .LocalPort = 18888
            .RemotePort = 18889
            .Bind 18888
        End With
    End SubPrivate Sub WinsckServer_DataArrival(ByVal bytesTotal As Long)    WinsckServer.GetData "有新的报修单,请注意查收!"
        Beep    newform.Show   '显示提醒窗口,也可以直接执行查询End Sub'如果没有客户端和服务端的区别的话,就在MDI窗体上放2个Winsock控件,把代码放在一起,只是发送消息时本机也会弹出消息
      

  3.   

    十分感谢楼上的解答,我对网络编程一点不懂
    Private Sub WinsckServer_DataArrival(ByVal bytesTotal As Long) 
        WinsckServer.GetData "有新的报修单,请注意查收!" 
        Beep 
        newform.Show  '显示提醒窗口,也可以直接执行查询 直接执行查询的话,比如用picturebox控件显示更新的图片,代码怎么写?
    我希望B机器只是显示,不需要把A机器的图片发送到B机器上。麻烦解答