Как получить таблицу с уникальными значениями столбцов?

[Vijon]

То есть, дана некая исходная таблица TableNotUnique. В ней есть столбец PotentialUnique.

Задача: перекачать данные из TableNotUnique в другую таблицу TableUnique, таким образом, чтобы в новой таблице значения столбца PotentialUnique были бы уникальными.

Вобще-то, самый тупой способ выглядит примерно так...

Dim TableUnique As New DataTable
TableUnique = TableNotUnique.Clone
TableUnique.Columns("PotentialUnique").Unique = True
Dim rows As DataRow() = TableNotUnique.Select()
Dim row As DataRow
For Each row In rows
Try
Dim row2 As DataRow = TableUnique.NewRow
row2.BeginEdit()
row2 ("PotentialUnique") = row("PotentialUnique")
'--------------------- Other fields ------------
row2.EndEdit()
TableUnique.Rows.Add(row2)
Catch ex As Exception
End Try
Next row
TableUnique.AcceptChanges()

Но нельзя ли сделать все как-то попроще, одним движением.

Спасибо.

[Thomas]

SELECT DISTINCT

[gaidar]

Как сказал Томас - SELECT DISTINCT - это решение. Если таблицы с совпадающими полями, то вообще проблем нет - выполняете запрос в базе:

Код: Выделить всё

INSERT INTO TableUnique SELECT DISTINCT Field1, Field2 FROM TableNotUnique

Если без поля PotentialUnique нельзя, то

Код: Выделить всё

INSERT INTO TableUnique SELECT DISTINCT Field1, Field2, PotentialUnique FROM TableNotUnique

Правда, если для одной и той же строки с разным PotentialUnique могут быть разные данные, то они в этом случае тоже выбирутся. И вообще решение с колонкой PotentialUnique странное - данные могут повторяться? Если да, то каким образом выставляется флаг PotentionalUnique?

[Vijon]

В данном случае речь идет об операциях только с объектами DataTable, то есть, без SQL-запросов непосредственно к БД.

[gaidar]

Сначала нашел код, но, как оказалось, он не совсем рабочий. Написал свой. Отличие от Вашего в том, что можно выбирать по имени любой колонки (т.е. DISTINCT делать по любой колонке).

Код: Выделить всё


    Public Shared Function SelectDistinctRows(ByVal table As DataTable, ByVal column As String) As DataTable

        Dim result As New DataTable

        ' Create rows
        For i As Integer = 0 To table.Columns.Count - 1
            Dim col As DataColumn = table.Columns(i)
            result.Columns.Add(col.ColumnName, col.DataType)
        Next

        Dim cList As New List(Of String)

        For Each row As DataRow In table.Rows
            If Not cList.Contains(row(column)) Then
                cList.Add(row(column))
                Dim nRow As DataRow = result.NewRow()

                For i As Integer = 0 To result.Columns.Count - 1
                    nRow(i) = row(i)
                Next
                result.Rows.Add(nRow)
            End If
        Next

        Return result

    End Function



[Thomas]

gaidar

Dim cList As New List(Of String) -- ???

A можно так?
Dim cList As New SortedList

[gaidar]

Thomas - это Generic List.

Можно, конечно, использовать и не Generic, а List для object, но тогда производительность при больших объемах падает из-за необходимости приведения типов.

Статью про Generics для VBStreets я давно написал, но еще не опубликовал . Дойдут руки - опубликую.

[Vijon]

Ну я тоже вот наваял...

Function GetUniqueTable(ByVal dt As DataTable, ByVal cols As
DataColumn()) As DataTable
GetUniqueTable = New DataTable
Dim col As DataColumn
For Each col In cols
GetUniqueTable.Columns.Add(col)
Next col
Dim uc As New UniqueConstraint("uc", cols)
GetUniqueTable.Constraints.Add(uc)
Dim row As DataRow
Dim rows As DataRow() = dt.Select
For Each row In rows
Try
GetUniqueTable.ImportRow(row)
Catch ex As Exception
End Try
Next row
GetUniqueTable.AcceptChanges()
End Function

Преймущество тут в том, что не надо присваивать каждое поле в отдельности.

Все это здорово... Однако, я надеялся найти какую-нибудь системную функцию, которая одним движением превращала бы "неуникальную" таблицу в "уникальную".

[gaidar]

Боюсь, что такой функции нет. Просто потому, что это задача слоя базы данных...

[mnzol]

Я делаю так (извиняюсь за C#):

Код: Выделить всё

DataTable TableUnique = TableNotUnique.Clone();

DataColumn[] cclKeyColumns = new DataColumn[1];
cclKeyColumns[0] = TableUnique.Columns["SourceCode"];
TableUnique.PrimaryKey = cclKeyColumns;

TableUnique.Merge(TableNotUnique);