Delphi - Очень странная проблемка с добавлением в базу dbf

[Ригадон]

В общем ситуация такая при записи в таблицу а именно Table.Рost выдает ошибку Cannot perfom this operation on an open DataSet

в моем случае датасетом выступает ТТабле при этом в данном случае она открыта и своиство рид онли в фелсе... Если ее закрываю то говорит что не может записать так как она закрыта... )

Код:

Form2.Table2.Active:=true;

Form2.Table2.ReadOnly:=false;

Form2.Table2.Append;

Form2.Table2.FieldByName('INN').AsString:=Form3.Label4.Caption;

Form2.Table2.FieldByName('FIO').AsString:=Form3.Label2.Caption;

Form2.Table2.FieldByName('Manager').AsString:=Manager;

Form2.Table2.FieldByName('dwrite').AsString:=DateToStr(now)+' '+TimeToStr(Time);

Form2.Table2.FieldByName('Info').AsString:=Form4.Memo1.Lines.Text;

Form2.Table2.FieldByName('Dog').AsString:=dog;

Form2.Table2.FieldByName('Ddog').AsString:='';

Form2.Table2.Post; /Ошибка выдается именно после этой команды/

[Ригадон]

Именно просто этот вариант остался вносил и мемо.техт таже ошибка....

просто в данный момент именно эта строка в коде

ПС Мемо.текст таже фича...

В это поле не вносится ничего почемуто...

поле в таблице крайнее правое... длинна 255 тип как и все предыдущие текстовый...

[Ригадон]

Append и Insert одно и тоже за исключением того что Апенд добавляет в конец таблицы сразуже без перемещениия позиции и не создает индекс насколько я знаю...

Инсерт тоже пробЫвал ПС такиеже ошибки... )

[LilLoco]

Нужно перевести таблицу в режим вставки





Код:

Код: Выделить всё

Form2.Table2.Insert;
//Что то вставляем
Form2.Table2.Post;

[LilLoco]

Ошибка будет даже на строке





Код:

Код: Выделить всё

Form2.Table2.ReadOnly:=false;

не получится выполнить операцию на ОТКРЫТОЙ таблице!



Сначала закройте таблицу, поставьте свойство readonly в false, откройте таблицу, вставляйте!

[Ригадон]

Цитата Ригадон:



Raised exception class EDBEngine error with message "General SQL error"

Delphi - Очень странная проблемка с добавлением в базу dbf

В каком месте то появилась ошибка?

[LilLoco]

Точно также на посте...

[Ригадон]

Точно также на посте...

[LilLoco]

Попробуйте для начала не все поля вносить а только одно, и посмотрите на результат!

[Ригадон]

Form2.Table2.FieldByName('Info').AsString:=Form4.Memo1.Lines.Text;

проблема вот здесь вот... Остальные поля добавляются без проблем...