Active Directory - Abfrage

[Maya]

Zitat von p80286:

Das verstehe ich nicht, der Text wird doch hier

Delphi-Quellcode:

with DataModule2.qry1 do
      begin
        Close;
        SQL.Text:='SELECT displayName FROM ''LDAP://DC=****,DC=lan'' WHERE objectClass=''user'' AND objectCategory=''Person''';
        Open; //<Hier liegt scheinbar immer noch ein Problem. 
        First;
      end;

übergeben also was machst Du da?

Wenn ich die SQL-Abfrage direkt in die Query schon zur Designzeit eingebe und im Quelltext die Zuweisung auskommentiere, erscheint die Zugriffsverletzung nicht. Das meinte ich damit, habe mich vielleicht unglücklich ausgedrückt. Ohne "WITH" habe ich es auch schon ausprobiert, da ich auch schon überlegte, ob das nicht ggf. eine Sache sein könnte, die ADO nicht so mag. Ergebnis war aber das gleiche.

Ich habe beim etwas genaueren googeln den Beitrag hier gefunden: http://www.delphipraxis.net/84463-ad...erletzung.html und sind jetzt am Überlegen, ob wir nicht gleich das auch so machen, dass wir die Query dynamisch erstellen.

Delphi-Quellcode:

procedure TForm1.btn1Click(Sender: TObject);
var ConString: String;
    LastErrorIndex, NativeError, NumberError, i: Integer;
    SourceError, DescriptionError, SQLStateError: string;
begin
  ConString:='Provider=ADsDSOObject;Encrypt Password=False;Mode=Read;Bind Flags=0;ADSI Flag=-2147483648';

  try
    qry2:=TADOQuery.Create(nil);
    qry2.SQL.Text:=' SELECT displayName             '+
                   ' FROM ''LDAP://DC=****,DC=lan'' '+
                   ' WHERE objectClass=''user''     '+
                   ' AND objectCategory=''Person''  ';
    qry2.Active:=False;
    qry2.ConnectionString:=ConString;
    qry2.Active:=True;
    qry2.First;

    mmo1.Lines.Clear;
    while not qry2.Eof do
      begin
        mmo1.Lines.Add(qry2.FieldByName('displayName').AsString);
        qry2.Next;
      end;
  except
    for I := 0 to qry2.Connection.Errors.Count - 1 do
      begin
        LastErrorIndex:=i;
        SourceError:=qry2.Connection.Errors.Item[LastErrorIndex].Source;
        NumberError:=qry2.Connection.Errors.Item[LastErrorIndex].Number;
        DescriptionError:=qry2.Connection.Errors.Item[LastErrorIndex].Description;
        SQLStateError:=qry2.Connection.Errors.Item[LastErrorIndex].SQLState;
        NativeError:=qry2.Connection.Errors.Item[LastErrorIndex].NativeError;
        Showmessage('SourceError: '+ SourceError+#10#13+
                    'NumberError: '+IntToStr(NumberError)+#10#13+
                    'DescriptionError: '+DescriptionError+#10#13+
                    'SQLStateError: '+SQLStateError+#10#13+
                    'NativeError: '+IntToStr(NativeError));
      end;
    qry2.Free;
  end;

Ich habe auch versucht, bei der Query, die ich zur Designzeit erstelle, direkt den ConnectionString einzugeben, aber hat keine positiven Ergebnisse.

Wenn noch jmd. einen Lösungsansatz hat, wäre ich dem sehr dankbar.

Zitat von jobo:

Vielleicht hakts am Doppelpunkt?
Mal ParamCheck abschalten=?

Welcher Doppelpunkt?

[DeddyH]

Dieser Doppelpunkt vermutlich:

Zitat:

LDAP:

[Maya]

Zitat von DeddyH:

Dieser Doppelpunkt vermutlich:

Zitat:

LDAP:

ICH LIEBE EUCH!!
Echt, das war's, jetzt klappt's perfekt.

Wenn ich das dynamisch erstelle, ist dann ParamCheck von vornherein (OMG, schreibt man das so?) auf "false" gesetzt?

[p80286]

hast du mal den debugger gefragt was in SQL.Text steht?

Gruß
K-H

[Maya]

Zitat von p80286:

hast du mal den debugger gefragt was in SQL.Text steht?

Gruß
K-H

Nicht nur einmal und hatte eigentlich nie gesehen, dass der Text anders war, als ich ihn eingab. Deswegen verstand ich das Problem nicht. Hätte ich gesehen, dass da was anders drinne steht, hätte ich vielleicht die minimale Chance gehabt, darauf selber zu kommen.
Habe jetzt ParamCheck auf "False" gestellt und nun klappt's tadellos.

Danke an alle, die halfen! Ich schlage mich jetzt weiter mit der Active Directory 'rum.

[jobo]

Zitat von DeddyH:

Dieser Doppelpunkt vermutlich:

Zitat:

LDAP:

Ja, wenn es jetzt klappt, meinte ich den.

[DeddyH]

Der war ja auch nicht schwer zu finden: einfach alles ausblenden, was kein Doppelpunkt ist

[jobo]

Ja für Dich!
Aber ein Hinweis auf das SQL Statement hätte nicht geschadet, im restlichen Quelltext waren ja auch noch ein paar Doppelpunkte.
Also gut, die Antwort war etwas schlampig,

Zitat:

ParamCheck

könnte man aber auch noch als Hinweis gelten lassen.

[Maya]

Zitat von DeddyH:

Der war ja auch nicht schwer zu finden: einfach alles ausblenden, was kein Doppelpunkt ist

Ich glaube, wenn man seit zwei Tagen, wenn nicht so gar schon drei Tagen auf dieses SQL-Statement starrt, dann sieht man nicht mal mehr bunte Herzchen darin, geschweige denn einen Doppelpunkt.

Klappt super und langsam entsteht soetwas wie eine Freundschaft zwischen mir und der Active Directory. Man muss nur wissen, wie man sie nehmen muss.

[jobo]

Zitat von Maya:

Man muss nur wissen, wie man sie nehmen muss.

Wie das eben so ist mit Freundschaften.