Hallo,
ich glaube ich habe ein Lösung gefunden. Trotzdem weiß ich nicht warum mein Programm zu einem Fehler geführt hat, aber egal ....
Funktioniert NICHT
Delphi-Quellcode:
ADOQuery := TADOQuery.Create(nil);
ADOQuery.Active := false;
ADOQuery.ConnectionString := frmMain.Funktion.GetLDAPConnectionString;
SQLQuery := 'SELECT cn FROM ' + frmMain.Funktion.GetLDAPTableString('LDAP','Gesellschaft',frmMain.Funktion.Domaene) + ' where objectclass='
+ QuotedStr('contact') + ' and objectcategory=' + QuotedStr('user');
ADOQuery.SQL.Add(SQLQuery);
Zuerst ADOQuery.SQL befüllen und DANACH erst den ConnectionString
Keine Ahnung warum aber es funktioniert.
FUNKTIONIERT
Delphi-Quellcode:
ADOQuery := TADOQuery.Create(nil);
SQLQuery := 'SELECT cn FROM ' + frmMain.Funktion.GetLDAPTableString('LDAP','Gesellschaft',frmMain.Funktion.Domaene) + ' where objectclass='
+ QuotedStr('contact') + ' and objectcategory=' + QuotedStr('user');
ADOQuery.SQL.Add(SQLQuery);
ADOQuery.Active := false;
ADOQuery.ConnectionString := frmMain.Funktion.GetLDAPConnectionString;