Добрый день
Есть таблица, содержащая группы товаров и сами товары:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
CREATE TABLE [dbo].[Entity] (
[EntID] [int] NOT NULL ,
[EntPrntID] [int] NOT NULL ,
[EntType] [int] NOT NULL
) ON [PRIMARY]
INSERT INTO Entity (EntID, EntPrntID, EntType) VALUES( 0 , 0 , 1 )
INSERT INTO Entity (EntID, EntPrntID, EntType) VALUES( 1 , 0 , 1 )
INSERT INTO Entity (EntID, EntPrntID, EntType) VALUES( 2 , 0 , 1 )
INSERT INTO Entity (EntID, EntPrntID, EntType) VALUES( 3 , 1 , 2 )
INSERT INTO Entity (EntID, EntPrntID, EntType) VALUES( 4 , 1 , 2 )
EntType = 1 - группа товара
EntType = 2 - товар
В группу могут входить как дочерние группы, так и просто товары (по аналогии папки - файлы в файловой системе).
Связь "потомок - родитель" обеспечивается с помощью полей EntID - EntPrntID
Необходимо удалить все группы товара, которые не имеют подчиненных групп или товаров.
В SQL Server данная задача решается просто:
1.
2.
3.
4.
5.
6.
7.
DELETE Entity
FROM Entity e INNER JOIN
WHERE e.EntID IN
(
SELECT DISTINCT ePrnt.EntID
FROM Entity ePrnt LEFT JOIN Entity eCld ON ePrnt.EntID = eCld.EntPrntID
WHERE ePrnt.EntType = 1 AND eCld.EntID IS NULL
) AS eEmpty ON e.EntID = eEmpty.EntID
Возможно ли решить подобную же задачу для XML файла:
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.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
Public Sub FillXMLEntity()
'Заполнить таблицу
Dim ds As New DataSet
Dim dt As New DataTable("Entity")
Dim dColEntID As New DataColumn("EntID")
Dim dColEntPrntID As New DataColumn("EntPrntID")
Dim dColEntType As New DataColumn("EntType")
Dim dr As DataRow
Dim sPathXML As String = Path.Combine(Application.StartupPath, "Entity.XML")
With dColEntID
.DataType = System.Type.GetType("System.Int32")
.AllowDBNull = False
.Unique = True
.ReadOnly = True
.Caption = "EntID"
.ColumnName = "EntID"
End With 'dColID
With dColEntPrntID
.DataType = Type.GetType("System.Int32")
.AllowDBNull = False
.ReadOnly = True
.Caption = "EntPrntID"
.ColumnName = "EntPrntID"
End With 'dColEntPrntID
With dColEntType
.DataType = Type.GetType("System.Int32")
.AllowDBNull = False
.ReadOnly = True
.Caption = "EntType"
.ColumnName = "EntType"
End With 'dColEntType
dt.Columns.Add(dColEntID)
dt.Columns.Add(dColEntPrntID)
dt.Columns.Add(dColEntType)
dr = dt.NewRow
dr("EntID") = 0
dr("EntPrntID") = 0 'корень ссылается сам на себя
dr("EntType") = 1
dt.Rows.Add(dr)
dt.AcceptChanges()
dr = dt.NewRow
dr("EntID") = 1
dr("EntPrntID") = 0
dr("EntType") = 1
dt.Rows.Add(dr)
dt.AcceptChanges()
dr = dt.NewRow
dr("EntID") = 2
dr("EntPrntID") = 0
dr("EntType") = 1
dt.Rows.Add(dr)
dt.AcceptChanges()
dr = dt.NewRow
dr("EntID") = 3
dr("EntPrntID") = 1
dr("EntType") = 2
dt.Rows.Add(dr)
dt.AcceptChanges()
dr = dt.NewRow
dr("EntID") = 4
dr("EntPrntID") = 1
dr("EntType") = 2
dt.Rows.Add(dr)
dt.AcceptChanges()
ds.Tables.Add(dt)
If DeleteFilePC(aPath:=sPathXML) = True Then _
ds.WriteXml(sPathXML)
End Sub
Как видно, узел с EntID = 2 не имеет подчиненных групп товаро или товаров.
Я пытаюсь удалить его:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Public Sub DeleteEmptyNodes()
Dim ds As New DataSet
Dim dt As DataTable
Dim filterStr As String = "e.EntID IN (SELECT DISTINCT ePrnt.EntID FROM Entity ePrnt LEFT JOIN Entity eCld ON ePrnt.EntID = eCld.EntPrntID WHERE ePrnt.EntType = 1 AND eCld.EntID IS NULL) AS eEmpty ON e.EntID = eEmpty.EntID"
Dim dr() As DataRow
Dim sPathXML As String = Path.Combine(Application.StartupPath, "Entity.XML")
ds.ReadXml(sPathXML)
dt = ds.Tables("Entity")
Try
dr = dt.Select(filterExpression:=filterStr)
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Выдается исключение:
"Syntax error: Missing operand after 'DISTINCT' operator."
