Проблема с БД на парадоксе

[Toky]

Все работает вроде как без ошибок единственное что это почему-то когда редактирую запись через созданное окно открывает ту запись которую я выбрал, а редактирует и вностит изменения в последнюю запись как это исправить, что я делаю не правильно, вот код:

form2.Table1.Edit; 
form2.Table1.Fields[1].AsString :=Edit1.Text; 
form2.Table1.Fields[2].AsString :=Edit2.Text; 
form2.Table1.Fields[3].AsString :=Edit3.Text; 
form2.Table1.Fields[4].AsString := Datetostr(DateTimePicker1.Date); 
form2.Table1.Fields[5].AsString :=combobox1.Text; 
Form2.Table1.fields[6].AsString:=ComboBox2.Text; 
Form2.Table1.fields[8].AsString:=Edit4.Text; 
Form2.Table1.fields[9].AsString:=Edit5.Text; 
if (p1<>'') and (p1<>ExtractFilePath(Application.ExeName)+'No_image.bmp')then 
(Form2.Table1.FieldByName('Photo') as TBlobField).LoadFromFile(p1); 
if (p2<>'') and (p2<>ExtractFilePath(Application.ExeName)+'No_image.bmp')then 
(Form2.Table1.FieldByName('Alfa') as TBlobField).LoadFromFile(p2); 
if (p3<>'') and (p3<>ExtractFilePath(Application.ExeName)+'No_image.bmp') then 
(Form2.Table1.FieldByName('Gamma') as TBlobField).LoadFromFile(p3); 
if (p4<>'') and (p4<>ExtractFilePath(Application.ExeName)+'No_image.bmp') then 
(Form2.Table1.FieldByName('Teta') as TBlobField).LoadFromFile(p4); 
if (p5<>'') and (p5<>ExtractFilePath(Application.ExeName)+'No_image.bmp')then 
(Form2.Table1.FieldByName('Delta') as TBlobField).LoadFromFile(p5); 
form2.Table1.Post;

Странно но новых записей она тоже не добавляет хотя все написано правильно через: инсерт, раньше добавляло а щас че-то нет.

[mihali4]

У нас принято оформлять код специальным тэгом - кнопочка "#".
По теме.

все написано правильно через: инсерт

И где он, ваш INSERT ?
Чтой-то не наблюдаю...
Вы просто редактируете запись.

редактирует и вносит изменения в последнюю запись

Значит, где-то вы перебираете записи вроде

while not Form2.Table1.Eof do

или делаете

Form2.Table1.Last

[Toky]

Ок. Ну допустим пишу я:

form2.Table1.Insert;
form2.Table1.Fields[1].AsString :=Edit1.Text;
form2.Table1.Fields[2].AsString :=Edit2.Text;
form2.Table1.Fields[3].AsString :=Edit3.Text;
form2.Table1.Fields[4].AsString := Datetostr(DateTimePicker1.Date);
form2.Table1.Fields[5].AsString :=combobox1.Text;
Form2.Table1.fields[6].AsString:=ComboBox2.Text;
Form2.Table1.fields[7].AsString:=Label10.Caption;
Form2.Table1.fields[8].AsString:=Edit4.Text;
Form2.Table1.fields[9].AsString:=Edit5.Text;
if p1<>''then
(Form2.Table1.FieldByName('Photo') as TBlobField).LoadFromFile(p1);
if p2<>'' then
(Form2.Table1.FieldByName('Alfa') as TBlobField).LoadFromFile(p2);
if p3<>''then
(Form2.Table1.FieldByName('Gamma') as TBlobField).LoadFromFile(p3);
if p4<>'' then
(Form2.Table1.FieldByName('Teta') as TBlobField).LoadFromFile(p4);
if p5<>''then
(Form2.Table1.FieldByName('Delta') as TBlobField).LoadFromFile(p5);
form2.Table1.Post;
form2.Table1.UpdateRecord;

при этом когда я жму на кнопку в которой код, то пишется что БД находится не в режиме ввода. А так же ДБгрид отображает всего 4 записи - хотя их там больше но они не отображаются. Че это за глюк такой я уже не могу собразить то-ли это база данных то ли какие-то настройки тэйбэл или еще че-то.

[mihali4]

А уберите-ка вы as TBlobField.
Загрузка в базу без этого прекрасно работает...
Не буду перегружать тему, скачайте-ка справочник, там полно способов по работе с блобами:
http://programmersclub.ru/files/dfaq.rar
И вообще рекомендую "погулять" по сайту нашего клуба
http://programmersclub.ru
- немало полезного обнаружите...

[Toky]

Так все же что это за глюк с таблицей? Зашел в таблицу через Датабэйс Десктоп - то же самое: 4 записи а потом ползунок дергаю и на их место другие приходят, можно как-то всю таблицу отобразить, а то это как-то не нормально.

Все не надо разобрался с таблицей