我想把一组数据同时添加到同一局域网不同数据库里面的同一个表内，怎么实现，请各位高手指教？

第一必须有所有数据库的操作权限。

同时建三个对象，分别打开三个库。
用同一SQL添加记录语句对三个对象进行执行。

注意：使用该方法时应该想到当有一个或多个对象无法工作时的情况。
也就是说，三个库在三台不同的机子里，当有一台机子因为网络、系统或没开机等问题不工作时，至少执行了一台，其它的没执行，这种情况的处理办法（对策要想好）。

以下代码仅能实现单个数据库的添加，不能同时添加进几个数据库表！另外我按照楼上的说法试了一下还是不得啊！各位看看还有什么好的方法可以实现吗？请指教！ '打开本地数据表********************************** 'request("checkbox")为取得复选框信息articleid；request("office")为取得复选框值科室值：office set rs=server.CreateObject("adodb.recordset") sql="select * from news_article where articleid="&request("checkbox") rs.open sql,conn,1,1 content=rs("content") title=rs("title") classid=rs("classid") nkey=rs("nkey") hits=rs("hits") dateandtime=rs("dateandtime") writer=rs("writer") writefrom=rs("writefrom") state=rs("state") author=rs("author") disptime=rs("dateandtime") rs.close set rs=nothing set conn=nothing '判断并打开其他数据库********************************** dim office office=request("office") office=split(office,",") for i=0 to UBound(office) if i=0 then cjf=Trim(office(i)) else cjf=cjf+","+Trim(office(i)) end if next select case cjf case 0 Set conn = Server.CreateObject("ADODB.Connection") conn.open "DRIVER={SQL Server};SERVER=192.168.168.5;DATABASE=jckoffice;UID=sa;PWD=" case 1 Set conn = Server.CreateObject("ADODB.Connection") conn.open "DRIVER={SQL Server};SERVER=192.168.168.6;DATABASE=sljszk;UID=sa;PWD=" case 2 Set conn = Server.CreateObject("ADODB.Connection") conn.open "DRIVER={SQL Server};SERVER=192.168.168.7;DATABASE=building;UID=sa;PWD=" case 3 Set conn = Server.CreateObject("ADODB.Connection") conn.open "DRIVER={SQL Server};SERVER=BILL\CXDY3;DATABASE=SZJCZD;UID=sa;PWD=" case 4 Set conn = Server.CreateObject("ADODB.Connection") conn.open "DRIVER={SQL Server};SERVER=BILL\CXDY3;DATABASE=SZJCZD;UID=sa;PWD=" end select set rs=server.CreateObject("adodb.recordset") sql="select * from news_article" rs.open sql,conn,2,3 rs.addnew rs("content")=content rs("title")=title rs("classid")=classid rs("nkey")=nkey rs("hits")=hits rs("dateandtime")=dateandtime rs("writer")=writer rs("writefrom")=writefrom rs("state")=state rs("author")=author rs.update

rs.close set rs=nothing set conn=nothing

怎么没人回帖呢？

for i=1 to N
1建库
2recordset
3插入
NExt

可是要建不同的数据库啊，怎么循环呢？

有什么问题吗？
比如：conn1是1号库，conn2是2号库，conn3是3号库（不要再问我什么建这三个对象）。
然后
rs是数据源对象。
for n=1 to rs.recordcount
  sql="insert into 表名 (字段1,字段2,......) Values('"&rs("字段1")&"','"&rs("字段1")&"',......)"
  conn1.Execute(SQL)
  conn2.Execute(SQL)
  conn3.Execute(SQL)
  rs.movenext
next
够清楚了吧？！
我不明白楼上的人为什么要把建库放到循环之内去？建库建一次不就完了？你不要把它
set conn1=nothing或close掉就可以了。

[此贴子已经被作者于2005-1-4 9:46:42编辑过]