Hat mir bitte jemand einen Blindenstock?
ich suche nun seit Stunden einen vermutlich absolut dämlichen Fehler und komme nicht dahinter. Folgender Code:
Code:
Memo1.Lines.Clear;
Memo1.Lines.Add('SELECT sAMAccountName, givenName, sn, displayName, physicalDeliveryOfficeName, telephoneNumber, mail, facsimileTelephoneNumber, department, company, profilePath');
Memo1.Lines.Add('FROM ''LDAP://' + OUTxt + '
DC=' + Edit4.Text + ',
DC=' + Edit5.Text + '''');
hit := 'WHERE objectClass=''user'' and objectCategory=''person''';
if Edit2.Text <> '' then
hit := hit + ' and sAMAccountName=''' + Edit2.Text + '''';
Memo1.Lines.Add(hit);
ADODataSet1.CommandText := '';
ADODataSet1.CommandText := Memo1.Text;
ADODataSet1.Open;
Auf der vorletzten Zeile bekomme ich eine
Exception C000000005
Access Violation.
ADODataSet1 ist sicher noch nicht geöffnet und habe sicherheitshalber auch mal versucht, die ganze Connection erst nach diesem Code zu öffnen. Der CommandType von ADODataSet1 ist cmdText. Und wenn ich in etwa das, was da im Memo aufbereitet wird, direkt ins ADODataSet1.CommandText pflanze und die dritt- und vorletzte Codezeile auskommentiere, funktioniert die Geschichte. Also an der Länge des
SQL-Statements sollte es eigentlich auch nicht liegen.
Wer hat bitte den gesuchten Blindenstock?