Как в DBGrid добавить данные из Edit

@AC13 · Регистрация: 13.09.2009

Author24 — интернет-сервис помощи студентам

Здравствуйте!

Подскажите пожалуйста, как в DBGrid добавить данные из Edit?
Есть Form1, на которой расположены ADOConnection, ADOQuery, DataSource и DBGrid.
База подключена из SQL Server.
На Form2 расположены пустые Edit-ы для заполнения.
И нужно чтоб при нажатии на Form2 кнопки "Добавить" в Form1.DBGrid добавлялась новая строка с данными из Edit-ов в соответствующие столбцы.

Вот есть пример с добавлением данных в DBGrid, но там не ADOQuery, а ADOTable и база подключена из Acsess.

Delphi

procedure TForm_In_Book.Button_AddClick(Sender: TObject);
begin
    Form_Books.Table_Books.Last;
 
    try
       Form_Books.Table_Books.AppendRecord([
       Form_Books.Table_Books.FieldByName('id').AsInteger+1,
       Edit_Name.Text,
       Edit_Author.Text,
       Edit_Publisher.Text,
       StrToInt(Edit_Year.Text),
       StrToInt(Edit_Circuation.Text),
       Edit_Knowledge.Text,
       StrToInt(Edit_Cost.Text)]);
    except
       MessageDlg('В поля формы введены недопустимые данные',
          mtError,[mbOK],0);
       Exit;
    end;
 
    fill_result_data;
end;

@Linkl · 11.12.2010, 15:49

а DBEdit не пробовал использовать?

@AC13 · 11.12.2010, 21:50 **[ТС]**

Да, лучше через DBEdit.
Вот подключили мы DBEdit к DataSource, DataSource к ADOQuery,
но что там за процедуру к кнопке написать, чтоб, например, мы вводим данные в поля DBEdit, нажимаем на кнопку "Добавить" и эти данные переносятся в DBGrid другой формы?

@Lord_Voodoo · 12.12.2010, 00:11

AC13, вы работаете с базой, а дбгрид просто отображает данные... прикрепите еще и TDBNavigator и он вам поможет... а если данные попадут в нужную таблицу, то после обновления источника данных они отобразятся в дбгриде

@Linkl · 12.12.2010, 00:22

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

что там за процедуру к кнопке написать, чтоб, например, мы вводим данные в поля DBEdit, нажимаем на кнопку "Добавить" и эти данные переносятся в DBGrid другой формы?

попробуй так

Delphi

1
2
3

begin
if DataModulel.Table. Modified then
DataModulel.Table.Post;

@Dream · 12.12.2010, 08:29

Delphi

 
procedure AddDataInBasa;
begin
With Form1.ADOQuery1 do begin
  Connection:=Form1.ADOConnection1;
  Insert;
  FieldByName('edit1').Value:=Form2.Edit1.Text;
  FieldByName('edit2').Value:=Form2.Edit2.Text;
  FieldByName('edit3').Value:=form2.Edit3.Text;
  Post;
end;
end;

@AC13 · 12.12.2010, 10:11 **[ТС]**

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

AC13, вы работаете с базой, а дбгрид просто отображает данные... прикрепите еще и TDBNavigator и он вам поможет... а если данные попадут в нужную таблицу, то после обновления источника данных они отобразятся в дбгриде

TDBNavigator есть, нужно именно добавление из заполненных полей Edit-ов с другой формы!!!

Добавлено через 18 минут

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

попробуй так

Delphi

1
2
3

begin
if DataModulel.Table. Modified then
DataModulel.Table.Post;

Спасибо)

Что такое DataModulel? куда его вписать или добавить?

Добавлено через 4 минуты

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

Delphi

 
procedure AddDataInBasa;
begin
With Form1.ADOQuery1 do begin
  Connection:=Form1.ADOConnection1;
  Insert;
  FieldByName('edit1').Value:=Form2.Edit1.Text;
  FieldByName('edit2').Value:=Form2.Edit2.Text;
  FieldByName('edit3').Value:=form2.Edit3.Text;
  Post;
end;
end;

Спасибо))

Не совсем понятно О_о
Здесь Edit-ы находятся на Form2, а DBGrid на Form1, так?
Просто не понимаю как это в мою программу добавить.
В общем у меня
на Form1 - ADOConnection1
на Form2 - DBGrid1 и ADOQuery1
на Form3 - Edit1, Edit2, Edit3 и Button1.
FieldByName - это что?

@Dream · 12.12.2010, 10:34

в FieldByName указывается название поля (столбца)

@Linkl · 12.12.2010, 13:52

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

Что такое DataModule1? куда его вписать или добавить?

Это отдельный модуль чтоб было удобно располагать не визуальные компоненты

Добавляется через File -> New -> DataModule

набросал проект с комментариями для бд Acsess. c SQL Server не приходилось тыкаться...

и с ADOQuery тоже не приходилось...сделал с ADOTable, может чем и поможет

@AC13 · 12.12.2010, 15:50 **[ТС]**

Спасибо

@Аника · 20.11.2014, 11:21

AC13, подскажите, пожалуйста, где пример с подключением через ADOTable взяли.

@xxbesoxx · 22.11.2014, 20:22

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

как в DBGrid добавить данные из Edit

Вы хотябы книга ПОЛИСТАЙТЕ если не ЧИТАЙТЕ . DBGrid -е не добавляется данны

@Linkl 36 / 36 / 4 Регистрация: 15.05.2010 Сообщений: 138
	11.12.2010, 15:49	2
	а DBEdit не пробовал использовать? 1

@AC13 7 / 7 / 0 Регистрация: 13.09.2009 Сообщений: 263
	11.12.2010, 21:50 [ТС]	3
	Да, лучше через DBEdit. Вот подключили мы DBEdit к DataSource, DataSource к ADOQuery, но что там за процедуру к кнопке написать, чтоб, например, мы вводим данные в поля DBEdit, нажимаем на кнопку "Добавить" и эти данные переносятся в DBGrid другой формы? 0

@Lord_Voodoo Супер-модератор 8783 / 2536 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	12.12.2010, 00:11	4
	AC13, вы работаете с базой, а дбгрид просто отображает данные... прикрепите еще и TDBNavigator и он вам поможет... а если данные попадут в нужную таблицу, то после обновления источника данных они отобразятся в дбгриде 1

@Dream 158 / 157 / 16 Регистрация: 26.07.2008 Сообщений: 549
	12.12.2010, 10:34	8
	в FieldByName указывается название поля (столбца) 1

@AC13 7 / 7 / 0 Регистрация: 13.09.2009 Сообщений: 263
	12.12.2010, 15:50 [ТС]	10
	Спасибо Спасибо 0

@Аника 1 / 1 / 0 Регистрация: 22.12.2012 Сообщений: 160
	20.11.2014, 11:21	11
	AC13, подскажите, пожалуйста, где пример с подключением через ADOTable взяли. 0

@xxbesoxx 1134 / 615 / 129 Регистрация: 13.02.2009 Сообщений: 3,553
	22.11.2014, 20:22	12
	Сообщение от AC13 как в DBGrid добавить данные из Edit Вы хотябы книга ПОЛИСТАЙТЕ если не ЧИТАЙТЕ . DBGrid -е не добавляется данны 0