Data provider or other service returned an E_FAIL status
Hejsa.Jeg har en lille procedure hvor jeg får en som overskriften lyder. Ved ikke om det er en SQL eller en Delphi fejl.
Den opstår i min SQL SELECT hvor den 1. for-to-do er 4 og 2. for-to-do er 0.
Er der nogen der har en ide?
procedure TForm1.FormShow(Sender: TObject);
var i,x : byte; sOUlocation : string;
begin
assert(assigned(ADOQuery1));
assert(assigned(ADOQuery1.SQL));
ComboBox1.Clear;
for I := 0 to 7 do
begin
case I of
0 : sSiteOU := 'ou=so,ou=dk';
1 : sSiteOU := 'ou=is,ou=dk';
2 : sSiteOU := 'ou=ro,ou=dk';
3 : sSiteOU := 'ou=ko,ou=dk';
4 : sSiteOU := 'ou=lu,ou=se';
5 : sSiteOU := 'ou=ro,ou=se';
6 : sSiteOU := 'ou=tu,ou=se';
7 : sSiteOU := 'ou=no,ou=se';
end;
for x := 0 to 1 do
begin
case x of
0 : sOUlocation := 'ou=Consultants';
1 : sOUlocation := 'ou=Users';
end;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text := 'SELECT NAME FROM '+ Quotedstr('LDAP://' + sOUlocation + ','+ sSiteOU + ',OU=company,DC=AD,DC=COMPANY,DC=ORG');
ADOQuery1.Open;
try
while not ADOQuery1.Eof do
begin
ComboBox1.Items.Add(ADOQuery1.FieldByName('NAME').AsString);
ADOQuery1.Next;
end;
finally
ADOQuery1.Close;
end;
combobox1.SetFocus;
end;
end;
end;