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

各位老师好，

      项目做好了，之前是在内网访问服务器进行开发的，现在要发布项目给全国各地的门店使用。但是公司IT经理不肯开放服务器外网地址。

针对这个问题，我想到的2个解决思路：

第一种、搭建VPN网络

第二种、将项目设为服务器端和客户端，服务器端在内网访问公司的服务器，客户端在外网访问项目的服务器端的数据。

这两种方案我都不熟悉，不知道除了这两种还有没有更简单的方法。或者，上面的两种哪种更容易实现。。。

谢谢各位老师！！

谢谢甜老师，我现在研究下VPN是怎么弄的。

哎，已经弄的差不多好了，公司IT经理后面说不可以这样做。这样的话，虽然组建了局域网，但是我在外面同样可以在这个组建的虚拟的局域网操作公司服务器的数据库。

公司说要一个服务器端，一个客户端。

客户端不连接服务器。他们说不然太危险了。

 做数据同步吧。

 你写个程序拷贝服务器的数据到你的数据库，外网链接你的数据库。

 实时或者定时把你的数据更新回数据库。

哦哦。这样也简单一点。我不需要更新我的数据返回原来的数据库。只需要复制原来的数据就行。

额。

甜老师，写个程序拷贝服务器的数据到我的数据库   这个的大概是怎么做的，现在有点乱了。。。

两种方法。 

1、可以用foxtable来写。建一个数据源，然后取得所有的表名，然后查询表的数据，然后更新或插入另一个数据源的表

 http://www.foxtable.com/help/topics/0696.htm

 http://www.foxtable.com/help/topics/1944.htm

2、百度一下：sqlserver 数据同步

甜老师，公司的意思是直接用foxtable来写，不要用其他的同步软件。

我只需要同步原数据库中其中的几张表。

我看了帮助，大概是这个，但是不懂得写出来。。。

Dim cmd As New SQLCommand
Dim dt As DataTable
Dim Cols1() As String = {"来源列一","来源列二","来源列三"}
Dim Cols2() As String = {"接收列一","接收列二","接收列三"}
cmd.CommandText = "SELECT * From {表A} Where 条件语句"
dt = cmd.ExecuteReader()
For Each dr1 As DataRow In dt.DataRows
    Dim dr2 As DataRow = DataTables("表B").AddNew()
    For i As Integer = 0 To Cols1.Length -1
        dr2(Cols2(i)) = dr1(Cols1(i))

     Next
Next

那怎么才能将源数据库里的数据同步到目标数据库里呢。。。