Запись данных из DBGrid в ADOTAble

@borkovskiymen · Регистрация: 20.01.2015

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

Здравствуйте. Таблица в DBGrid сформирована с помощью запроса в ADOQuery.
Необходимо данные из DBGrid записать в базу данных с помощью ADOTable, но так чтобы записи не повторялись.
Вот программный код

Delphi

var k:integer;
begin
DBGZhur.DataSource.DataSet.First;
for k:=0 to DBGZhur.DataSource.DataSet.FieldCount-1 do    begin
  if (DBGZhur.DataSource.DataSet.Fields.FieldByName('Класс').Asstring = DM.ATUsp.FieldByName('Класс').Asstring)
and (DBGZhur.DataSource.DataSet.Fields.FieldByName('Предмет').Asstring = DM.ATUsp.FieldByName('Предмет').Asstring)
and (DBGZhur.DataSource.DataSet.Fields.FieldByName('Дата').Asstring = DM.ATUsp.FieldByName('Дата').Asstring)
and (DBGZhur.DataSource.DataSet.Fields.FieldByName('ФИО').Asstring = DM.ATUsp.FieldByName('Школьник').Asstring)
and (DBGZhur.DataSource.DataSet.Fields.FieldByName('Период').Asstring = DM.ATUsp.FieldByName('Период').Asstring)
 then
    DM.ATUsp.next
   else                  begin
   DM.ATUsp.Insert;
DM.ATUsp.FieldByName('Класс').Asstring:=DBGZhur.DataSource.DataSet.Fields.FieldByName('Класс').Asstring;
DM.ATUsp.FieldByName('Предмет').Asstring:=DBGZhur.DataSource.DataSet.Fields.FieldByName('Предмет').Asstring;
DM.ATUsp.FieldByName('Дата').Asstring:=DBGZhur.DataSource.DataSet.Fields.FieldByName('Дата').Asstring;
DM.ATUsp.FieldByName('Школьник').Asstring:=DBGZhur.DataSource.DataSet.Fields.FieldByName('ФИО').Asstring;
DM.ATUsp.FieldByName('Отметка').Asstring:=DBGZhur.DataSource.DataSet.Fields.FieldByName('Отметка').Asstring;
DM.ATUsp.FieldByName('Период').Asstring:=DBGZhur.DataSource.DataSet.Fields.FieldByName('Период').Asstring;
DM.ATUsp.Post;        // DM.ATUsp.Next;
    end;   DBGZhur.DataSource.DataSet.Next; // DM.ATUsp.Next; 
 end;
DM.ATUsp.Close;
DM.ATUsp.Open;

ATUsp - ADOTAble DBZhur- DBGrid

Данный программный код работает неверно. Он проверяет данные в AT только в том порядке, в котором они записаны в бд (если в DBGrid появится новая запись где нибудь в середине списка, то в бд данные перезапишутся заново начиная с новой записи).

Как мне лучше сформировать цикл и условие чтобы все работало верно?!

@borkovskiymen · 23.05.2015, 10:03 **[ТС]**

Блин что так сложно помочь?

@Lord_Voodoo · 23.05.2015, 10:09

borkovskiymen, у вас цикл пробегается по полям, а должен пробегаться по записям... вы неправильно организовали обход таблицы, но и этот цикл я бы не выкидывал, а в нем проверку организовал данных по полям...

@borkovskiymen · 25.05.2015, 19:26 **[ТС]**

вы не могли бы поподробнее объяснить или привести пример?

Добавлено через 1 час 1 минуту
вы не подскажете как лучше осуществить запись данных из дбгрида в бд? Буду очень благодарен)))

@borkovskiymen 0 / 0 / 0 Регистрация: 20.01.2015 Сообщений: 22
	23.05.2015, 10:03 [ТС]	2
	Блин что так сложно помочь? 0

@Lord_Voodoo Супер-модератор 8783 / 2536 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	23.05.2015, 10:09	3
	borkovskiymen, у вас цикл пробегается по полям, а должен пробегаться по записям... вы неправильно организовали обход таблицы, но и этот цикл я бы не выкидывал, а в нем проверку организовал данных по полям... 0

@borkovskiymen 0 / 0 / 0 Регистрация: 20.01.2015 Сообщений: 22
	25.05.2015, 19:26 [ТС]	4
	вы не могли бы поподробнее объяснить или привести пример? Добавлено через 1 час 1 минуту вы не подскажете как лучше осуществить запись данных из дбгрида в бд? Буду очень благодарен))) 0