Добавление записи в бд

[yuta_86]

добрый день, как добавить запись в бд Acceess.

пишу такой код

procedure TForm3.Button12Click(Sender: TObject);
begin
if not AdoTable1.CanModify then
 begin
   beep;
   MessageDlg('Редактирование запрещено',mtInformation,[mbOK],0);
   exit;
  end;

AdoTable1.InsertRecord([nil,Edit8.Text, Edit8.Text, Edit8.Text, StrToDateTime('01.01.0001') ]);
  AdoTable1.Post;
end;

вот на этом самом AdoTable1.Post; вылетает ошибка

Adotable1: Dataset not in edit or insert mode

я так понимаю редактирование или вставка запрещено.
а как включить редактирование?


пробовал ещё писать так

AdoTable1.FieldByName('family').AsString:=Edit8.Text;
AdoTable1.FieldByName('name').AsString:=Edit8.Text;
AdoTable1.FieldByName('year_born').AsDateTime:=StrToDateTime('01.01.0001');
AdoTable1.Post;

в таблице программы отображалось но в самой базе ничего не было.

подскажите, что делаю не так.
спасибо

[yuta_86]

кстати во-втором случае

AdoTable1.FieldByName('family').AsS tring:=Edit8.Text;
 AdoTable1.FieldByName('name').AsStr ing:=Edit8.Text;
 AdoTable1.FieldByName('year_born'). AsDateTime:=StrToDateTime('01.01.00 01');
 AdoTable1.Post;

всё отображается и в базе верно

а в первом в базе не добавляется

думаю проблема в

AdoTable1.InsertRecord([nil,Edit8.Text, Edit8.Text, Edit8.Text, StrToDateTime('01.01.0001') ]);

а именно в nil

[Stilet]

а именно в nil

А я думаю что ты просто не перевел в режим вставки или редактирования.
Я так не делаю, так что навскидку выполни AdoTable1.Edit а потом уже и твой InsertRecord.

[yuta_86]

попробовал и ничего не изменилось.....

[Serge_Bliznykov]

ну ещё раз попробуйте.. так, например:

procedure TForm3.Button12Click(Sender: TObject);
begin
if not AdoTable1.CanModify then
 begin
   beep;
   MessageDlg('Редактирование запрещено',mtInformation,[mbOK],0);
   exit;
  end;

  AdoTable1.Append;
  AdoTable1.FieldByName('family').AsString:=Edit8.Text;
  AdoTable1.FieldByName('name').AsString:=Edit8.Text;
  AdoTable1.FieldByName('year_born').AsDateTime:=StrToDateTime('01.01.0001');
  AdoTable1.Post;
end;

p.s. если у Вас ключевое поле не счётчик, то его надо обязательно задавать!

[yuta_86]

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

p.s. если у Вас ключевое поле не счётчик, то его надо обязательно задавать!

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

если использовать AdoTable1.FieldByName(.....) то всё работает мне не понятно почему не хочет с AdoTable1.InsertRecord

[yuta_86]

ещё очень интересная вещь выяснилась....

AdoTable1.Insert;
AdoTable1.FieldByName('family').AsS tring:=Edit8.Text;
AdoTable1.FieldByName('name').AsStr ing:=Edit8.Text;
AdoTable1.FieldByName('year_born'). AsDateTime:=StrToDate('11.01.2001') ;


записи во время работы программы добавляются в конец. стоит закрыть приложение и снова его открыть то те записи, которые добавились они вообще где-то посередине. если делать сортировку по индексу то всё нормально. стоит закрыть приложение то же самое.....

[yuta_86]

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

[yuta_86]

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

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

решилось обновлением другой таблицы..... другого способа не нашёл

[ТрофимоваО]

procedure TForm9.Label4Click(Sender: TObject);
begin
ADOTable1.insert;
ADOTable1.FieldByName('Фамилия'). AsString:=form8.Edit1.Text; // добавляем в поле фамилии значение из текстового поля
ADOTable1.FieldByName('Имя'). AsString:=form8.Edit2.Text;
ADOTable1.FieldByName('Отчество'). AsString:=form8.Edit3.Text;
ADOTable1.FieldByName('Группа'). AsString:=form8.Edit4.Text;
ADOTable1.Post;
ADOTable1.Close;
form10.Show;
form9.Hide;
end;