Связь с БД Access

@nomad_ara · Регистрация: 25.11.2012

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

Привет, друзья!
Помогите разобраться
У меня работа- "Автосалон" БД в Access, связь ado connection, ADOTable
Мне необходимо при добавлении записи в базу DBGrid ввести данные в Form2, а эти данные должны сохраняться в Form1

Delphi

procedure TForm4.Button1Click(Sender: TObject);
begin  \\ добавление записи
Form2.Auto_table.Insert;
Form2.Auto_table.FieldByName('Marka').Text:=Edit1.Text;
Form2.Auto_table.FieldByName('Model').Text:=Edit2.Text;
Form2.Auto_table.FieldByName('God_vypuska').Text:=Edit3.Text;
Form2.Auto_table.FieldByName('Color').Text:=Edit4.Text;
if Form2.Auto_table.Modified
 then Form2.Auto_table.Post;
close;

Нужно в Form2 ввести имя клиента(как и "марка" и "модель") и оно сохранилось в Form1 в таблице "Клиенты"-DBGrid

@Andrys74 · 28.11.2012, 09:11

Вобще-то данные в DBGrid не хранятся (тем более на Form). Данные хранятся в Auto_Table, а DBGrid служит лишь для их отображения.
Если используешь несколько экранных форм, то лучше добавить DataModule и на нём размещать ADOTable(-ы), и выглядеть будет примерно так:

Delphi

procedure TForm4.Button1Click(Sender: TObject);
begin  \\ добавление записи
DataModule1.Auto_table.Insert;
DataModule1.Auto_table.FieldByName('Marka').Text:=Edit1.Text;
DataModule1.Auto_table.FieldByName('Model').Text:=Edit2.Text;
DataModule1.Auto_table.FieldByName('God_vypuska').Text:=Edit3.Text;
DataModule1.Auto_table.FieldByName('Color').Text:=Edit4.Text;
DataModule1.Auto_table.Post;
close;

ну а на форме 1 в DBGrid-е делаешь отображение нужных полей твоей Auto_table

PS. выложи здесь структуру БД, тогда проще помогать будет

@nomad_ara · 28.11.2012, 10:19 **[ТС]**

Тогда нужно заново перекидывать dbgrid на датамодуль и все что было на форме?(я не работал с дата модулем). А получится у меня сделать так, чтобы при вводе данных на форме данные сохранялись не на auto_table, а в clientы_table например.(auto_table и clients_table на разных формах)

Что то вроде этого:

Delphi

1 2	DataModule1.Auto_table.FieldByName('Status').Text:='На заказ'; DataModule1.Clients_table.FieldByName('Name').Text:=Edit4.Text;

@Andrys74 · 28.11.2012, 10:28

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

тогда нужно заново перекидывать dbgrid

не надо, на датамодуле лежат только ADOConnection, ADOTable и DataSource

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

А получится у меня сделать так, чтобы при вводе данных на форме данные сохранялись не на auto_table, а в clientы_table

да куда пропишешь, туда и сохранит, хоть в десяти Tablе -ах

Добавлено через 2 минуты
Тока не забудь, если при занесении данных в таблицу, в конце стоит ...Table.Post, то вначале должно быть ...Table.Edit иначе может выкидывать ошибку

@nomad_ara · 28.11.2012, 22:06 **[ТС]**

Спасибо! все получилось, с датамодулем и вправду удобнее работать

@Andrys74 · 28.11.2012, 22:07

Ну, дальнейших успехов

@Andrys74 217 / 81 / 6 Регистрация: 23.04.2012 Сообщений: 340
	28.11.2012, 10:28	4
	Сообщение от nomad_ara тогда нужно заново перекидывать dbgrid не надо, на датамодуле лежат только ADOConnection, ADOTable и DataSource Сообщение от nomad_ara А получится у меня сделать так, чтобы при вводе данных на форме данные сохранялись не на auto_table, а в clientы_table да куда пропишешь, туда и сохранит, хоть в десяти Tablе -ах Добавлено через 2 минуты Тока не забудь, если при занесении данных в таблицу, в конце стоит ...Table.Post, то вначале должно быть ...Table.Edit иначе может выкидывать ошибку 1

@nomad_ara 0 / 0 / 0 Регистрация: 25.11.2012 Сообщений: 5
	28.11.2012, 22:06 [ТС]	5
	Спасибо! все получилось, с датамодулем и вправду удобнее работать 0

@Andrys74 217 / 81 / 6 Регистрация: 23.04.2012 Сообщений: 340
	28.11.2012, 22:07	6
	Ну, дальнейших успехов 0