Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 ImportXM - узнать куда импортируем данные  [new]
Bely
Member

Откуда: Москва
Сообщений: 1903
Имеем файл XML, надо загрузить этот файл и узнать в какую таблицу эти данные сэкспортировались.

Есть какие-нибудь варианты, кроме как парсить XML "ручками"?
23 май 04, 14:29    [695115]     Ответить | Цитировать Сообщить модератору
 Re: ImportXM - узнать куда импортируем данные  [new]
Shuhard
Member

Откуда:
Сообщений: 4998
если таблица одна и однопользовательский режим то путем наблюдения за TableDefs
references исключительно на DAO
Dim MyArrDo(1024, 4) As Variant
Dim MyArrPosle(1024, 4) As Variant
Dim MyDb As Database
Dim MyTbl As TableDef
Dim MyName As String
Dim MyAtr As Variant
Dim MyRst As Recordset
Dim MyY As Long
Dim MyX As Long
Set MyDb = CurrentDb
      MyY = 0
      For Each MyTbl In MyDb.TableDefs
      MyAtr = MyTbl.Attributes
       If ((MyAtr And dbSystemObject) Or (MyAtr And dbHiddenObject)) Then
                                        MyName = ""
                                                            Else
      
      
        MyArrDo(MyY, 0) = MyTbl.Name
        MyArrDo(MyY, 1) = MyTbl.DateCreated
       MyY = MyY + 1
       End If
        
      Next MyTbl

'Import XML
Application.ImportXML DataSource:="d:\777.xml"
RefreshDatabaseWindow
    MyDb.TableDefs.Refresh
    MyY = 0
      For Each MyTbl In MyDb.TableDefs
      MyAtr = MyTbl.Attributes
       If ((MyAtr And dbSystemObject) Or (MyAtr And dbHiddenObject)) Then
                                        MyName = ""
                                                            Else
      
      
        MyArrPosle(MyY, 0) = MyTbl.Name
        MyArrPosle(MyY, 1) = MyTbl.DateCreated
       MyY = MyY + 1
       End If
        
      Next MyTbl
MyMax = MyY
For MyY = 0 To MyMax - 2
'Debug.Print MyArrDo(MyY, 0); MyArrPosle(MyY, 0)
If MyArrDo(MyY, 0) <> MyArrPosle(MyY, 0) Then
  MsgBox (MyArrPosle(MyY, 0))
  Exit For
End If
Next MyY
Set MyDb = Nothing
23 май 04, 17:22    [695234]     Ответить | Цитировать Сообщить модератору
 Мда... безрадостно.  [new]
Bely
Member

Откуда: Москва
Сообщений: 1903
Тогда следующий вопрос.
Согласно MSDN ImportXML имеет параметры:

expression.ImportXML(DataSource, DataTransform, OtherFlags)

Однако, оказывается что параметра DataTransform в этом методе нет (контекстная подсказка + ошибки компилирования).

Это MSDN такой веселый или у меня, может, чего доустановить/проапгрэйдить надо? XML у меня 2.0, вроде, подключен
23 май 04, 23:23    [695395]     Ответить | Цитировать Сообщить модератору
 Re: ImportXM - узнать куда импортируем данные  [new]
Shuhard
Member

Откуда:
Сообщений: 4998
В Access XP то-же 2 параметра возможно в 2003 что то сменилось
24 май 04, 08:28    [695516]     Ответить | Цитировать Сообщить модератору
 Re: ImportXM - узнать куда импортируем данные  [new]
ищ
Guest
"узнать в какую таблицу эти данные сэкспортировались"
зачем тебе узнавать куда?
сам и напиши название таблицы.
при импорте просто укажи куда. все просто, батя.
24 май 04, 10:15    [695714]     Ответить | Цитировать Сообщить модератору
 Re: ImportXM - узнать куда импортируем данные  [new]
ищ
Guest
предыдущий ответ можно не читать.

если это разовая операция, то по дате создания можно определить.
если это постоянно, то имя всегда известно.
24 май 04, 10:19    [695734]     Ответить | Цитировать Сообщить модератору
 Re: ImportXM - узнать куда импортируем данные  [new]
Shuhard
Member

Откуда:
Сообщений: 4998
Ищ
пример приведи задания имени
я не разглядел где это возможно
24 май 04, 10:32    [695787]     Ответить | Цитировать Сообщить модератору
 Re: ImportXM - узнать куда импортируем данные  [new]
ищ
Guest
зачем тебе?
24 май 04, 10:50    [695858]     Ответить | Цитировать Сообщить модератору
 Re: ImportXM - узнать куда импортируем данные  [new]
ищ
Guest
ты сначала поставь задачу, а потом будем решать: нужно тебе имя или нет.
24 май 04, 10:51    [695861]     Ответить | Цитировать Сообщить модератору
 Re: ImportXM - узнать куда импортируем данные  [new]
Shuhard
Member

Откуда:
Сообщений: 4998
задача отсутствует
проверка собственной тупости(остроты зрения)
24 май 04, 11:29    [696005]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить