Добавление информации в БД из делфи

[Mnsh]

Собственно начал писать курсовой проект и возникла проблема с добавлением информации в базуданных. Добавление сделано не по стандартной панели делфи, а через кнопки с кодом. При добавлении информации в БД происходит ошибка. Надеюсь поможите довести до ума программу и подправить ошибки. Заранее спасибо.

[ych_del]

В двух словах:
1. Какая ошибка? Текст интересует.
2. Покажи код добавления - зачем нам остальные 5,38 метра?

[Mnsh]

Я думаю ошибка не в коде. Сама ошибка:
tbl1: Dataset not in edit or insert mode
PS tbl1-ADOTable

[ych_del]

Можно так:

1. Вариант 1 (попроще)

tbl1.Insert;
// Прописываешь все поля (FieldByName('Name').AsDataType := Value, ну, ты знаешь);
tbl1.Post.;

Вариант 2 (посложнее, поинтереснее)

with TADOQuery.Create(Application) do begin
   Connection := tbl1.Connection;
   SQL.Text := 'insert into TABLE_NAME (FIELD1, FIELD2) values (:p1, :P2)';
   ParamByName('p1')
end;

Стоп, дальше можно не дописывать, архив докачался, код вижу (:
Если я правильно понял - из unit2 ты вызываешь Form3, и вот там у тебя начинаются чудеса.

В какой процедуре? Добавление картинки из файла или на tbl1.Post?

[ych_del]

Ну да, в третьей форме, при нажатии кнопки "Сохранить".

1. Не надо класть на каждую форму компонент TADOTable - вынеси его в отдельный юнит, а уже этот юнит использую и там, и там.
2. В форме добавления напиши вот так:

procedure TForm3.FormShow(Sender: TObject);
begin
tbl1.Open;
tbl1.Insert;
end;

tbl1 замени на имя_формы_или_датамодуля_куда_вынес ешь_таблицы.tbl1

Вот, как-то так.

[Mnsh]

Можешь мне это все добавить в программу и залить ее сюда?

[ych_del]

Да чего уж там - давай, я за тебя курсяк напишу.

[Mnsh]

Только добавление информации