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.