ADODB.Connection # 424: Требуемый объект

Question

Извините слишком много вопросов, чтобы посмотреть через. Мой код:

Function GetConnection(ByVal Server, ByVal Database, ByVal UserID, ByVal Password) 
    Dim conn 
    On Error Resume Next 
    Set conn = Server.CreateObject("ADODB.Connection") 
    If Err.Number <> 0 Then 
     Set conn = Nothing 
     Response.Write "#" & Err.Number & ": " & Err.Description 
     Response.End 
     Exit Function 
    End If 
    CONST connStringFormat = "Provider=SQLOLEDB.1;Password=@Password;Persist Security Info=True;User ID=@UserID;Initial Catalog=@Database;Data Source=@Server" 
    Dim myConnectionString 
    myConnectionString = Replace(Replace(Replace(Replace(connStringFormat, "@Server", Server), "@Database", Database), "@UserID", UserID), "@Password", Password) 

    conn.Open myConnectionString 
    On Error GoTo 0 
    Set GetConnection = conn 
End Function 

Возвращается ошибка, как показано на моей веб-странице:

# 424: Требуется объект

Любые идеи, что является причиной этого? Пожалуйста, проигнорируйте тот факт, что я не проверяю правильность подключения к точке, потому что она бомбит в заявлении Server.CreateObject("...")!

Answer 1

После того, как я просмотрел свой код тысячу раз и отступил, я взял вызов CreateObject из функции, и он работал (почему, почему, почему), то есть я превратил свою функцию в подпрограмму и использовал глобальную переменную.

Sub SetupConnection(ByVal Server, ByVal Database, ByVal UserID, ByVal Password) 
    CONST connStringFormat = "Provider=SQLOLEDB.1;Password=@Password;Persist Security Info=True;User ID=@UserID;Initial Catalog=@Database;Data Source=@Server" 

    Dim myConnectionString 
    myConnectionString = Replace(Replace(Replace(Replace(connStringFormat, "@Server", Server), "@Database", Database), "@UserID", UserID), "@Password", Password) 

    conn.Open myConnectionString 
End Sub 

Dim conn 
Set conn = Server.CreateObject("ADODB.Connection") 
SetupConnection ... 

Answer 2

Ok, так что нет ничего плохого в подходе просто, как это называется (немного предположения, как я не видел никакого кода вызова).

Хотя обработка ошибок является хорошей вещью, в настоящее время On Error Resume Next не очень полезен и только захватывает проблемы с созданием объекта ADODB.Connection, который не будет происходить часто.

Function GetConnection(ByVal Server, ByVal Database, ByVal UserID, ByVal Password) 
    Dim conn: Set conn = Server.CreateObject("ADODB.Connection") 
    Const connStringFormat = "Provider=SQLOLEDB.1;Password=@Password;Persist Security Info=True;User ID=@UserID;Initial Catalog=@Database;Data Source=@Server" 
    Dim myConnectionString: myConnectionString = Replace(Replace(Replace(Replace(connStringFormat, "@Server", Server), "@Database", Database), "@UserID", UserID), "@Password", Password) 

    'You are more likely to get errors here, when trying to open the connection. 
    Call conn.Open(myConnectionString) 
    Set GetConnection = conn 
    Set conn = Nothing 
End Function 

Чтобы назвать это правильно, вы все равно должны использовать Set заявление так, что новый объект будет инстанцированный правильно.

Например, это будет работать

Dim conn: Set conn = GetConnection("YourServer", "YourDatabase", "YourUserName", "YourPassword") 

Но это не получится, потому что ADODB.Connection объект предполагает, что мы хотим строковое представление по умолчанию который будет ConnectionString.

Dim conn: conn = GetConnection("YourServer", "YourDatabase", "YourUserName", "YourPassword") 

Чтобы доказать, что здесь быстрый тест

Dim conn: conn = GetConnection("YourServer", "YourDatabase", "YourUserName", "YourPassword") 
Call Response.Write("conn is " & TypeName(conn) & "<br />") 

Set conn = GetConnection("YourServer", "YourDatabase", "YourUserName", "YourPassword") 
Call Response.Write("conn is " & TypeName(conn) & "<br />") 

Выход:

conn is String 
conn is Connection