бдыщь!
Public Sub CreateXML()
Dim cnn As ADODB.Connection
Dim adoField As ADODB.Field
Dim rst As ADODB.Recordset
Set cnn = CurrentProject.Connection
Set rst = New ADODB.Recordset
rst.Open "f_lit", cnn ' Имя таблицы
rst.MoveFirst
Do 'бежим по строкам таблицы
Set xmlParser = CreateObject("msxml2.DOMDocument")
xmlParser.appendChild (xmlParser.createProcessingInstruction("xml",
"version='1.0' encoding='windows-1251'"))
'корневая нода с id
Set rootnode = xmlParser.appendChild(xmlParser.createElement("Item"))
Set newAttr = xmlParser.createAttribute(rst.Fields(0).Name)
newAttr.Value = rst.Fields(0).Value
rootnode.setAttributeNode (newAttr)
For i = 1 To rst.Fields.Count - 1 'бежим по полям записи
Set subNode = rootnode.appendChild(xmlParser.createElement(rst.Fields(i).Name))
subNode.Text = rst.Fields(i).Value
Next i
f_name = rst.Fields(0).Name + "_" + CStr(rst.Fields(0).Value) + ".xml"
xmlParser.Save (f_name)
rst.MoveNext
Loop Until rst.EOF
rst.Close
Set rst = Nothing
cnn.Close
Set cnn = Nothing
End Sub
Так и живем. С видео пока застряли на этапе снисхождения манны в виде денег.
Ну так что же, у нас есть аудиоархив, со своей непростой судьбой.
Изначально это магнитная лента Ampex, которая потом оцифровывалась на DAT-кассеты, которые затем писали на CD-Audio, которые затем оцифровывались файлами на DVD, которые потом переписывались на сервер.
Ага, именно, весь материал, а это наверное под100000 единиц записей, как-то размазан между этими носителями, частично дублирован. Ух. Понять где-что практически не возможно.
Все это добро частично описано в FoxPro'шной базе, которую /*Слава ODBC! */ мне удалось затащить в access и там уже что-то с ней поделать.
Неплохо было бы дать возможность этому материалу, а он наверное местами довольно уникален /*Стук сердца Джона Гленона записанный из космоса*/, быть доступным внешним потребителям, а именно Радио России, Маяк, Культура и т.п.
Для этого материал, и что еще очень важно - метаданные, запихать в радийный Dalet.
Кусок кода вставлен для красоты, моя текущая гордость - дергаем метаданные из таблиц и пихаем их в xml файлы, для Impex-сервера Dalet, который их уже будет раскладывать по формам нашей стройной модели метаданных (%