请教问题，错误 '800a005b' 未设置对象变量或 With block 变量。。

[myadaidarling]

vb 中 类文件

Public Function GetConnection(dbname As String) As ADODB.Connection
Dim Conn As ADODB.Connection
Dim str_conn As String
str_conn = "PROVIDER=SQLOLEDB;DATA SOURCE=localhost;UID=sa;PWD=123456;DATABASE=" & dbname
Conn.Open str_conn
Set GetConnection = Conn
End Function
********************************************************************
asp 中 应用

set Connection=server.createobject("db.tool")
set dbConn = Server.CreateObject("ADODB.Connection")
dbConn=bbsConnection.GetConnection("xnsq")

执行的时候 dbConn=bbsConnection.GetConnection("xnsq") 出错！！

求解决办法！！

[wangwm]

Dim Conn As ADODB.Connection
改为
Dim Conn As new ADODB.Connection

[myadaidarling]

好，，试试

[xiaobird1]

应该这样吧
dbConn=Connection.GetConnection("xnsq")

你建立的对象不叫Connection么？

[myadaidarling]

to xiaobird1(想作千里马、还是伯乐) ( )

笔误笔误！！~~

应该是 dbConn=Connection.GetConnection("xnsq")

还是不行，，请高手帮忙。。

[xiaobird1]

' dim adodb object
Public dbcon As New ADODB.Connection
Public cmd As New ADODB.Command
Public rs As New ADODB.Recordset

szDriver = "Provider=Microsoft.Jet.OLEDB.4.0;"
szDataSource = "Data Source=" & App.Path & "\database\db.mdb;"
szConnection = szDriver & szDataSource
dbcon.ConnectionString = szConnection & szDataSource & "Persist Security Info=False"
dbcon.Open

这是我测试过的vb通过ole db连接access代码。
data source处应该写database才对阿？

[xiaobird1]

sql的应该是这样吧(odbc):
connstr = "DRIVER={SQL SERVER};SERVER="(local)";UID=sa;PWD=;DATABASE=dbname"

[dh20156]

http://expert.csdn.net/Expert/topic/1934/1934660.xml?temp=.490307

[myadaidarling]

谢谢 xiaobird1(想作千里马、还是伯乐)
这两种连接方式都可以。。

to dh20156(风之石-ASP.net学习中)
谢谢，链接的帖子非常有价值。。


我改了一下，原来的错误{错误 '800a005b' 未设置对象变量或 With block 变量}解决了..
把vb中的
Public Function GetConnection(dbname As String) As ADODB.Connection
后面的 As ADODB.Connection去掉，，即
Public Function GetConnection(dbname As String)

但新的问题出现。。如下：

asp 中 应用
set Connection=server.createobject("db.tool")
set dbConn = Server.CreateObject("ADODB.Connection")
dbConn=Connection.GetConnection("xnsq")
str_sql = "select * from person where [user]='"&username&"' and password ='"&pass&"' "
set objRs = dbConn.Execute(str_sql)
if rs....

set objRs = dbConn.Execute(str_sql)--> 这句出错。
提示 ：
错误 '800a01a8'
缺少对象: 'dbConn'

实在不知道哪里有问题了，，我就是觉得没错啊，，痛苦... 求大家帮忙啊

[myadaidarling]

up...

[myadaidarling]

up...

[笑对最好]

其實你可以在組件裏面封裝所有的東東。
提供一個ExecuteSQLWithRecord方法，用來執行SQL語句。
public function ExecuteSQLWithRecord(byval string strsql) as Adodb.RecordSet
然後只需要
set objRs = ***.ExecuteSQLWithRecord(str_sql)--> 这句出错。