Xml массив. Ошибка: Access violetion. Запись в БД xml массива

@AANovikov · Регистрация: 02.02.2015

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

Здравствуйте, уважаемые форумчане!
Пишу код, в кратце что делает: выбираю из списка какие то позиции, после этого добавляю их в таблицу (не записываю), создаю массив xml, после этого присваиваю некоторые значения для выбранных позиций, и записываю все это в базу.
Выбрал позиции, и создаю массив:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 for i := 0 to NextGrid2.rowcount - 1 do
    Q := TADOQuery.Create(nil);
    Q.Connection := FConnections.ADOConnectionReports;
    Q.SQL.Text :=
      'select * from [dbo].[ZVZD] where OverTimeUserUID=:uid and OverTimeDate=:date';
    Q.Parameters.ParamByName('uid').Value := NextGrid2.Cell[ColUserID.Index,
    NextGrid2.SelectedRow].AsString;
    Q.Parameters.ParamByName('date').Value := NextGrid2.Cell[colDate.Index,
    NextGrid2.SelectedRow].AsString;
    with Q do
    begin
      open;
      xmlstring := FieldByname('OverTimeXML').AsString;
      if FieldByname('OverTimeID').AsString = '' then
      begin
        Memo1.Text := 'ID=?';
      end
      else
        Memo1.Text := 'ID=' + FieldByname('OverTimeID').AsString;
        close;
    end;
for i := 0 to NextGrid2.rowcount - 1 do
    begin
      if xmlstring = '' then
      begin
        xmlstring := xmlarr[i];
      end;
    end;
    ClearVL;
    FillTasks;
end;

процедура FillTasks:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
begin
  if NextGrid2.SelectedRow = -1 then
    exit;
  XMLDoc.Active := true;
  XMLDoc.LoadFromXML(xmlarr[NextGrid2.SelectedRow]);
  root := XMLDoc.ChildNodes.FindNode('Tasks');
  if root = nil then
  begin
    XMLDoc.Active := false;
    exit;
  end;
  if root.ChildNodes.Count = 0 then
  begin
    XMLDoc.Active := false;
    exit;
  end;
  for k := 0 to root.ChildNodes.Count - 1 do
  begin
    Node := root.ChildNodes[k];
    NextGrid5.AddRow();
    NextGrid5.Cell[colTaskDescription.Index,
      NextGrid5.LastAddedRow].AsString := Node.Attributes['Name'];
    NextGrid5.Cell[colTaskXML.Index, NextGrid5.LastAddedRow].AsString :=
      Node.XML;
  end;
  begin
    XMLDoc.Active := true;
    Q := TADOQuery.Create(nil);
    Q.Connection := FConnections.ADOConnectionReports;
    Q.SQL.Text :=
      'select OverTimeID from  [dbo].[ZVZD] where OverTimeUserUID=:uid and OverTimeDate=:date';
    Q.Parameters.ParamByName('uid').Value := NextGrid2.Cell[ColUserID.Index,
      NextGrid2.SelectedRow].AsString;
    Q.Parameters.ParamByName('date').Value := NextGrid2.Cell[colDate.Index,
      NextGrid2.SelectedRow].AsString;
    Q.ExecSQL;
    freeandnil(Q);
  end;
end;

записываю в таблицу:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
 for i := 0 to NextGrid2.rowcount - 1 do
  begin
    XMLDoc.Active := true;
    XMLDoc.LoadFromXML(xmlarr[i]);
    root := XMLDoc.ChildNodes.FindNode('Tasks');
   [COLOR="Red"] Node := root.AddChild('Task');[/COLOR]
    Node.Attributes['Name'] := VL.Values['наименование работ'];
    Node.Attributes['Zakaz'] := VL.Values['коды заказов'];
    Node.Attributes['Operation'] := VL.Values['№ операции'];
    Node.Attributes['PlanQTY'] := VL.Values['кол-во, шт.'];
    Node.Attributes['PlanDuration'] := VL.Values['время, ч.'];
    Node.Attributes['ActQTY'] := VL.Values['кол-во, шт.'];
    Node.Attributes['ActDuration'] := NextGrid2.Cell[ColDuration.Index,i].AsString;
    Node.Attributes['Comments'] := VL.Values['Комментарий'];
    XMLDoc.SaveToXML(xmlarr[i]);
    XMLDoc.Active := true;
    Q := TADOQuery.Create(nil);
    Q.Connection := FConnections.ADOConnectionReports;
    Q.SQL.Text :=
      'if exists (select OverTimeID from [dbo].[ZVZD]where OverTimeUserUID=:uid and OverTimeDate=:date)';
    Q.SQL.Add('begin');
    Q.SQL.Add(
      'update [dbo].[ZVZD] set OverTimeXML=:xml where OverTimeUserUID=:uid1 and OverTimeDate=:date1');
    Q.SQL.Add('end');
    Q.SQL.Add('else');
    Q.SQL.Add('begin');
    Q.SQL.Add(
      'insert into [dbo].[ZVZD] (OverTimeUserUID,OverTimeDate,OverTimeXML,OverTimeAddedBy,OverTimeAddedAt)values (:uid2,:date2,:xml1,:author,:time)');
    Q.SQL.Add('end');
    Q.Parameters.ParamByName('uid').Value := NextGrid2.Cell[ColUserID.Index,
      i].AsString;
    Q.Parameters.ParamByName('uid1').Value := NextGrid2.Cell[ColUserID.Index,
      i].AsString;
    Q.Parameters.ParamByName('uid2').Value := NextGrid2.Cell[ColUserID.Index,
      i].AsString;
    Q.Parameters.ParamByName('date').Value := NextGrid2.Cell[colDate.Index,
      NextGrid2.SelectedRow].AsString;
    Q.Parameters.ParamByName('date1').Value := NextGrid2.Cell[colDate.Index,
      i].AsString;
    Q.Parameters.ParamByName('date2').Value := NextGrid2.Cell[colDate.Index,
      i].AsString;
    Q.Parameters.ParamByName('xml').Value := xmlarr[i];
    Q.Parameters.ParamByName('xml1').Value := xmlarr[i];
    Q.Parameters.ParamByName('author').Value := FConnections.full_name;
    Q.Parameters.ParamByName('time').Value := DTPStart.date;
    Q.ExecSQL;
    freeandnil(Q);
    application.ProcessMessages;
    WriteToDB(i);
    lab:=0;
    for j := 0 to root.ChildNodes.Count - 1 do
          begin
            Node := root.ChildNodes[j];
            if trystrtofloat(Node.Attributes['ActDuration'], f) then
              lab := lab + f;
              NextGrid2.Cell[colOverTime.Index, i].AsFloat := lab;
          end;
  XMLDoc.Active := false;
  end;
  ClearVL;
  for i := 0 to NextGrid2.rowcount - 1 do
    NextGrid2.Cell[ColDuration.Index, i].AsString := '0';
   NextGrid5.ClearRows;
 filltasks;

В общем ругается когда у позиции в базе уже что то записанно. Ругается на строчку :

Delphi
1
Node := root.AddChild('Task');

Уважаемые знатоки, понимаю что проблема в том что Addchild пытается добавить child туда где он уже есть, только вот чего то туплю и не пойму как обойти.

Добавлено через 6 часов 11 минут
Решено!
Дело крылось в том, что при выборе позиции из первой таблицы (код по нажатию на которую я не привёл) происходило создания массива, и тут то крылось зло:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
begin
 
  Q := TADOQuery.Create(nil);
  Q.Connection := FConnections.ADOConnectionReports;
  Q.SQL.Text :=
    'select * from  [dbo].[ZVZD] where OverTimeUserUID=:uid and OverTimeDate=:date';
  Q.Parameters.ParamByName('uid').Value := NextGrid1.Cell[colUserUID.Index,
    NextGrid1.SelectedRow].AsString;
  Q.Parameters.ParamByName('date').Value := datetostr(DTPStart.date);
  // Q.ExecSQL;
  with Q do
  begin
    open;
    xmlstring := FieldByname('OverTimeXML').AsString;
    if FieldByname('OverTimeID').AsString = '' then
    begin
      XMLDoc.XML.Clear;
      XMLDoc.Active := true;
      XMLDoc.Version := '1.0';
      XMLDoc.Encoding := 'utf-8';
      XMLDoc.AddChild('Tasks');
      XMLDoc.SaveToXML(xmlstring);
    end;
    if FieldByname('OverTimeID').AsString <> '' then
    begin
      // showmessage(fieldbyname('overtimexml').asstring)
      //ВОТ ОНО ЗЛО
    end;
    close;
    setlength(xmlarr, length(xmlarr) + 1);
    xmlarr[length(xmlarr) - 1] := xmlstring;
    XMLDoc.Active := false;

Все решилось добавлением:

Delphi
1
2
3
4
5
6
7
8
9
 if FieldByname('OverTimeID').AsString <> '' then
    begin      
      XMLDoc.XML.Clear;
      XMLDoc.Active := true;
      XMLDoc.Version := '1.0';
      XMLDoc.Encoding := 'utf-8';
      XMLDoc.AddChild('Tasks');
      XMLDoc.SaveToXML(xmlstring);
    end;

Такой вот ляп

Не то что чайлд не туда создавался, просто массива не хватало. Как то так. Да простят меня за мой французкий

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .