Выборка с использованием переменной

[viks1]

Есть запрос

procedure TForm10.NKClick(Sender: TObject);
var
temp:integer;
begin
temp:=StrToInt(N1.Text);
DataModule6.Qvid_kletki.Active:=false;
DataModule6.Qvid_kletki.SQL.Clear;
DataModule6.Qvid_kletki.SQL.Add('SELECT * FROM [Вид клетки]');
DataModule6.Qvid_kletki.SQL.Add('Where [Код вида клетки]='''+temp+'''');
DataModule6.Qvid_kletki.Active:=true;

не принимает integer

как быть?

Может мою задачу можно обойти другой стороной...

Задача такова:
Есть 2 таблицы. Вид клетки и Клетки
В таблице клетки есть поле Код вида он связан с полем из таблицы Вид клетки "Код клетки"
Там есть поле "Наименование"
Как мне вывести это поле в любой компонент... пусть то DBText , так, что бы при выборе данных из таблицы Клетки, оно автоматически подставляло значение из таблицы Вид клетки поле "Наименование"??

[Аватар]

Тип поля Код вида клетки какой?

[evg_m]

DataModule6.Qvid_kletki.Active:=false;
DataModule6.Qvid_kletki.SQL.Text:='SELECT * FROM [Вид клетки]' Where [Код вида клетки]=:tmp'; //и поскольку теперь эта строка никак не зависит от конкретного значения ее можно задать один раз при дизайне (ObjectInspector) 
DataModule6.Qvid_kletki.Params.Parambyname('tmp').value:=temp; //а здесь возможны вариации определяемые типом переменной Qvid_kletki (TADO..., TIB..., ...)
// (Parameters|Parameterbyname|asinteger|asvariant) 
DataModule6.Qvid_kletki.Params.Parambyname('tmp').value:=N1.Text;

[evg_m]

В таблице клетки есть поле Код вида он связан с полем из таблицы Вид клетки "Код клетки"
Там есть поле "Наименование"
Как мне вывести это поле в любой компонент...

перейти от таблиц к SQL запросам из нескольких таблиц (left|inner join)

select kletki.*, vid.<поле именования> from kletki 
left join vid on kletki.<поле связи> = vid.<поле ключа>
where kletki. .....

DBText.Fieldname :=<поле наименования>