vb.net - 使用 vb 连接到 sql server 2008

Question

Function DBConnect()
Dim  vConnString, wfConnection, objConn
set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open Application("DB_CONNECT")    
set DBConnect = objConn
exit function
Response.Write("connected to Server 2008")
End Function    

Function GetValue()
Dim objCmd, objRS   
Set objCMD = Server.CreateObject("ADODB.Command")
Set objRs = Server.CreateObject("ADODB.Recordset")

With (objCMD) 
    .ActiveConnection = DBConnect()
    .CommandType = adCmdStoredProc
    .CommandText = "select * from Acc.dbo.table"

    set ObjRS = .Execute()    
End With
 if err.number = 0 then
    if not objRs.EOF then
        arrData = objRs.GetRows 

        vDesc = arrData(5,0)
    else
        vDesc = vValue
    end if

    GetDescFromCode = True
end if

回应即将到来

connected to Server 2008

在调试时，我知道它不会进入 objRs.EOF 如果循环......知道什么是错的

Answer 1

1. 在 DBConnect 中，检查 objConn 的状态以确保它真的被打开了。
2. 在 DBConnect 中，您exit function之前有response.write.
3. 在 GetValue 中，检查 err.number 的值。