Как сохранить массив в mdb

[DmB]

Вот код для сохранения в текстовой файл,
а нужно в таблицу что-то типа:

назв. полей -| LevelData1 | LevelData2 | --- | LevelData20 |
значения - |--------------|---------------

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

Private Sub Save_Click()

Private LevelData(1 To 20)
Dim v As Integer, h As Integer
Dim a$
Dim tile As String

Open App.Path + "\" + "DM.txt" For Output As #1
For v = 1 To 20
a$ = LevelData(v)
For h = 1 To 20
tile = Mid$(a$, h, 1)

tile="bla-bla-bla"

Print #1, tile;
Next h
Print #1, ""
Next v
Close #1

End Sub

[Alexanbar]

Нужно использовать элементы управления Data или AdoData. Пустую базу проще создать в MS Access, но при желании можно и чисто программно.