Delphi & SQL

[AiK]

Готовый пример лежит в папке где Delphi установлен. /Demos/ADO

[Blood_Magic]

а сюда выложить можно? а то у меня Delphi

[Blood_Magic]

без демок, какая - то урезанная версия

[Blood_Magic]

Получилось.

С помощью запроса в ADOQuery1.SQL
select ClientUserName from WebProxyLog GROUP BY ClientUserName
я получаю список пользователей.

Как теперь их перекинуть в ComboBox1

[Zroman]

Так комбобоксі есть специальные. К ним подключаешь датасорс со списком пользователей и радуешься.

[Zroman]

Этот компонент называется DBComboBox, лежит на закладке Data Cotrols палитры.

[Blood_Magic]

я придумал как в обычный засунуть можно, и еще активного юзера определить:

Код: Выделить всё

  ADOQuery1.Open;
  ADOQuery1.First;
  While not ADOQuery1.Eof do
    begin
      cbUsers.Items.Add(Trim(ADOQuery1.FieldValues['ClientUserName']));
      ADOQuery1.Next;
    end;
  c:=256;
  GetUserName(r,c);
  u:=Copy(r,1,c);
  for i:=0 to cbUsers.Items.Count-1 do
    begin
      cu:=cbUsers.Items.Strings[i];
      If (cu=u) or (Pos('\'+u,cu)=Length(cu)-Length(u)) then
        begin
          cbUsers.ItemIndex:=i;
          Break;
        end;
    end;