ADODB.Connection # 424: Objekt erforderlich

Question

Sorry zu viele Fragen, um durchzusehen. Mein Code:

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 

Der zurück Fehler als auf meiner Webseite zu sehen ist:

# 424: Objekt

erforderlich

Irgendwelche Ideen, was ist der Grund dafür? Bitte ignoriere die Tatsache, dass ich nicht nach korrekten connectonstring den Punkt suche, ist es Bomben auf der Server.CreateObject("...") Aussage!

Answer 1

Nachdem ich meinen Code tausend Mal angesehen habe und weggegangen bin, habe ich meinen CreateObject-Aufruf aus der Funktion genommen und es funktionierte (warum, warum, warum), d. H. Ich verwandelte meine Funktion in ein Sub und benutzte eine globale Variable.

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, also es ist nichts falsch mit dem Ansatz, wie es (Bit einer Annahme als ich keine Berufung Code gesehen haben) genannt.

Während Fehlerbehandlung ist eine gute Sache, die ist derzeit nicht sehr nützlich und erfasst nur Probleme mit der Instanziierung eines ADODB.Connection Objekts, das nicht oft passieren wird.

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 

das Sie noch richtig zu nennen, müssen die Set Anweisung verwenden, so dass das neue Objekt korrekt instanziiert wird.

Zum Beispiel wird diese

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

arbeiten Aber dies fehl, weil das ADODB.Connection Objekt übernimmt wir die Standard-String-Darstellung wollen, die die ConnectionString sein wird.

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

dass Um hier zu beweisen, ist ein Schnelltest

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 />") 

Ausgang:

conn is String 
conn is Connection