Programmieren - alles kontrollieren 4.942 Themen, 20.718 Beiträge

Verfolgung starten Optionen

ASP: cn = oRS.Fields("cn") --> Type Mismatch

Yves3 / 5 Antworten / Flachansicht Nickles

Hallo

Ich bin langsam am verzweifeln :(

Ich bekomme immer folgende Meldung:


Response object error 'ASP 0106 : 80020005'

Type Mismatch

user_informationen.asp, line 0

An unhandled data type was encountered.


Hier der Code dazu:


If UCase(Request("Search")) = "TRUE" Then
userid=Request.Form("userid")
If userid"" Then
set oConn = CreateObject("ADODB.Connection")
set oCommand = CreateObject("ADODB.Command")
set oRS = CreateObject("ADODB.Recordset")

oConn.Provider = "ADsDSOObject"
oConn.Properties("User ID") = "cn=deruser,ou=administrators,cn=users,cn=irgendwas"
oConn.Properties("Password") = "******"
oConn.Open "Ads Provider"

set oCommand.ActiveConnection = oConn 'set the active connection
strQuery= "


Die fett markierte Zeile verursacht den Fehler.
Typenkonvertierung mit CString() oder CInt() funktioniert nicht.

Hat jemand eine Idee?


bei Antwort benachrichtigen
T-Rex Yves3 „ASP: cn = oRS.Fields("cn") --> Type Mismatch“
Optionen

Mach mal Word (oder Excel) auf, drücke STRG+F11, füge dem Projekt ein neues Modul hinzu und schreibe in dieses Modul folgende Zeilen:

Private Sub TestMe
    Dim oConn As Object
    Dim oCommand As Object
    Dim oRS As Object
    Dim i As Long

    set oConn = CreateObject("ADODB.Connection")
    With oConn
        .Provider = "ADsDSOObject"
        .Properties("User ID") = "cn=deruser,ou=administrators,cn=users,cn=irgendwas"
        .Properties("Password") = "******"
        .Open "Ads Provider"
    End With

    set oCommand = CreateObject("ADODB.Command")
    With oCommand
        Set .ActiveConnection = oConn
        .CommandText = ";(cn=" & userid & ");cn;subtree"
        .Properties("Page Size") = 99
    End With

    set oRS = oCommand.Execute

    With RS
        For i = 0 To .Fields.Count - 1
            Debug.Print "Feld " & CStr(i) & _
                ": [" & .Fields(i).Name & "] " & TypeName$(.Fields(i).Value)
        Next i
        .Close
    End With

    Set oRS = Nothing
    Set oCommand = Nothing
    oConn.Close
    Set oConn = Nothing
End Sub
Starte diese Methode mit F8 und drücke dann F5.

Im Direktfenster stehen nun die Feldnamen und ihre Typen. Was steht dort bei cn und was sollte dort stehen?

 GrüßeT-Rex 
bei Antwort benachrichtigen
Variant steht dort... sollte mir das etwas sagen? Das ist leider das erste ... Yves3
Das Problem ist: VBScript kennt nur Variant als Datentyp, IIRC ergeht es ASP ... T-Rex
Ich habe jetzt noch etwas interessantes herausgefunden. Der Code ... Yves3
Ich habe jetzt noch eine andere Möglichkeit gefunden. So kann ich die ... Yves3