主题：紧急求助：服务器只能用内网连接，不在内网的客户端怎么才能访问服务器的数据。。

哎，用狐表做数据同步，保存太慢了。。。

看来只能研究SORKET通讯了。。。。

头大。

insert into select 语句基本学会，插入速度也很快。

但是还是要先把源数据加载到表里，

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.ConnectionName = "数据源名称"
cmd.CommandText = "SELECT * From {员工}"
dt = cmd.ExecuteReader()
For Each dr As DataRow In dt.DataRows
    If DataTables("员工").Find("身份证号码 = '" & dr("身份证号码") & "'") Is Nothing Then  如果用SQLFIND  速度会很慢，但是如果只用FIND，就必须把所有数据都加载进狐表。
        Dim nr As DataRow = DataTables("员工").AddNew()
        For Each dc As DataCol In dt.DataCols
            nr(dc.name) = dr(dc.name)
        Next
    End If
Next

如果用SQLFIND  速度会很慢，但是如果只用FIND，就必须把所有数据都加载进狐表。
不知道有没有更好的解决办法。。。。

For Each dr As DataRow In dt1.DataRows
    If dt2.Find("身份证号码 = '" & dr("身份证号码") & "'") Is Nothing Then

        Dim nr As DataRow = dt2.AddNew()
        For Each dc As DataCol In dt.DataCols
            nr(dc.name) = dr(dc.name)
        Next
    End If
Next

dt2.Save

甜老师，你上面25楼的方法，是不是也是要保存，我刚才试了一下比较多的数据，也是很慢。

我改成用Insert Into 的方法，速度是挺快的，但是有重复。

Dim cmd As New SQLCommand

Dim dt2 As DataTable
cmd.    Name = "VIP数据2"
cmd.CommandText = "SELECT * From {VIP会员系统登录用户数据表}"
dt2 = cmd.ExecuteReader(True)

For Each dr As DataRow In dt1.DataRows
    If dt2.Find("name = '" & dr("name") & "'") Is Nothing Then
        cmd.     Name = "VIP数据2"
        cmd.CommandText = "Insert Into {VIP会员系统登录用户数据表}(name,type,config,名称) Values( '" & dr("name") & "' ,'" & dr("type") & "' ,'" & dr("config") & "' ,'" & dr("名称") & "' )"
        cmd.ExecuteNonQuery
    End If
Next

同步数据的方式好了。

现在要求我不用这种方式了。。。

各位老师好，

socket通讯，大概是什么思路呢？

客户端发送请求，服务端响应，将查询的数据发送给客户端？

此主题相关图片如下：发送的命令.jpg

他们是这样想的，

客户端直接连数据库的话，要是有人将软件反编译，就可以获取到数据库地址密码。说这样数据就不安全。

不知道还有没有别的办法。。。

甜老师，用stocket通讯呢？

他们老是放心不下。因为就算是访问新的数据库，破坏不了原来的数据库的数据，

但是，他们访问了新的数据库，里面的信息就泄露了。。。

里面都是我们VIP会员的信息，电话号码什么的。。。

哎。。

这应该是狐表的软肋吧。。

如果可以写，我就试着学一下。大改也没关系的。

哦，是的。绝对安全那是不现实的。

用SorkeT主要是客户端就不用访问数据库，就只有客户端需要。