Fun-Soft - Programmierforum

Autor

Thread - Seiten: > 1 <

000
30.04.2014, 15:03 Uhr
~Gast
Gast

Hallo liebes Forum

Hoffentlich könnt ihr meine Frage beantworten:

Wie kann ich dieser Zeile
"WHERE mailnickname='hrzmuh'"
statt dem fixen Wert hrzmuh einen Wert in einer Zelle, Z.B. A1 zuweisen?

Vielen Dank für die Hilfe!
Grüsse

Code:

Option Explicit

    Sub test()
    ''Verbindung mit AD aufnehmen
    Dim objDSE 'As IADsContainer
    Dim objConnection
    Dim objCommand
    Dim objRecordset

        Set objDSE = GetObject("LDAP://rootDSE")

        Set objConnection = CreateObject("ADODB.Connection")
        objConnection.Provider = "ADsDSOObject"
        objConnection.Open

        Set objCommand = CreateObject("ADODB.Command")
        Set objCommand.ActiveConnection = objConnection

    ''SQL Statement
        objCommand.CommandText = _
            "SELECT displayname, mailnickname " & _
            "FROM 'LDAP://" & objDSE.Get("defaultNamingContext") & "' " & _
  [b]          "WHERE mailnickname='hrzmuh'" [/b]

        Set objRecordset = objCommand.Execute

        ActiveWorkbook.Worksheets("Probe").Cells(2, 1) = objRecordset.Fields(1)
        MsgBox objRecordset.Fields(1)


End Sub

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

Seiten: > 1 < [ Visual Basic 6.0 / VBA ]

ThWBoard 2.73 FloSoft-Edition
© by Paul Baecher & Felix Gonschorek (www.thwboard.de)

Anpassungen des Forums
© by Flo-Soft (www.flo-soft.de)

Sie sind Besucher: