Делфи выдаёт ошибочку, мот кто знает что это такое)))

[PUSHkiN]

у меня есть база, и там поле tip_usl со значениями Ведущие и т.д. Связьсделана с помощью ADOConnection... когда я вветку дерева пытаюсь что нить вставить, то ошибка такая:
"Project MyProject.exe raised exception class EOleException with message 'Параметр Ведущие не имеет значения по умолчанию'. Process stopped. Use Step or Run to continue."
В Хелпе ничего нормального не написано, а так не могу расковырять и понять что с ним)) помогите плиз разобраться...

[maladoy]

'Параметр Ведущие не имеет значения по умолчанию
вам же делфи все рассказала !!!! она умная!!!
а так бы на код запроса глянуть которым вы данные вытаскиваете???

[PUSHkiN]

procedure Tusers.FormCreate(Sender: TObject);
procedure readTree();
begin
Tree.Items.Clear;
for j:=1 to 100 do
begin
nod[j].name:='';
nod[j].node:=NIL;
end;
//создаём ветки
dtm.Query.Active:=false;
dtm.Query.SQL.Clear;
dtm.query.SQL.Add('select *');
dtm.query.SQL.add('from tip_usl;');
dtm.query.Active:=true;
dtm.Query.First;
i:=0;
while not(dtm.query.Eof) do
begin

i:=i+1;
nod[i].name:=dtm.Query.FieldByName('tip_u sl').AsString;
nod[i].node:=Tree.Items.add(NIL,nod[i].name);
dtm.Query.Next;
end;
//в ветки добавляем под-ветки
for j:=1 to i do
begin
dtm.query.Active:=false; //а проблема где-то ниже
dtm.Query.SQL.Clear;
dtm.query.SQL.Add('select nazv_usl');
dtm.query.SQL.add('from uslugi');
dtm.query.SQL.add('where (tip_usl='+nod[j].name+');');
dtm.query.Active:=true;
dtm.Query.First;
while not(dtm.query.Eof) do
begin
s:=dtm.Query.FieldByName('nazv_usl' ).AsString;
Tree.Items.AddChild(nod[j].node,s);
dtm.Query.Next;
end;
end;
dtm.Query.Active:=false;
end;
begin

tree.Items.Clear;
readTree();
end;


ну как бы вот так я пытаюсь в Дерево базу вывести ))))

// это описание массива для простоты..
nodes=record
name:string;
node:TTreeNode;
end;
var
nod: array [1..100] of nodes;

[maladoy]

dtm.query.SQL.add('from tip_usl');

//после tip_usl точка с запятой не нужна!!!
и как вы из поля данные вытаскиваете????
ведь tip_usl это поле насколько я понял???? а таблица то как называется????

[PUSHkiN]

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

dtm.query.SQL.add('from tip_usl');

//после tip_usl точка с запятой не нужна!!!

так в том месте всё работает.. и точку с запятой можно ставить а можно и нет... тут проблема ниже... а где незнаю...

P.S. даже проверил без точки с запятой...

[maladoy]

вместо

dtm.query.SQL.Add('select *');
dtm.query.SQL.add('from tip_usl;');

вставьте

dtm.query.SQL.Add('select  tip_usl from tab');

где таб - название вашей таблицы с полем тип_усл
и вот тут

dtm.query.SQL.add('where (tip_usl='+nod[j].name+');');

значение nod[j].name должно передаваться в апострофах
т.е

dtm.query.SQL.add('where (tip_usl='+''''+nod[j].name+''''+');');

[PUSHkiN]

да это тоже пробовал.. мне просто так удобнее... этот кусок процедуры работает отменно (всё что надо делает), а вот вот этот:
dtm.query.Active:=false;
dtm.Query.SQL.Clear;
dtm.query.SQL.Add('select nazv_usl'); // это тоже всё работает...
dtm.query.SQL.add('from uslugi'); // т.е. запрос просерял непосредственно в самой базе
dtm.query.SQL.add('where (tip_usl='+nod[j].name+');'); // так что тут что-то так
dtm.query.Active:=true;
dtm.Query.First; // ВОТ ТУТ ОСТАНАВЛИВАЕТСЯ ПРОГРАММА
while not(dtm.query.Eof) do
begin
s:=dtm.Query.FieldByName('nazv_usl' ).AsString;
Tree.Items.AddChild(nod[j].node,s);
dtm.Query.Next;
end;

[maladoy]

значение nod[j].name должно передаваться в апострофах
т.е

Код:

dtm.query.SQL.add('where (tip_usl='+''''+nod[j].name+''''+');');

[PUSHkiN]

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

значение nod[j].name должно передаваться в апострофах

да ты ГЕНИЙ... а я дурень забыл.... спасибо огромное... лови моё признание))))) теперь курсач будет сделан!!!

[maladoy]

удачи!!!!!!!!!!!!