（高分相送）★★★★★各位仁兄，谁有“上报数据”的源程序呀，（MSSQL数据库）给小弟一份。

Question

（高分相送）★★★★★各位仁兄，谁有“上报数据”的源程序呀，（MSSQL数据库）给小弟一份。小弟油箱[email protected]分不够再加。

Answer 1

To  langziwujia007(两份爱中徘徊的裸男) :
没有那么简单吧，还有数据结构...要具体点，，忘有代码。
小弟在此多谢

Answer 2

我当时做的是：从当地的Access数据库中，上报到一个服务器的SQl数据库中，只是按照某个约束条件，依次将满足条件的数据插入到SQL 数据库中就完成了啊。
没有用到数据结构啊

Answer 3

To  langziwujia007(两份爱中徘徊的裸男) :
现在是两个MSSQL数据库，请帮忙，说说思想也行。
具体点，你能做的那个程序给小弟共享吗，小弟先谢过。

Answer 4

//现在是两个MSSQL数据库，请帮忙，说说思想也行。可以使用触发器同步数据

Answer 5

1、你先建立两个数库的联接
   Dim Db As Connection, Cn As Connection
   Dim rs As New Recordset
   Set DB = New Connection
   DB.CursorLocation = adUseClient
   DB.Open "DRIVER=SQL Server;SERVER=当地数据库IP或服务器名称;UID=用户名;password=密   码;DATABASE=数据库名称" 
Set Cn = New Connection
   Cn .CursorLocation = adUseClient
   Cn .Open "DRIVER=SQL Server;SERVER=要上传到的数据库服务器;UID=用户名;password=密   码;DATABASE=数据库名称" 
2、举例：上报本地数据库的b1的a b c三列到服务器的b2中的c d e 三列
  dim rs as new adodb.recordset
  rs.Open"select * from b1",Db,adOpenDynamic, adLockPessimistic
  if not rs.eof and not rs.bof then
  rs.movefirst
  do while not rs.eof
     cn.excute"insert into b2(c,d,e) values(" & rs("a") & "," & rs("b") & "," & rs("c")&")"
  rs.movenext
loop
rs.close
set rs=nothing
我只是举了个例子，你自己试试。因为我的以前的程序比较复杂，所以你一时开不太明白，你仿照上面的例子看看吧。我不知道我们的情况是不是相同。

Answer 6

很很多办法：
一、使用ADO连接数据库，执行SQL
二、使用MSSQL自带的数据库发布，自动同步。

Answer 7

以前 邹键 发表过一篇
是一个导入导出的存储过程,
把这个存储过程添加到MSSQL里,然后调用就行了.和我联系31659206