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

[незнайка_на_земле]

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

[arthur1]

ADOQuery1.Insert;

[незнайка_на_земле]

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

ADOQuery1.Insert;

это в кнопке писать ?

[arthur1]

Сообщение от незнайка_на_земле

это в кнопке писать ?

так точно!
procedure Tform1.Button1Click(...);
begin
ADOQuery1.Edit; // открыть редактирование
ADOQuery1.Insert; // новая строка (строка а не столбец!!!)
ADOQuery1.post; // сохранить изменения
end;

[незнайка_на_земле]

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

так точно!
procedure Tform1.Button1Click(...);
begin
ADOQuery1.Edit; // открыть редактирование
ADOQuery1.Insert; // новая строка (строка а не столбец!!!)
ADOQuery1.post; // сохранить изменения
end;

ошибки какие то( че с этим делать?

[Serge_Bliznykov]

ну не надо же БУКВАЛЬНО понимать и вставлять ПРИМЕР кода в свой проект. Это же просто ПРИМЕР!

Вот у Вас есть на форме DBGrid1. Он связан через DataSource1 с источником данных ADOTable1
Вот его и указывайте вместо ADOQuery1:

procedure Tform1.Button1Click(Sender: TObject);
begin
  ADOTable1.Edit; // открыть редактирование
  ADOTable1.Insert; // новая строка (строка а не столбец!!!)
  ADOTable1.post; // сохранить изменения
end;

[незнайка_на_земле]

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

ну не надо же БУКВАЛЬНО понимать и вставлять ПРИМЕР кода в свой проект. Это же просто ПРИМЕР!

Вот у Вас есть на форме DBGrid1. Он связан через DataSource1 с источником данных ADOTable1
Вот его и указывайте вместо ADOQuery1:

procedure Tform1.Button1Click(Sender: TObject);
begin
  ADOTable1.Edit; // открыть редактирование
  ADOTable1.Insert; // новая строка (строка а не столбец!!!)
  ADOTable1.post; // сохранить изменения
end;

я вставил так как надо и при запуске у меня зависает Делфи, почеу так?
вот код

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    PopupMenu1: TPopupMenu;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    Label1: TLabel;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    PrintDialog1: TPrintDialog;
    N11: TMenuItem;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
AlphaBlend:=false;
AlphaBlendValue:= 200;
end;

procedure TForm1.N5Click(Sender: TObject);
begin
close;
end;

procedure TForm1.N13Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.N20Click(Sender: TObject);
begin
SendMessage (FindWindow('Progman','Program Manager'), WM_CLOSE,0,0);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 ADOTable1.Edit; // ioe?uou ?aaaeoe?iaaiea
 ADOTable1.Insert; // iiaay no?iea (no?iea a ia noieaao!!!)
 ADOTable1.post; // nio?aieou eciaiaiey
end;

end.