Herzlich Willkommen, lieber Gast!
  Sie befinden sich hier:

  Forum » Visual Basic 6.0 / VBA » WHERE mailnickname = Zellenwert?

Forum | Hilfe | Team | Links | Impressum | > Suche < | Mitglieder | Registrieren | Einloggen
  Quicklinks: MSDN-Online || STL || clib Reference Grundlagen || Literatur || E-Books || Zubehör || > F.A.Q. < || Downloads   

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: