| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 367 人关注过本帖
标题:数据库连接问题
只看楼主 加入收藏
txh871123
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2012-2-24
结帖率:0
收藏
已结贴  问题点数:20 回复次数:2 
数据库连接问题
这是我数据库连接函数
public Sub conn(sername,uid,pwd,database)
   dim MM_conn_STRING_own,conn
   MM_conn_STRING_own = "Provider=SQLOLEDB;server=("&sername&");uid="&uid&";pwd="&pwd&";database="&database&";"
   On error Resume next
   Set conn = Server.Createobject("ADODB.Connection")
   conn.open MM_conn_STRING_own
   If conn.errors.count = 0  Then  response.write("连接数据库"&sername&"成功")
        Else    response.write("连接数据库"&sername&"失败")
   End if
End Sub
这是调用conn函数的页面
<!--#include file="conn.asp"-->
<%
'航北段数据流入科怡接口
dim server1,uid,pwd,database
server1="local"
uid="sa"
pwd="123456"
database="ACT2"
conn sername,uid,pwd,database
%>
编译时出错
Microsoft VBScript 编译器错误 (0x800A03F6)
缺少 'End'
/interface/conn.asp, line 10
Else response.write("连接数据库"&sername&"失败")
搜索更多相关主题的帖子: next 函数 数据库连接 连接数据库 database 
2012-02-24 09:53
wangjy500
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:13
帖 子:457
专家分:2569
注 册:2010-7-11
收藏
得分:10 
public Sub conn(sername,uid,pwd,database)
   dim MM_conn_STRING_own,conn
   MM_conn_STRING_own = "Provider=SQLOLEDB;server=("&sername&");uid="&uid&";pwd="&pwd&";database="&database&";"
   On error Resume next
   Set conn = Server.Createobject("ADODB.Connection")
   conn.open MM_conn_STRING_own
   If conn.errors.count = 0  Then
       response.write("连接数据库"&sername&"成功")
        Else
      response.write("连接数据库"&sername&"失败")
   End if
End Sub

QQ:63572063
2012-02-24 17:44
w0ainana
Rank: 2
等 级:论坛游民
帖 子:10
专家分:22
注 册:2011-11-7
收藏
得分:10 
这个网站上面有解决办法
www.
2012-02-24 18:50
快速回复:数据库连接问题
数据加载中...
 
   



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

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