A股上市公司传智教育(股票代码 003032)旗下技术交流社区北京昌平校区

 找回密码
 加入黑马

QQ登录

只需一步,快速开始

conn.asp 中连接数据库的函数如下

Sub DBConnection()
Dim db
Dim connstr
Dim db1,pass_word,User_ID,Data_Source
db1="shujuku" '数据库名称
Pass_word="sina" 'Password=帐号密码
User_ID="sina" 'User ID=登陆帐号
Data_Source="219.221.5.172" 'Data Source=服务名称或者ip

connStr="Provider=SQLOLEDB.1;Password='"&pass_word&"';Persist Security Info=True;User ID='"&User_ID&"';Initial Catalog='"&db1&"';Data Source='"&Data_Source&"'"

On Error Resume Next
Set db = Server.CreateObject("ADODB.Connection")
db.Open connstr
If Err Then
Err.clear
Set db = Nothing
Response.Write "数据库连接出错,请通知管理员检查数据库连接字串"
Response.End()
End IF
End Sub

在另一个函数中需要连接数据库时候,调用过来

Dim Rs,db
Call DBConnection()
Set Rs = db.execute("select * from [setup]")

提示:缺少对象: 'db'

为什么会这样呢?

评分

参与人数 1技术分 +2 收起 理由
宋天琪 + 2

查看全部评分

1 个回复

正序浏览
Dim db
Sub DBConnection()
End Sub
作用域

评分

参与人数 1技术分 +1 收起 理由
宋天琪 + 1

查看全部评分

回复 使用道具 举报
您需要登录后才可以回帖 登录 | 加入黑马