本地Access的表，如何同步到广域网服务器Mssql上的表。

dengni

本地Access的表，如何同步到广域网服务器Mssql的表内？
本机的数据库是ACCESS的，在网上买了一个mssql的数据库空间。请问如何将本机上access上的表，追加到mssql上。

Dim 目的数据库 As New ADODB.Connection
Dim 源数据库 As New ADODB.Connection
insert into 目的数据库.目的表 from 源数据库.源表，sql语句如何写？

两个表的结构相同。 或有没有自动同步的方法？ 谢谢。

Admin

   

很遗憾通知楼上朋友，您的帖子在24小时之内没有任何回复！

通常情况下，本论坛发布的主题帖会在8小时被回复或处理。您的帖子在24小时之内未被回复，其中的原因可能是：

1、问题表述不清、模棱两可，难以理解，帮助者被搞晕了，夺帖而出；
2、没有上传必要的附件，或附件被遗忘在某个角落；
3、发帖提问时，语气带棱角、带挑衅，不幸被列入不受欢迎的帖子；
4、所提问题不成立，或提不合理的要求，乐于助人者使出“走为上”之计；
5、话题较偏、较冷或者发布到了不合适的版块，暂时无人问津，顾影自怜。


为了提高您的问题解决效率，我们推荐您阅读以下文章：
* 如何发表新话题和上传附件：http://club.excelhome.net/thread-45649-1-1.html
* 发帖的技巧：http://club.excelhome.net/thread-176339-1-1.html
* EH技术论坛的最佳学习方法：http://club.excelhome.net/thread-117862-1-1.html

dengni

真是高难度了。呵呵，难为大家了。

dengni

Set Conn = New ADODB.Connection
    ljzf = "Provider=SQLOLEDB;" _
        & "User ID=数据库名;" _
        & "PassWord=密码;" _
        & "Data Source=120.800.308.45,1433;" _
        & "Network Library=DBMSSOCN;" _
        & "initial Catalog="
  Conn  .CursorLocation = adUseClient
  Conn .Open ljzf
For i =  1 To 20
     sql = sql & "INSERT [表] ( [字段1],[字段2]) VALUES ('"
     sql = sql & sh.Range("A" & i) & "', '"
    sql = sql & sh.Range("W" & i) & "' )   "
Next i
Conn.Execute (sql)

以上代码可以将所有sql语句集中为1句，最后追加，速度提高很多

meeting

用sqlserver客户端导入即可,有导入向导,很方便的