Access + Delphi работа с таблицами

[Dotha]

Задавствуйте!
У меня вот такой вопрос.

На Access пять таблиц.
Таблица_1
Таблица_2
Таблица_3
Таблица_4
Таблица_5

На делфи 2009 :
DBListBox , DBGrid соеденил ADOConnection , ADOTable и DataSource к базе Access baza.mdb

в DBListBox отображаются все пять таблиц
в DBGrid отображается содержимое выбранной таблици
в ComboBox названия таблиц Таблица_1, Таблица_2 и так далее

Вопрос
Кат перенести написанное из Таблица_1 к примеру в Таблица_2 или наоборот с помошью ComboBox

[S@fer]

что значит?

Кат перенести написанное из Таблица_1 к примеру в Таблица_2 или наоборот с помошью ComboBox

Какая структура таблиц?

[Dotha]

Во всех таблицах одна и та же структура (имя, фамилия)
В Таблица_1 (имя - Вася, фамилия - Петров)
В Таблица_2 пока пусто но структура таже (имя, фамилия)
Надо из Таблица_1 (имя - Вася, фамилия - Петров) перенести в Таблица_2.
Что бы (имя - Вася, фамилия - Петров) переместилось из Таблица_1 в Таблица_2

Таблица_1 и Таблица_2 это названия таблиц в бд Access

[S@fer]

Один из способов: закинь на форму еще лдин ADOTable. свяжи его с таблица_2
затем если нужно перенести все записи, то перебираешь в цикле все записи Таблица_1

AdoTable1.first
While Not AdoTable1.eof do
begin
  AdoTable2.Insert;
  AdoTable2.Edit;
  AdoTable2.Fields[0].AsString:=AdoTable1.Fields[0].AsString;
  AdoTable2.Fields[1].AsString:=AdoTable1.Fields[1].AsString;
  AdoTable2.Append;
  AdoTable1.next
end;

[BARNEY]

а разве запросом нельзя...
что то типо insert into table2 (имя, фамилия) values (select имя, фамилия from table1)

[S@fer]

Можно и запросом. Вариантов много. ТС должен выбрать для своей задачи наиболее оптимальный вариант.

[Dotha]

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

а разве запросом нельзя...
что то типо insert into table2 (имя, фамилия) values (select имя, фамилия from table1)

а можно по подробнее а то я в программировании не силен

[BARNEY]

да это не программирование это sql

Я написал готовый запрос , подставляй значения и будет вам перенос из таблицы 1 в таблицу 2.

что то типо

adoQuery.sql.text:='insert into table2 (имя, фамилия) values (select имя, фамилия from table1)';
adoQuery.execSql;

советую почитать про

insert into

[soleil@mmc]

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

что то типо

adoQuery.sql.text:='insert into table2 (имя, фамилия) values (select имя, фамилия from table1)';
adoQuery.execSql;

скорее что-то типа

adoQuery.sql.text:='insert into table2 (имя, фамилия) select имя, фамилия from table1';
adoQuery.execSql;

[Dotha]

я сделал так:

procedure TForm1.N1Click(Sender: TObject);
var
s1,s2,s3,s4:string;
begin
  s1 := ADOTable1.Fields.Fields[1].AsString;
  s2 := ADOTable1.Fields.Fields[2].AsString;
  s3 := ADOTable1.Fields.Fields[3].AsString;
  s4 := ADOTable1.Fields.Fields[4].AsString;
ADOTable2.Insert;
ADOTable2.FieldByName('Имя').AsString := s1;
ADOTable2.FieldByName('Фамилия').AsString := s2;
ADOTable2.FieldByName('Отчество').AsString := s3;
ADOTable2.FieldByName('Дата рождения').AsString := s4;


end;

Все работает.
Только вот у меня один DBAdvGrid1 один DataSourse1 и три ADOTable (ADOTable1, ADOTable2, ADOTable3)

переход между ADOTable - ми такой:

procedure TForm1.ListBox1Click(Sender: TObject);
begin
case ListBox1.ItemIndex of

0: DataSource1.DataSet:= ADOTable1;
1: DataSource1.DataSet:= ADOTable2;
2: DataSource1.DataSet:= ADOTable3;
end;
end;

Как можно узнать какая из трех ADOTable активна

procedure TForm1.N1Click(Sender: TObject);
var
s1,s2,s3,s4:string;
begin
  s1 := ADOTable1.Fields.Fields[1].AsString;   // здесь надо поменять на активную ADOTable
  s2 := ADOTable1.Fields.Fields[2].AsString;   //к примеру если активна ADOTable2 то в место
  s3 := ADOTable1.Fields.Fields[3].AsString;  // s1 := ADOTable1.Fields.Fields[1].AsString;
  s4 := ADOTable1.Fields.Fields[4].AsString;  //было s1 := ADOTable2.Fields.Fields[1].AsString;
ADOTable3.Insert;
ADOTable3.FieldByName('Имя').AsString := s1;
ADOTable3.FieldByName('Фамилия').AsString := s2;
ADOTable3.FieldByName('Отчество').AsString := s3;
ADOTable3.FieldByName('Дата рождения').AsString := s4;
 
end;