ADO. Запрос на добавление. Ошибка.

[Son]

Проблема следующая. Есть БД в Access. В ней таблица polu4 с полями id (целое, ключевое) и name (текстовое 50 символов). Выполняю запрос на добавление:
procedure TForm1.Button2Click(Sender: TObject);
begin
DataSource1.DataSet:=nil;
ADOQuery1.Active:=false;
ADOQuery1.SQL.Text:=('INSERT INTO polu4 (id , name) VALUES (1, "Про")');
ADOQuery1.Open;
ADOQuery1.Active:=false;
ADOQuery1.SQL.Text:=('SELECT * FROM polu4');
ADOQuery1.Open;
DataSource1.DataSet:=ADOQuery1;
end;
Возникает ощибка следующего содержания:

Что я делаю не так?

[Sm1Le]

id - случайно не автоматом должно добавлять значение ?? =)) (Счетчик?)

[Son]

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

id - случайно не автоматом должно добавлять значение ?? =)) (Счетчик?)

В принципе да. Я тоже думал ошибка в этом. поэтому поставил прочто целое число. Со счетчиком аналогично не работает.

[Sm1Le]

ADOQuery1.SQL.Text:=('INSERT INTO polu4 (id , name) VALUES (1, "Про")');

можно так :

ADOQuery1.SQL.Text:='INSERT INTO polu4 (id , name) VALUES (1, "Про")';

но это не суть важно ... Видимо оно второй параметр не видит правильно ... Какие то траблы со кавычками... Акцеса нету проверить =(((

[Son]

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

ADOQuery1.SQL.Text:=('INSERT INTO polu4 (id , name) VALUES (1, "Про")');

можно так :

ADOQuery1.SQL.Text:='INSERT INTO polu4 (id , name) VALUES (1, "Про")';

но это не суть важно ... Видимо оно второй параметр не видит правильно ... Какие то траблы со кавычками... Акцеса нету проверить =(((

Совершенно верно. Не суть важно. Проблема остается)

[mihali4]

Вот эта конструкция всегда будет давать ошибку:
ADOQuery1.SQL.Text:=('INSERT INTO polu4 (id , name) VALUES (1, "Про")');
ADOQuery1.Open;
Зарубите себе на носу, что ли, что
ADOQuery1.Open используется только для получения набора данных, возвращаемого запросом (а тут он ничего не возвращает!)
ADOQuery1.ExecSQL - для выполнения операций по удалению, вставке и т.д., т.е. операций, по определению не возвращающих ничего...

[Sm1Le]

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

Вот эта конструкция всегда будет давать ошибку:
ADOQuery1.SQL.Text:=('INSERT INTO polu4 (id , name) VALUES (1, "Про")');
ADOQuery1.Open;
Зарубите себе на носу, что ли, что
ADOQuery1.Open используется только для получения набора данных, возвращаемого запросом (а тут он ничего не возвращает!)
ADOQuery1.ExecSQL - для выполнения операций по удалению, вставке и т.д., т.е. операций, по определению не возвращающих ничего...

+1 тормоз Я =((( Сам люблю в это носом тыкать а тут =((( спс =)) ...

[Son]

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

Вот эта конструкция всегда будет давать ошибку:
ADOQuery1.SQL.Text:=('INSERT INTO polu4 (id , name) VALUES (1, "Про")');
ADOQuery1.Open;
Зарубите себе на носу, что ли, что
ADOQuery1.Open используется только для получения набора данных, возвращаемого запросом (а тут он ничего не возвращает!)
ADOQuery1.ExecSQL - для выполнения операций по удалению, вставке и т.д., т.е. операций, по определению не возвращающих ничего...

Ошибка остается.
Весь код программы:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids;

type
TForm1 = class(TForm)
DataSource1: TDataSource;
DBGrid1: TDBGrid;
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
DataSource1.DataSet:=ADOQuery1;
ADOQuery1.Active:=true;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
DataSource1.DataSet:=nil;
ADOQuery1.Active:=false;
ADOQuery1.SQL.Text:='INSERT INTO polu4 (id , name) VALUES (1, "Про")';
ADOQuery1.ExecSQL;
ADOQuery1.Active:=false;
ADOQuery1.SQL.Text:=('SELECT * FROM polu4');
ADOQuery1.ExecSQL;
DataSource1.DataSet:=ADOQuery1;

end;

end.

[Sm1Le]

ADOQuery1.SQL.Text:=('SELECT * FROM polu4');
ADOQuery1.ExecSQL;

Перечитай пост Михалыча ! ! !

ADOQuery1.SQL.Text:=('SELECT * FROM polu4');
ADOQuery1.Open;

[Son]

Не помогло. Ошибка стопрится после превой строки ADOQuery1.ExecSQL;
после запроса на добавление.