ADOQuery, добавление в таблицу.

[Explosion]

Темa: ADOQuery, добавление в таблицу.

Здраствуйте, я только учуся прогать, очень прошу помочь с добавлением в таблицу через компоненты ADO.

Чтоб все вопросы отпали:
- БД пишется на SQL Managment Studio 2005;
- Приложение в Delphi 7;
- Связывал базу и приложение через комопоненты ADO;
- Все ADO компоненты содержатся на DataModule;
- Таблицы привязаны с DataSet'ами;
- Имеются DataSource для связи с ADOQuery;
- Имя полей таблицы, в которую добавляются данные: "PK_Brand" (это первичный ключ, тип integer, свойство identity - yes)
и "Brand"(тип varchar)
- На форме Form1 содержится DBGrid который привязан к датасурсу таблицы бренд, а также содержится edit.

Итак на одной из форм на событие "нажатие" кнопки написал такой код для добавление в таблицу:

procedure TFormBrand.Button1Click(Sender: TObject);
begin
with datamodule2 do
  begin
    ADOQueryBrandAdd.Close
    ADOQueryBrandAdd.SQL.Clear;
    ADOQueryBrandAdd.SQL.Add('insert into Brand (brand) values (___)');
    ADOQueryBrandAdd.Open;
    ADOQueryBrandAdd.EnableControls;
    ADOQueryBrandAdd.Active:=true;
  end;
end;

end.

Мне нужно там, где прочерк в value добавить значение из Edit1.text.
Если вы предложите использование параметра пожалуйста привидите пример кода и
как этим параметром вообще пользоватся...

Если бы пользовался компонентами BDE то код выглядел следующим бы образом думаю:

procedure TFormBrand.Button1Click(Sender: TObject);
begin
with datamodule2 do
  begin
    QueryBrandAdd.Close
    QueryBrandAdd.SQL.Clear;
    QueryBrandAdd.ParamByName('ParamBrand').AsString:=Edit1.Text;
    QueryBrandAdd.SQL.Add('insert into Brand (brand) values (:ParamBrand)');
    QueryBrandAdd.Open;
    QueryBrandAdd.EnableControls;
    QueryBrandAdd.Active:=true;
  end;
end;

А с АДО компонентами как эт провернуть?

[Serge_Bliznykov]

1) запомните.
Если получаете данные из запроса, делаете ему .Open
если же изменяете данные (Insert / Delete / update )
То выполняете ВашdataSet.ExecSQL;

2) никаких хитростей в ADO нет!
можете поступать ТОЧНО так же, как Вы поступали с DBE (только обращение к параметрам идёт через коллекцию .Parameters)
примерно так:

    QueryBrandAdd.SQL.Clear;
    QueryBrandAdd.SQL.Add('insert into Brand (brand) values (:ParamBrand)');
    QueryBrandAdd.Parameters.ParamByName('ParamBrand').AsString:=Edit1.Text;
    QueryBrandAdd.ExecSQL;

[Explosion]

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

1) запомните.
Если получаете данные из запроса, делаете ему .Open
если же изменяете данные (Insert / Delete / update )
То выполняете ВашdataSet.ExecSQL;

Спасибо большое за разъяснение! Теперь буду использовать open и ExecSQL к месту и по назначению =)

Такой вопрос, в коллекции parametrs выбираем ParamByName, а дальше типы не выбираются... После точки нет AsString, AsInteger и т.д. И когда пробую в ручном порядке набить, то выдается ошибка, в которой говорится мол левая часть кода не может связаться с правой.

Полазил по форуму, где-то использовали Value, вроде работает:

ADOQueryBrandAdd.Parameters.ParamByName('ParamBrand').Value:=Edit1.Text;

Сейчас такая проблема, в первый раз запись добавляется, но стоит еще раз нажать на кнопку выпадается ошибка такого характера: "Project такой-то raised exception class EDatabaseError with massage:'ADOQueryBrandAdd: Parametr ParamBrand not found'."
Параметр не найден =\

И еще такой вопрос, как обновить записи в DBGrid?

На данный момент код выглядит так:

procedure TFormBrand.Button1Click(Sender: TObject);
begin
    ADOQueryBrandAdd.DisableControls;
    ADOQueryBrandAdd.Close
    ADOQueryBrandAdd.SQL.Clear;
    ADOQueryBrandAdd.Parametrs.ParamByName('ParamBrand').Value:=Edit1.Text;
    ADOQueryBrandAdd.SQL.Add('insert into Brand (brand) values (:ParamBrand)');
    ADOQueryBrandAdd.ExecSQL;
    ADOQueryBrandAdd.EnableControls;
end;

end.

Подскажите пожалуйста на первый взгляд чего не хватает чтоб избежать данной ошибки и чего не хватает для обновления дбгрида на форме?

[Serge_Bliznykov]

Вы не обратили внимание, а я ведь в своём примере (пост #2) не зря, сначала задал текст запроса,
а потом уже задавал параметер!!!
Это это важно! (удивительно, как у Вас первый раз срабатывает ))

    ADOQueryBrandAdd.SQL.Clear;
    ADOQueryBrandAdd.SQL.Add('insert into Brand (brand) values (:ParamBrand)');
    ADOQueryBrandAdd.Parametrs.ParamByName('ParamBrand').Value:=Edit1.Text;

[Explosion]

Serge_Bliznykov, спасибо вам за помощь =-) Надеюсь эта тема поможет не только мне.
И все-таки логику я так и не уловил... Почему мы используем параметр, у которого еще не определено значение, в тексте запроса и только после текста запроса присваиваем значение параметру? Я просто наверно "параметр" не правильно представляю в голове, для меня это как переменная, которую используют в запросах, а ведь если это переменная то ее нельзя использовать в выражениях предварительно не присвоив значения.

P.S. ДБГрид обновлятся ни в какую не хочет =[

[Explosion]

Если кому-то это в будущем поможет, то чтоб обновить ДБГрид надо было отсоединится от таблицы и снова присоединится, то есть в моем случае тупо:

DataSet.Active:=False;
DataSet.Active:=True;