| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 743 人关注过本帖
标题:[求助???????????????????????]数据添加
取消只看楼主 加入收藏
nonghaiquan
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2004-12-21
收藏
 问题点数:0 回复次数:3 
[求助???????????????????????]数据添加
我想把一组数据同时添加到同一局域网不同数据库里面的同一个表内,怎么实现,请各位高手指教?
搜索更多相关主题的帖子: 数据 
2004-12-30 09:36
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
nonghaiquan
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2004-12-21
收藏
得分:0 
可是要建不同的数据库啊,怎么循环呢?
2005-01-03 09:12
快速回复:[求助???????????????????????]数据添加
数据加载中...
 
   



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

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