SQL-выборка!

[Korben5E]

ну а в
ShowMessage(QueryRabota.FieldByName ('key').AsString);

[DIgorevich]

Наверное, я не правильно выразился... мне надо имея на руках только слово "больницы" узнать его номер (в данном случае это - 12)?

[Korben5E]

Сообщение от DIgorevich

Наверное, я не правильно выразился... мне надо имея на руках только слово "больницы" узнать его номер (в данном случае это - 12)?

я спросил "а как вообще определяется имя работы?"
если вводится с клавиатуры - то это плохая практика

люди любят часто вводить слово "бальница"....
результат очевиден...

QuerySelect.SQL.Text :='select key from работа where upper(работа.работа) = upper(''бальница'')';

[DIgorevich]

Можно упростить вопрос. Имеем таблицу "РАБОТА" в ней два поля: 1 - Key (счетчик) 2 - работа. Как зная значение второго поля узнать соответствующее значение первого поля?

[DIgorevich]

Сообщение от Korben5E

я спросил "а как вообще определяется имя работы?"
если вводится с клавиатуры - то это плохая практика

люди любят часто вводить слово "бальница"....
результат очевиден...

QuerySelect.SQL.Text :='select key from работа where upper(работа.работа) = upper(''бальница'')';

Поле определяется путем выбора из DBCombobox'a

[Korben5E]

Сообщение от DIgorevich

Поле определяется путем выбора из DBCombobox'a

DBCombobox связан с таблицей !

из нее код и читайте как описал раньше

[DIgorevich]

Значит придется расписать поподробнее.... минутку

[DIgorevich]

Имеется таблица "Работа" (описание я уже делал), и имеется таблица "Осужденные" в которой поле "работа" имеет числовой тип и ссылается на таблицу "Работа" по ключевому полю....
Мне надо сделать выборку по "Работе". Список мест работы получаю путем создания компонент:

Var
  a: array [1..30] of TCheckbox; 
  i: integer;
begin
i:=1;
  with mainform.ADOTable5 do //получаю записи в таблице "Работа"
  begin
    open;
    first;
    while not EOF do
    begin
        a[i]:=TCheckbox.create(self);
        a[i].parent:=form7;
        a[i].left:=10;
        a[i].Caption:=mainform.ADOTable5.FieldByName('работа').AsString;
        a[i].top:=i*20;
        a[i].Name:='Checkbox'+inttostr(i);
      inc(i);
      next;
    end;
  end;
end;

И дальше делаю выборку по нажатию кнопки, проверяя какой Чекбокс отмечен. Так вот. Суть вопроса: как узнать значение поля "Key" в таблице "Работа", соответствующее отмеченному Чекбоксу?

[DIgorevich]

Извиняюсь! Дико! Вопрос снимается. Я при создании компонентов добавил строку

a[i].tag:=mainform.ADOTable5.FieldByNam e('key').AsInteger;

И теперь просто имею дело со значением поля key

Но Korben5E, Вам все равно огромное спасибо за участие

[Korben5E]

Сообщение от DIgorevich

Var
  a: array [1..30] of TCheckbox; 
  i: integer;
begin
i:=1;
  with mainform.ADOTable5 do //получаю записи в таблице "Работа"
  begin
    open;
    first;
    while not EOF do
    begin
        a[i]:=TCheckbox.create(self);
        a[i].parent:=form7;
        a[i].left:=10;
        a[i].Caption:=mainform.ADOTable5.FieldByName('работа').AsString;
        a[i].top:=i*20;
        a[i].Name:='Checkbox'+inttostr(i);
      inc(i);
      next;
    end;
  end;
end;

Но я все равно отпишусь first - лишний!
потому как после открытия и так first

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