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

[xbron]

Добрый день! Программа должна выдать студентов, которые учатся на том же курсе , что и студент с заданным номером. Есть бд Access, в ней 3 поля id - int, fio - string, groups - string, course - int. При вводе в поле (edit) цифры (то есть номер студента) и соответственно после нажатии кнопки (getnumber - button), то программа пишет " несоответствие типов данных"

procedure TForm1.GetnumberClick(Sender: TObject);
var n:integer;
begin
n:=strtoint(add_spisok.text);
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=''+n+'')');
adoquery1.open;
end;

[xbron]

Сам SQL-код работает в Access'e, если вместо n вставить число(номер из списка)

[Аватар]

Здесь попытка сцепить символьные строки с Integer. Не пройдет. Или преобразовать n в строку. Или использовать параметризованный запрос, что лучше

[xbron]

А не могли бы вы объяснить, как это можно написать? С параметрами я не очень сильно знаком. А вот почему не сработала моя переменная, я же её преобразовал в Integer ?

[Konstantin_ua]

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

А не могли бы вы объяснить, как это можно написать? С параметрами я не очень сильно знаком. А вот почему не сработала моя переменная, я же её преобразовал в Integer ?

      procedure TForm1.GetnumberClick(Sender: TObject);
var n:integer;
begin
n:=strtoint(add_spisok.text);
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select id as par1 ,fio as par2,groups as par3,course as par4 from students where course=(select course from students where id=:par5)');
adoquery1.Parameters.ParamByName('par1').Value:=''Номер'';
adoquery1.Parameters.ParamByName('par2').Value:=значение которое нужно;
adoquery1.Parameters.ParamByName('par3').Value:=значение которое нужно;
adoquery1.Parameters.ParamByName('par4').Value:=значение которое нужно;
adoquery1.Parameters.ParamByName('par5').Value:=значение которое нужно;
adoquery1.open;
end;

Думаю так

id=''+n+''

id=n так разве не работает?

[xbron]

id=n также говорит, что не соответствует тип данных. Простите, а что за par5, если у меня всего 4 поля?

[xbron]

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

      procedure TForm1.GetnumberClick(Sender: TObject);
var n:integer;
begin
n:=strtoint(add_spisok.text);
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select id as par1 ,fio as par2,groups as par3,course as par4 from students where course=(select course from students where id=:par5)');
adoquery1.Parameters.ParamByName('par1').Value:=''Номер'';
adoquery1.Parameters.ParamByName('par2').Value:=значение которое нужно;
adoquery1.Parameters.ParamByName('par3').Value:=значение которое нужно;
adoquery1.Parameters.ParamByName('par4').Value:=значение которое нужно;
adoquery1.Parameters.ParamByName('par5').Value:=значение которое нужно;
adoquery1.open;
end;

Думаю так


id=n так разве не работает?

Кстати этот код не работает, пишет, что не найден par1 я написал вот так

     procedure TForm1.GetnumberClick(Sender: TObject);
var n:integer;
begin
n:=strtoint(add_spisok.text);
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select id as par1 ,fio as par2,groups as par3,course as par4 from students where course=(select course from students where id=:par4)');
adoquery1.Parameters.ParamByName('par1').Value:='Номер';
adoquery1.Parameters.ParamByName('par2').Value:='ФИО';
adoquery1.Parameters.ParamByName('par3').Value:='Группы';
adoquery1.Parameters.ParamByName('par4').Value:=n;
adoquery1.open;
end;

[Аватар]

Здесь только один параметр - par4. Откуда другие взялись?

[xbron]

Понятия не имею, выше код предложили, я его и использовал

[xbron]

Попробовал вот так, теперь в DBGrid ничего не выводит

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=:par1)');
adoquery1.Parameters.ParamByName('par1').Value:=strtoint(add_spisok.text);
end;