проблема с запросом

[chircov090993]

var s, id:string;

begin
s:=treeview1.Selected.Text;
//DataModule2.books.close;
DataModule2.Q1.active:=false;
DataModule2.Q1.SQL.Clear;
DataModule2.Q1.SQL.Add('select * from T_podkateg_1 ') ;
DataModule2.Q1.SQL.Add('where podkateg_1_name ='+s) ;

DataModule2.Q1.active:=true;
id:=DataModule2.Q1.FieldByName('id_ podkateg_1').AsString;
showmessage(id);
DataModule2.books.SQL.clear;
DataModule2.books.SQL.Add('select * from T_kniga where id_podkateg1 ='+id);
//DataModule2.books.Open;
DataModule2.books.active:=true;
end;

данные находятся в treeview1. Нужно сравнить имя из базы таблицы T_podkateg_1 с именем в treeview1 , вывести ID в переменную и сравнить в базе ID. Ошибка "Параметр "значение из триивиев" не имеет значения по умолчанию на строке

id:=DataModule2.Q1.FieldByName('id_ podkateg_1').AsString;

Помогите найти ошибку

[Stilet]

Во-первых:

if treeview1.Selected then 
 s:=treeview1.Selected.Text;
...
И т.д.

ибо могут бытьслучаи когда ты ничего не выбрал.

Во-вторыхodkateg_1_name какого типа? Если число то еще полбеды. Если строка то нужно ее брать в ковычки:

DataModule2.Q1.SQL.Add('where podkateg_1_name ='+QuoyedStr(s)) ;

Ну а если дата то там другой бубен нужен...
В-третьих:А че ты так уверен что запрос тебе что-то вернет?

DataModule2.Q1.active:=true;
if  DataModule2.Q1.eof then ShowMessage('Пусто');exit;end;
id:=DataModule2.Q1.FieldByName('id_ podkateg_1').AsString;
...

Ну короче тут нужно код в порядок приводить.

[chircov090993]

спасибо, помогло!