Delphi считывание значения первичного ключа

[world12_tk]

Здраствуйте уважаемые программисты!!!
Возникла такая проблема....
Есть БД на Access, в которой включены 2 связанные таблицы
С помощью компонента ADOQuery я хочу считать значение первичного ключа, чтобы потом это значение использовать во второй таблицы:

id:=TestForm.ADOQuery1.SQL.Add('SELECT FROM StudentTabel where (id)');

Но почему то в id возвращается значение 0....
Не могли бы вы мне сказать в чем я ошибся...
Заранее спасибо!

[Serge_Bliznykov]

С помощью компонента ADOQuery я хочу считать значение первичного ключа

Допустим. Но в таблице StudentTabel много записей. ID какой именно записи Вы хотите получить?

id:=TestForm.ADOQuery1.SQL.Add('SELECT FROM StudentTabel where (id)');

Не обижайтесь, но это написан ПОЛНЫЙ бред. (чушь, ахинея, ерунда... - можете выбрать по вкусу...)

метод ADD всего навсего добавляет в строку в запрос. И всё.
Ваш код должен выглядеть примерно так:

   TestForm.ADOQuery1.Close;
   TestForm.ADOQuery1.SQL.Clear;
   TestForm.ADOQuery1.SQL.Add('SELECT id FROM StudentTabel where что-то = чему-то');
   TestForm.ADOQuery1.Open;
   if TestForm.ADOQuery1.RecordCount=1 then begin
     {нашли нужный ID}
      id := TestForm.ADOQuery1.FieldByName('id').AsInteger;
   end
   else begin {произошла ошибка}
      if TestForm.ADOQuery1.RecordCount=0 then
         ShowMessage('Ошибка! Ничего не нашлось!')
      else  
         ShowMessage('Ошибка! Сразу несколько записей отвечают заданным условиям отбора!')
    end;     
    {закроем открытый датасет}
    TestForm.ADOQuery1.Close;

NB. разумеется, вместо where что-то = чему-то Вам нужно задать корректное условие отбора нужной записи.
Причём это условие отбора должно гарантировать УНИКАЛЬНОСТЬ записи в таблице.

[world12_tk]

А какое условие нужно поставить, чтобы узнать id последней строки???

[_SERGEYX_]

чтобы узнать id последней строки

Так бы сразу и сказал

SELECT max(id) FROM StudentTabel

[world12_tk]

_SERGEYX_! В этой строке

TestForm.ADOQuery1.SQL.Open;

выдает ошибку:
TStrings does not contain a member named 'Open'

[world12_tk]

_SERGEYX_ Я понял в чем ошибка.... Но далеко так и не продвинулся((((
Теперь в этой строчки он мне выдает ошибку: ADOQuery1:Field 'id' not found. Хотя этот столбец присутствует... Пробывал ставить другой столбец, все равно...
Не могли бы вы мне объяснить в чем ошибка??

 ids := TestForm.ADOQuery1.FieldByName('id').AsInteger;

[Serge_Bliznykov]

выдает ошибку:
TStrings does not contain a member named 'Open'

Угу. это я опечатался - SQL там лишнее (поправил в своём примере выше)!

Не могли бы вы мне объяснить в чем ошибка??

В том, что в запросе: SELECT max(id) FROM StudentTabel
не выбирается поле ID

самый простой способ изименить запрос на такой:

 TestForm.ADOQuery1.SQL.Add('SELECT max(id) as id FROM StudentTabel');

[world12_tk]

Спасибо.... вы мне очень помогли....
Но вот возникла другая проблема.....
Вот я из первой таблицы, где хранится фамилия человека, вытащил id этой строки.
Вдругую таблицу я записываю вопросы для этого id. Но когда вопросов достигает больше чем 1, он начинает ругаться, и говорит о том что не может быть две строчки с одинаковым id.... Может быть я их не правильно связал....!?
Не могли бы вы мне помочь.....
Заранее спасибо....

[Serge_Bliznykov]

Вдругую таблицу я записываю вопросы для этого id. Но когда вопросов достигает больше чем 1, он начинает ругаться, и говорит о том что не может быть две строчки с одинаковым id.... Может быть я их не правильно связал....!?

может быть. А может, структура этой таблицы неверна. Ну или Вы ID не туда вставляете. Или на таблицу неправильно добавлен индекс с уникальностью...
без конкретных данных ничего точно сказать нельзя.

p.s. На форуме правило - одна тема - один вопрос. Поэтому, лучше, если Вы создадите новую тему! и там изложите подробности.

[world12_tk]

Serge_Bliznykov, у меня опять проблема....((((
Когда у меня в таблице есть одна запись, то данный код не выполняется:

  TestForm.ADOQuery1.SQL.Clear;
  TestForm.ADOQuery1.SQL.Add('SELECT id as id FROM StudentTabel');
  TestForm.ADOQuery1.Open;

В последней строчки он выдает ошибку:
Псевдоним 'id' из списка определений SELECT запроса привел к возникновению циклической ссылки.....
Я всю голову сломал, но так и не понял как это исправить и почему это возникло(((
Вы не могли бы мне помочь????
Заранее спасибо....