Sql запрос ADO ACCESS

[Konstantin_ua]

Доброго времени суток
есть оч глупый вопрос: как получить значение поля id с этого sql запроса?

ADOQuery1.SQL.Text := 'SELECT id FROM login WHERE Log = :p_log AND Pass = :p_pass';
ADOQuery1.Parameters.ParamByName('p_log').Value := Log;
ADOQuery1.Parameters.ParamByName('p_pass').Value := Pass;

[Serge_Bliznykov]

так устроит?

ADOQuery1.SQL.Text := 'SELECT id FROM login WHERE Log = :p_log AND Pass = :p_pass';
ADOQuery1.Parameters.ParamByName('p_log').Value := Log;
ADOQuery1.Parameters.ParamByName('p_pass').Value := Pass;

ADOQuery1.ExecSQL;
if ADOQuery1.RecordCount=0 then ShowMessage('Ничего не найдено')
else 
  if ADOQuery1.RecordCount>1 then ShowMessage('Найдено '+InToStr(ADOQuery1.RecordCount)+' записей. Нужно их перебирать в цикле')
  else {найдена строго одна запись}
     ShowMessage('ID = '+IntToStr(ADOQuery1.FieldByName('id').AsInteger));

[Konstantin_ua]

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

так устроит?

ADOQuery1.SQL.Text := 'SELECT id FROM login WHERE Log = :p_log AND Pass = :p_pass';
ADOQuery1.Parameters.ParamByName('p_log').Value := Log;
ADOQuery1.Parameters.ParamByName('p_pass').Value := Pass;

ADOQuery1.ExecSQL;
if ADOQuery1.RecordCount=0 then ShowMessage('Ничего не найдено')
else 
  if ADOQuery1.RecordCount>1 then ShowMessage('Найдено '+InToStr(ADOQuery1.RecordCount)+' записей. Нужно их перебирать в цикле')
  else {найдена строго одна запись}
     ShowMessage('ID = '+IntToStr(ADOQuery1.FieldByName('id').AsInteger));

Да очень помогло, спасибо. В особенности интересовала эта строчка ADOQuery1.FieldByName('id').AsInteg er)
А если записей несколько, то нужно как то будет обращаться к определенной записи ну или перебирать их, как это реализовать?

[impeee]

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

Да очень помогло, спасибо. В особенности интересовала эта строчка ADOQuery1.FieldByName('id').AsInteg er)
А если записей несколько, то нужно как то будет обращаться к определенной записи ну или перебирать их, как это реализовать?

в цикле перебирать все записи поля
например, выбрать id равную 3.

for i:= 0 to ADOQuery1.RecordCount - 1 do
begin
if ADOQuery1.FieldByName('id').AsInteger = 3 then
 begin
   ...
 end;
ADOQuery1.Next;
end;

[Konstantin_ua]

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

в цикле перебирать все записи поля
например, выбрать id равную 3.

for i:= 0 to ADOQuery1.RecordCount - 1 do
begin
if ADOQuery1.FieldByName('id').AsInteger = 3 then
 begin
   ...
 end;
ADOQuery1.Next;
end;

Спасибо огромное, очень помогли

[Serge_Bliznykov]

хочу отметить, что я в запарке ошибся!
Рад, что моя оплошность не помешала.

Разумеется, вместо ADOQuery1.ExecSQL; в открытия датасета (выборки данных) должно быть

ADOQuery1.Open;

[evg_m]

например, выбрать id равную 3.

if ADOQuery1.Locate('id', 3, []) then
  showMessage('ура нашли!)
else
  showmessage('такой записи не обнаружили!');

если все же хотите в цикле, то лучше заменить цикл for ... ADOQuery1.recordCount на while not ADOQuery1.EOF
избавитесь потом от многих возможных проблем (которые сейчас кажутся несущественными, так как вы не пользуетесь многими возможностями.)
но как только ваши потребности (и возможности/знания) возрастут (начнете использовать "блуждание" по набору, "внутренняя" фильтрация данных)
вы эти проблемы "неожиданный" выход за пределы набора EOF сразу ощутите.