Формат данных MySQL в Excel

Question

У меня есть таблица в MySQL, как это:

+-------+--------+-------------+
| child | parent | data        |
+-------+--------+-------------+
|     1 |      0 | house       |
|     2 |      0 | car         |
|     3 |      1 | door        |
|     4 |      2 | door        |
|     5 |      2 | windscreen  |
|    11 |      5 | wiper       |
+-------+--------+-------------+

Я подключился к mysql из Excel 2007 в соответствии с этим руководством, за исключением того, что я создал днс в системе днс, а не в юзере днс, которая работала для меня.

У меня немного знаний о формулах, и я не мог понять, как получить эти табличные данные:

house | door
house | wall
car   | door
car   | windscreen | wiper  

Редактировать 1

Часть с mysql здесь не имеет значения. Эта таблица mysql вполне может быть таблицей Excel.

Редактировать 2

Теперь я понимаю, что даже не нужно было говорить, что здесь есть таблица mysql, а просто таблица excel. Но это может кого-то вдохновить / помочь.

Редактировать 3

После некоторой документации мне удалось решить самые важные аспекты моей проблемы

Диапазон в листе db:

child    parent     data
1        0          car
2        0          house
3        1          door
4        2          door
5        1          window
6        2          window
7        1          windscreen
8        7          wiper
9        4          color
10        2          color

У меня есть имя БД, которое относится к

=db!$A$2:OFFSET(db!$C$2,COUNTA(db!$C:$C)-2,0) 

имя ребенка

=db!$A$2:OFFSET(db!$A$2,COUNTA(db!$A:$A)-2,0)

На другом листе с именем конструкции я начал с B2 и использовал следующую формулу:

=IFERROR(
    IF(ISBLANK(B1),
        LARGE(child,COUNTA($A$2:A$2)+1),
        VLOOKUP(B1,db,2,0)
    ),".") 

В третьем листе с именем output я начал с A1 и использовал формулу:

=IFERROR(VLOOKUP(construct!B2,db,3,0),".")

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

Редактировать 4

При импорте из sql на листе базы данных вместо диапазона будет таблица, поэтому формулы будут выглядеть немного иначе. Щелкните в любом месте таблицы, перейдите на вкладку «Дизайн» и переименуйте основание таблицы, затем в листе построения из b2 начните с этой формулы:

=IFERROR(
    IF(ISBLANK(B1),
    LARGE(INDIRECT("base[child]"),COUNTA($A$2:A$2)+1),
    VLOOKUP(B1,base,2,0)
),".")

Answer 1

Вот как я бы это сделал, используя VBA: сначала создайте модуль класса и назовите его CDatum. Поместите этот код туда.

Option Explicit

Private msID As String
Private msData As String
Private msParentID As String


Public Property Get ID() As String

    ID = msID

End Property

Public Property Let ID(ByVal sID As String)

    msID = sID

End Property

Public Property Get Data() As String

    Data = msData

End Property

Public Property Let Data(ByVal sData As String)

    msData = sData

End Property

Public Property Get ParentID() As String

    ParentID = msParentID

End Property

Public Property Let ParentID(ByVal sParentID As String)

    msParentID = sParentID

End Property

Public Property Get ChildCount() As Long

    Dim i As Long
    Dim lReturn As Long

    For i = 1 To gclsData.Count
        If gclsData.Data(i).ParentID = Me.ID Then
            lReturn = lReturn + 1
        End If
    Next i

    ChildCount = lReturn

End Property

Public Property Get Tree() As Variant

    Dim vaReturn As Variant
    Dim vaChild As Variant
    Dim i As Long, j As Long
    Dim lChildCount As Long
    Dim lRowCount As Long
    Dim lOldUbound As Long

    If Me.ChildCount = 0 Then
        lRowCount = 1
    Else
        lRowCount = Me.ChildCount
    End If

    ReDim vaReturn(1 To lRowCount, 1 To 1)

    For i = 1 To lRowCount
        vaReturn(i, 1) = Me.Data
    Next i

    For i = 1 To gclsData.Count
        If gclsData.Data(i).ParentID = Me.ID Then
            lChildCount = lChildCount + 1
            vaChild = gclsData.Data(i).Tree
            lOldUbound = UBound(vaReturn, 2)
            ReDim Preserve vaReturn(1 To lRowCount, 1 To UBound(vaReturn, 2) + UBound(vaChild, 2))
            For j = 1 To UBound(vaChild, 2)
                vaReturn(lChildCount, j + 1) = vaChild(1, j)
            Next j
        End If
    Next i

    Tree = vaReturn

End Property

Затем создайте модуль класса, назовите его CData и вставьте в него этот код

Option Explicit

Private mcolCDatas As Collection

Private Sub Class_Initialize()

    Set mcolCDatas = New Collection

End Sub

Private Sub Class_Terminate()

    Set mcolCDatas = Nothing

End Sub

Public Sub Add(clsDatum As CDatum)

    mcolCDatas.Add clsDatum, clsDatum.ID

End Sub

Public Property Get Count() As Long

    Count = mcolCDatas.Count

End Property

Public Property Get Data(vItem As Variant) As CDatum

    Set Data = mcolCDatas.Item(vItem)

End Property

Public Property Get FilterByTopLevel() As CData

    Dim clsReturn As CData
    Dim i As Long
    Dim clsDatum As CDatum

    Set clsReturn = New CData

    For i = 1 To Me.Count
        Set clsDatum = Me.Data(i)
        If clsDatum.ParentID = 0 Then
            clsReturn.Add clsDatum
        End If
    Next i

    Set FilterByTopLevel = clsReturn

End Property

Затем вставьте стандартный модуль и вставьте в него этот код

Option Explicit

Public gclsData As CData

Sub FillClass()

    Dim clsDatum As CDatum
    Dim rCell As Range

    Set gclsData = New CData

    For Each rCell In Sheet1.Range("A2:A7").Cells
        Set clsDatum = New CDatum
        clsDatum.ID = rCell.Value
        clsDatum.Data = rCell.Offset(0, 2).Value
        clsDatum.ParentID = rCell.Offset(0, 1).Value
        gclsData.Add clsDatum
    Next rCell

End Sub

Sub PrintTree()

    Dim clsDatum As CDatum
    Dim clsTopLevel As CData
    Dim i As Long
    Dim ws As Worksheet
    Dim vaData As Variant
    Dim lRowCount As Long

    FillClass

    Set clsTopLevel = gclsData.FilterByTopLevel
    Set ws = ThisWorkbook.Worksheets.Add

    lRowCount = 1

    For i = 1 To clsTopLevel.Count
        Set clsDatum = clsTopLevel.Data(i)
        vaData = clsDatum.Tree
        ws.Cells(lRowCount, 1).Resize(UBound(vaData, 1), UBound(vaData, 2)).Value = vaData
        lRowCount = lRowCount + UBound(vaData, 1)
    Next i

End Sub

Затем запустите подпрограмму PrintTree. Или вы можете скачать рабочую книгу, которую я использовал, чтобы протестировать ее и следовать там.

http://www.dailydoseofexcel.com/excel/TestDataClass.zip

Answer 2

Прежде всего, вам обязательно нужно использовать это соединение для передачи данных в Excel? Потому что было бы намного проще, если бы вы просто экспортировали сами данные в файл .csv, который впоследствии можно открыть непосредственно в Excel.

Дайте ему шанс: SELECT * FROM ... INTO OUTFILE '/temp.csv' FIELDS ESCAPED BY '""' TERMINATED BY ',' ENCLOSED BY '"' LINES TERMINATED BY '\r\n';

Что касается вашего запроса, похоже, вы пытаетесь отобразить дерево. Проверьте следующие сайты:

1. Деревья в базах данных SQL
2. Древовидная иерархия в SQL
3. алгоритмы SQL-графа