Форум: "Базы";
Текущий архив: 2006.10.29;
Скачать: [xml.tar.bz2];

Вниз

ошибка при сохранени "Table1: DataSet not in edit or insert mode"   Найти похожие ветки 

← →
RagapuK   (2006-08-30 23:06) [0]


unit t1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBTables, ExtCtrls, DBCtrls, StdCtrls, Grids, DBGrids;

type
TForm1 = class(TForm)
DataSource1: TDataSource;
DBGrid1: TDBGrid;
Button1: TButton;
DBNavigator1: TDBNavigator;
Table1: TTable;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if opendialog1.Execute then
begin
table1.Active:=false;
table1.TableName:=opendialog1.FileName;
table1.Active:=true;
end;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
table1.Post;
table1.Active:=true;
savedialog1.FileName:=table1.TableName;
savedialog1.Execute;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
table1.ReadOnly:=false;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
table1.RecNo:=2;
table1.Edit;
table1.FieldByName("Name").AsString:="AAAAAAAAAA";
end;

end.

Хочу сохранить таблицу после модификации...
Если я изменял таблицу вручную, то все ОК, а если программно, то вылазиет ошибка

"Table1: DataSet not in edit or insert mode"....

А сохранение у меня делается так:

table1.Post;
table1.Active:=true;
savedialog1.FileName:=table1.TableName;
savedialog1.Execute;

Help me, please...

---

← →
dolmat   (2006-08-31 09:28) [1]

> table1.Post;
> table1.Active:=true;
> savedialog1.FileName:=table1.TableName;
> savedialog1.Execute;

изврат полнейший!
table1.Post выполняется только для открытой для редактирования записи. Если таковой нет тогда ошибка.
изменить надо так
if table1.state in [dsedit, dsinsert] then  table1.Post;

---

← →
RagapuK   (2006-09-03 19:15) [2]

Спасибо!!!

---

Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2006.10.29;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.045 c