黑马程序员技术交流社区

标题: 把数据库连接写成一个sub函数，调用的时候说缺少对象: db [打印本页]

---

作者: 周健    时间: 2012-4-13 13:34
标题: 把数据库连接写成一个sub函数，调用的时候说缺少对象: db
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'

为什么会这样呢？

---

作者: 马跃    时间: 2012-4-17 17:02
Dim db
Sub DBConnection()
End Sub
作用域

---

欢迎光临 黑马程序员技术交流社区 (http://bbs.itheima.com/)

黑马程序员IT技术论坛 X3.2