Блог

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

 SELECT DISTINCT tblSample.Version
FROM tblSample
ORDER BY tblSample.Version DESC;
  

Вот пример данных:

 tblSample.Version
1.1.1000
1.2.1654
1.15.1223
1.2.1654
1.1.1000
  

Что я получаю после выполнения запроса:

 1.2.1654
1.15.1223
1.1.1000
  

Что я хочу получить, так это (потому что 15, очевидно,> 2 и 1):

 1.15.1223
1.2.1654
1.1.1000
  

Соответственно, следует учитывать и другие октеты.

В принципе, если вы хотите sort выполнить x и distinct выполнить a для y, вам нужно сначала выполнить distinct (отсюда и подзапрос)

Используя следующую функцию (измененную из ответа Фредга в этой теме) Примечание: функция использует функцию разделения, которая, я думаю, здесь уместна.

 Public Function ParseText(TextIn As String, X) As Variant
    On Error Resume Next
    Dim var As Variant

    var = Split(TextIn, ".", -1)
    ParseText = var(X)

End Function
  

Вы можете написать этот оператор SQL

 SELECT  t.Version
FROM 
    ( SELECT Distinct tblSample.Version
      FROM tblSample.Version) t
ORDER BY 
    Cint(ParseText([t.Version],0)) DESC , 
    Cint(ParseText([t.Version],1)) DESC , 
    Cint(ParseText([t.Version],2)) DESC;
  

Обновить
Как отметил ХансУп. Вам также необходимо привести к int, чтобы получить правильную сортировку. Вы можете либо сделать это в SQL (как в моем обновленном ответе), либо вы можете сделать это в parseText и вернуть int

То, что вы пытаетесь сделать, аналогично сортировке IP-адресов. Вы можете следовать точно таким же методам, описанным в этой статье, чтобы выполнить то, что вам нужно.

Сохраните версию в виде 3 числовых полей.

 major minor release
    1     1    1000
    1     2    1654
    1    15    1223
    1     2    1654
    1     1    1000
  

Затем вы можете сгенерировать версию, отсортированную по вашему желанию, с помощью запроса, когда вам это нужно.

 SELECT [major] amp; "." amp; [minor] amp; "." amp; [release] AS Version_num
FROM [SELECT DISTINCT major, minor, release
FROM tblSample]. AS s
ORDER BY s.major DESC , s.minor DESC , s.release DESC;
  

Одним из решений было бы: проанализируйте полученные строки, чтобы извлечь числовые значения, при необходимости поместите перед ними начальные 0 и выведите строку. Например, 1.2.1654 становится 0001.0002.1654 (если вы уверены, что нумерация не будет превышать 4 символов). Код:

 Function NormalizeVersion(Inputstring As String) As String
' Creates sortable strings out of version numbers such as 1.6.222
Dim Elements() As String
Dim Counter As Integer
Dim Result As String
Elements = Split(Inputstring, ".")
For Counter = 0 To UBound(Elements)
    Select Case Counter
    Case 0 'First element
        Result = Format(Elements(Counter), "00000")
    Case Else 'Followups
        Result = Result amp; "." amp; Right("0000" amp; Elements(Counter), 5)
    End Select
Next Counter
NormalizeVersion = Result
End Function
  

(включено улучшение производительности HansUp)
Затем вы можете выполнить сортировку по этому.

Напишите функцию VBA, которая делает это за вас, называемую, например, NormalizeVersion, затем вызовите ее в своем запросе, например (air code):

 SELECT DISTINCT NormalizeVersion(tblSample.Version)
FROM tblSample
ORDER BY NormalizeVersion(tblSample.Version) DESC;
  

(код исправлен после комментария)