Несоответствие типов данных

[xbron]

Если написать просто так

procedure TForm1.GetnumberClick(Sender: TObject);
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select id as ''Номер'' ,fio as ''ФИО'' ,groups as ''Группа',course as ''Курс'' from students where course=(select course from students where id=56)');
end;

То код работает нормально, т.е. выводит всех студентов того же курса, что и студент под номером 56

[Serge_Bliznykov]

Программа должна выдать студентов, которые учатся на том же курсе , что и студент с заданным номером.

номер - это что, ID студента?! А откуда пользователь этот ID знает?!
Ну, раз знает, тогда можно и запрос написать...

так устроит?

procedure TForm1.GetnumberClick(Sender: TObject);
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select id as [Номер] ,fio as [ФИО] ,groups as [Группа], course as [Курс] from students where course=(select course from students where id='+add_spisok.text+')');
adoquery1.open;
end;

p.s. Но лучше, конечно, с параметром написать:

procedure TForm1.GetnumberClick(Sender: TObject);
begin
  adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add('select id as [Номер] ,fio as [ФИО] ,groups as [Группа], course as [Курс] from students where course=(select course from students where id=:parId)');
  adoquery1.Parameters.ParamByName('par1').Value:=StrToInt(add_spisok.text);
  adoquery1.open;
end;

[xbron]

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

procedure TForm1.GetnumberClick(Sender: TObject);
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select id as [Номер] ,fio as [ФИО] ,groups as [Группа], course as [Курс] from students where course=(select course from students where id='+add_spisok.text+')');
adoquery1.open;
end;

procedure TForm1.GetnumberClick(Sender: TObject);
begin
  adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add('select id as [Номер] ,fio as [ФИО] ,groups as [Группа], course as [Курс] from students where course=(select course from students where id=:parId)');
  adoquery1.Parameters.ParamByName('par1').Value:=StrToInt(add_spisok.text);
  adoquery1.open;
end;

Писал и так и так...В первом случае выдает, что не соответствует тип данных, т.к. у меня id - int, а +add_spisok+.text - string. Во втором случае выводит пустой DBGrid

[eval]

беда, ну ни как не хочет работать пол строки кода

[xbron]

Я о том же, перепробовал все варианты. И с параметрами и без. На вид код самый обыкновенный и легкий, а работать отказывается, думал моя невнимательность и что-то упустил, так нет же, всё также, как и форумчане написали

[Serge_Bliznykov]

я не верю, что запрос:

'select id as ''Номер'' ,fio as ''ФИО'' ,groups as ''Группа',course as ''Курс'' from students where course=(select course from students where id=56)'

работает.

а запрос:

adoquery1.SQL.Add('select id as [Номер] ,fio as [ФИО] ,groups as [Группа], course as [Курс] from students where course=(select course from students where id='+add_spisok.text+')');

НЕТ!

проверяйте, что у Вас в add_spisok.text...

так. а такой запрос будет работать?!

procedure TForm1.GetnumberClick(Sender: TObject);
begin
  add_spisok.text := '56';

  adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add('select id as [Номер] ,fio as [ФИО] ,groups as [Группа], course as [Курс] from students where course=(select course from students where id='+add_spisok.text+')');
adoquery1.open;
end;

если нет - то покажите скриншот с вашми кодом и скриншот ошибки.

Во втором случае выводит пустой DBGrid

у Вас есть уверенность, что указанный вами в add_spisok номер имеется в списке ID студентов?!


p.s. часто для отладки удобно отобразить запрос где-нибудь в Memo (туда же выгрузить параметры, если запрос с параметрами) и посмотреть, что за запрос Вы фактически выполняете...

[xbron]

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

я не верю, что запрос:

работает.

у Вас есть уверенность, что указанный вами в add_spisok номер имеется в списке ID студентов?!


p.s. часто для отладки удобно отобразить запрос где-нибудь в Memo (туда же выгрузить параметры, если запрос с параметрами) и посмотреть, что за запрос Вы фактически выполняете...

Да, работает. Проверил в Accesse и в Delphi. Да я уверен, так как вписывал в add_spisok.text то же число что и в обычном запросе. А как выгрузить параметры? Я просто писал, что не сильно знаком с параметрами.

[xbron]

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

так. а такой запрос будет работать?!

procedure TForm1.GetnumberClick(Sender: TObject);
begin
  add_spisok.text := '56';

  adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add('select id as [Номер] ,fio as [ФИО] ,groups as [Группа], course as [Курс] from students where course=(select course from students where id='+add_spisok.text+')');
adoquery1.open;
end;

если нет - то покажите скриншот с вашми кодом и скриншот ошибки.

Да, работает. Я же говорю, что, если просто вставить вместо +add_spisok.text+ например то же самое число 56, то работать будет! А вот мне нужно, чтобы это число вводил я сам.

[eval]

может с руками что? попросите кого другого ввести

[xbron]

По-вашему я написал программу, а ввести в эдит цифру не могу?