Добовление в таблицу access

[girz]

Есть код

procedure TfrmAddTovar.Button2Click(Sender: TObject);
var
  lADOQuery: TADOQuery;
  lUniqueNumber,lUniqueNumberMethod: Integer;
  str:string;
begin
  str:=cbType.text;
  Delete(str,Pos('.',str),length(str));
  if (edMarka.Text<>'') AND (edDescript.Text<>'') AND (edSerial.text<>'')
    AND (edPrice.Text<>'') AND (edSrok.text<>'') AND (edMethod.Text<>'') then
  begin
    lADOQuery := TADOQuery.Create(nil);
    with lADOQuery do
    begin
      ConnectionString:=frmMain.GetConnectionString;
      try
        SQL.Text:='SELECT КодТовара from Товары ORDER BY Товары.КодТовара;';
        Open;
        Last;
        lUniqueNumber:=1+StrToInt(FieldByName('КодТовара').AsString);
      except
        lUniqueNumber:=1;
      end;
      Close;
      SQL.Text:='INSERT INTO Доставка Values ('+IntToSTr(lUniqueNumber)+','
      +#39+edMethod.Text+#39+');';
      ExecSQL;
      SQL.Text:='INSERT INTO Товары Values ('+IntToSTr(lUniqueNumber)+','
      +#39+edMarka.Text+#39+','+#39+edDescript.Text+#39+','+str+','+#39+edSerial.Text+#39
      +','+#39+edPrice.Text+#39+','+IntToStr(seCount.Value)+','+#39+edSrok.Text+#39+');';
      ExecSQL;
      frmAddTovar.Close;
    end;
  end else
    ShowMessage('Ошибка! Все поля должны быть заполнены.');
end;

-----------------------------
Нужно переделать под ado
то есть было типо
\\точно незнаю но примерно так, технология ado+delphi+Access

adoquery1.active:=false;
 adoquery1.sql.clear;
 adoquery1.sql.text:='INSERT INTO Товары Values ('+#39+edMarka.Text+#39+','+#39+edDescript.Text+#39+')';
 adoquery1.ExecSQL;

[girz]

В общеем задача следующая. (Ado+delphi+access)
Есть Form1 с dbgrid, где есть таблица товар, в которой два поля марка и вид.(пример)
На ней кнопка добавить, после открывается form2 где есть два edita и кнопка ок.
По нажатию на кнопку должны данные добовлятся в таблицу.

[Sparky]

заводишь вспомогательный query, если при при помощи первого данные отображаются.
При нажатии на кнопку пишешь код:
adoquery2.close;
adoquery2.sql.text:='insert into t_tovar (marka,vid) values (:marka,:vid)';
adoquery2.Parametrs.ParanByName('ma rka').value:=Edit1.text;
adoquery2.Parametrs.ParanByName('vi d').value:=Edit2.text;
adoquery2.execSQL;
//далее для обновления даных в гриде необходимо сделать так:
adoquery1.close;
adoquery1.open;

[girz]

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

заводишь вспомогательный query, если при при помощи первого данные отображаются.
При нажатии на кнопку пишешь код:
adoquery2.close;
adoquery2.sql.text:='insert into t_tovar (marka,vid) values (:marka,:vid)';
adoquery2.Parametrs.ParanByName('ma rka').value:=Edit1.text;
adoquery2.Parametrs.ParanByName('vi d').value:=Edit2.text;
adoquery2.execSQL;
//далее для обновления даных в гриде необходимо сделать так:
adoquery1.close;
adoquery1.open;

спасибо код работает отлично, а как сделать так чтобы можно добавлять в разные таблицы выбирая их в комбобоксе.

[Evgeniy26]

insert into :<tablename> (marka,vid) values (:marka,:vid)
если поля в таблицах разные тогда типа этого:

  adoquery2.Clear;
  case ComboBox.ItemIndex of
    0: begin
          adoquery2.sql.Add('insert into t_tovar (marka,vid) values (:marka,:vid)');
          adoquery2.Parametrs.ParanByName('ma rka').value:=Edit1.tex t;
          adoquery2.Parametrs.ParanByName('vi d').value:=Edit2.text;
      end;
    1: //Соответствующие данные для соответствующей таблице.
  end;
  adoquery2.execSQL;

[girz]

А как загрузить данные в Combobox из одного столбика таблицы базы данных, с помощью какого запроса через ado.
Спасибо.

[Evgeniy26]

Компонент DBLookupComboBox - стандартный компонент. Я пользуюсь компоненто DBLookupComboboxEh из билиотеки EhLib - данную библиотеку можно скачать сдесь http://torrents.ru/forum/index.php. Указываете в них DataSourece необходимой таблице и поле

[Sparky]

DBLookupComboBox не самый лучший компонент!!! Лучше сделать самим при помощи combobox
procedure insertComboBox;
AdoQuery1.first;
while not adoquery.eof do
begin
combobox.items.add(adoquery.fieldBy Name('myfield').value);
adoquery1.next
end;
end;

[Evgeniy26]

Sparky. А если будет 1000 записей? Сколь времени надо ждать для заполнения?

[Sparky]

а ты думаешь DBLookupComboBox подругому работает??? хорошо представим что у нас 1000 записей и нам нужно запись находящаяся в конце ты листать будешь?? или при помощи combobox мы вписываем первую букву и нам подставляется значение.