0
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 if ループ内に入らないことがわかりました...何が問題なのか

4

1 に答える 1

0
  1. DBConnect で、objConn のステータスをチェックして、実際に開かれていることを確認します。
  2. DBConnect では、exit function前にresponse.write.
  3. GetValue で、err.number の値を確認します。
于 2013-07-25T05:07:38.553 に答える