Bei CommandText Zuweisung Exception

[RalfE]

Hallo,
ich verwende Delphi 7,

bei Zuweisung "ADOSet.CommandText := HlpStr"
kommt Access Violation.

Bei Button Klick soll erstmal nur ein Memo gefüllt werden
(bin noch am Probieren). Hier mal der Code:

Delphi-Quellcode:

procedure TFirstForm.Button2Click(Sender: TObject);
Var ADOConn: TADOConnection;
    ADOSet: TADODataSet;
    Loop : Integer;
    HlpStr : WideString;
begin
  ADOConn := TADOConnection.Create(nil);
  ADOSet := TADODataSet.Create(nil);
  ADOConn.Provider := 'ADsDSOObject';
  ADOConn.ConnectionString := 'Provider=ADsDSOObject;Encrypt Password=False;Integrated Security=SSPI;Data Source=NIS;Mode=Read;Bind Flags=0;ADSI Flag=-2147483648';
  ADOConn.LoginPrompt := false;
  ADOSet.Connection := ADOConn;

  HlpStr := 'SELECT displayName,name,ADsPath,DistinguishedName,Location FROM ';
 HlpStr := Concat(HlpStr,QuotedStr('LDAP://meyer_1'));
  HlpStr := Concat(HlpStr,'WHERE objectClass = ',QuotedStr('user'),'and objectCategory = ');
  HlpStr := Concat(HlpStr,QuotedStr('Person'));
  ADOSet.CommandText := HlpStr;  // Exception !!!!
  ADOSet.Open;
  ADOSet.First;
  Memo1.Clear;
  for Loop := 0 to ADOSet.RecordCount -1 do
  begin
    Memo1.Lines.Add(ADOSet.Fields[1].AsString);
    ADOSet.Next;
  end;
end;

Lasse ich das Programme weiterlaufen, so wird das Memo
entsprechend gefüllt.

Danke.

[Bummi]

wenn Du

Delphi-Quellcode:

ADOSet.Connection := ADOConn;

erst nach dem Zuweisen des Commandtextes setzt ist der Fehler weg.

[Gollum]

Hallo,

nachdem Du Connection erzeugt hast, musst Du auch noch einen Verbindung zu Ihr herstellen, bevor Du die Connection dem Dataset zuweist:

Delphi-Quellcode:

ADOConn := TADOConnection.Create(nil);
...
...
ADOConn.LoginPrompt := false;
ADOConn.Connected:=True; // oder ADOConn.Open;
ADOSet.Connection := ADOConn;

Beim Zusammenbau deines SQL-Statements würde ich noch Parameter benutzen:

Delphi-Quellcode:

 HlpStr:='SELECT displayName,name,ADsPath,DistinguishedName,Location FROM ';
 HlpStr:=Concat(HlpStr,QuotedStr('LDAP://meyer_1'));
 HlpStr:=HlpStr+'WHERE objectClass=:Class and objectCategory=:Category';
 ADOSet.Parameters.ParamByName('Class').Value:='user';
 ADOSet.Parameters.ParamByName('Category').Value:='person';
 ADOSet.Open;
 // ADOSet.First; -> diese Zeile kannst Du Dir sparen, weoil der Datensatzzeiger immer auf dem 1. Eintrag steht