| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 743 人关注过本帖
标题:[求助???????????????????????]数据添加
只看楼主 加入收藏
nonghaiquan
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2004-12-21
收藏
 问题点数:0 回复次数:7 
[求助???????????????????????]数据添加
我想把一组数据同时添加到同一局域网不同数据库里面的同一个表内,怎么实现,请各位高手指教?
搜索更多相关主题的帖子: 数据 
2004-12-30 09:36
tang688
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1219
专家分:35
注 册:2004-12-25
收藏
得分:0 
第一必须有所有数据库的操作权限。

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

2004-12-30 09:57
tang688
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1219
专家分:35
注 册:2004-12-25
收藏
得分:0 
注意:使用该方法时应该想到当有一个或多个对象无法工作时的情况。
也就是说,三个库在三台不同的机子里,当有一台机子因为网络、系统或没开机等问题不工作时,至少执行了一台,其它的没执行,这种情况的处理办法(对策要想好)。

2004-12-30 10:05
nonghaiquan
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2004-12-21
收藏
得分:0 

以下代码仅能实现单个数据库的添加,不能同时添加进几个数据库表!另外我按照楼上的说法试了一下还是不得啊!各位看看还有什么好的方法可以实现吗?请指教! '打开本地数据表********************************** '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

2004-12-30 15:11
nonghaiquan
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2004-12-21
收藏
得分:0 
怎么没人回帖呢?
2004-12-31 08:23
aniude
Rank: 2
等 级:新手上路
威 望:3
帖 子:231
专家分:0
注 册:2004-11-3
收藏
得分:0 
for i=1 to N
1建库
2recordset
3插入
NExt

2005-01-01 11:12
nonghaiquan
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2004-12-21
收藏
得分:0 
可是要建不同的数据库啊,怎么循环呢?
2005-01-03 09:12
tang688
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1219
专家分:35
注 册:2004-12-25
收藏
得分:0 
有什么问题吗?
比如: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编辑过]



2005-01-04 09:26
快速回复:[求助???????????????????????]数据添加
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.018071 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved