[delphi] ADOQuery Проблема

[Serge_Bliznykov]

1)

Adoquery1.Active:=False;
Adoquery1.Close;

достаточно одной (любой) команды - это ПОЛНЫЕ синонимы!
так же, как Adoquery1.Active:=True полностью идентично Adoquery1.Open.

но это не ошибка.
проблема в чём то другом...
честно говоря, я не вижу косяков..
поэтому Вам нужно.
1) попробуйте взять все имена полей и таблиц в квадратные скобки:
Adoquery1.SQL.Add('insert into [Состав]');
Adoquery1.SQL.Add('([Имя],[Ник],[Класс],[констпати])');
и проверьте, что в таблице Состав есть такие поля!
2) приведите структуру таблицы Состав (а лучше сделайте небольшую тестовую базку в MDB, запакуйте и прикрепите архив сюда, на форум)..
3) попробуйте перед
Adoquery1.ExecSQL;
выдать текст запроса (ну, например, киньте на форму MEMO и сделайте MEMO1.Text := Adoquery1.SQL.Text;
тогда Вы увидете полный текст запроса... этот текст можно скопировать и попытатьс выполнить из среды самой СУБД... часто так выявляются неочевидные ошибки...

дерзайте... дорогу осилит идущий..

[фЁдОр]

могу предложить другой вариант

Adoquery1.Insert;
Adoquery1.FieldValues['Класс']:=DBLookupComboBox1.Text;
//аналогчно добавлять записи в другие поля
Adoquery1.Post;

PS: переименуйте название таблицы и полей на английский

[sPan4eZ]

Сделал все намного проще))))

Adoquery1.Active:=False;
Adoquery1.Close;
Adoquery1.SQL.Clear;
Adoquery1.SQL.Add('insert into Состав (Имя,Ник,Класс,Звание,Констпати)');
Adoquery1.SQL.Add('Values("'+Edit1.Text+'","'+Edit2.Text+'","'+DBLookupComboBox1.Text+'","'+Edit5.Text+'","'+DBLookupComboBox2.Text+'")');
Adoquery1.ExecSQL;
Adoquery1.Close;
Adoquery1.SQL.Clear;
Adoquery1.SQL.Add('select * from Состав');
Adoquery1.Open;

За советы Спасибо

[sPan4eZ]

Всем спасибо кто помогал жалко нету кнопки спасибо(

[sPan4eZ]

Народ а можно сделать в программе обновление Access BD через интернет чтобы программа искала более новую версию Access BD?