VPF::Как получить список OLE-приложений?

Vanoshka

Дата 19.10.2007, 08:14 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 19.10.2007

Репутация: нет
Всего: нет

Здравствуйте.
У меня есть база MSAccess, содержащая таблицу с OLE-объектами. OLE созданы с использованием различных приложений. Подскажите, как мне считать список приложений, с использованием которых созданы OLE-объекты.

Aloha

Дата 21.10.2007, 02:31 (ссылка)

(нет голосов)

Загрузка ...

Профиль
Группа: Участник Клуба
Сообщений: 351
Регистрация: 14.5.2006

Репутация: 2
Всего: 165

Vanoshka

Код

Private Sub s_GetOLEObjectsList()
  Dim v_Rst As ADODB.Recordset
  Dim v_SQL As String
  Dim v_Str As String
  Dim v_Byte() As Byte
  Dim n As Long
  
  Set v_Rst = New ADODB.Recordset
  v_SQL = "SELECT fld_OLEObject FROM tbl_OLEObjects"
  v_Rst.Open v_SQL, CurrentProject.Connection
  v_Rst.MoveFirst
  Do Until v_Rst.EOF
    v_Byte = v_Rst.Fields(0)
    v_Str = ""
    n = 20
    Do Until v_Byte(n) = 1
      v_Str = v_Str & Chr(v_Byte(n))
      n = n + 1
    Loop
    Debug.Print v_Str
    v_Rst.MoveNext
  Loop

  Set v_Rst = Nothing
End Sub

Это сообщение отредактировал(а) Aloha - 21.10.2007, 02:31

Присоединённый файл ( Кол-во скачиваний: 5 )

db1.rar 18,86 Kb

Vanoshka

Дата 22.10.2007, 10:18 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 19.10.2007

Репутация: нет
Всего: нет

Спасибо большое! smile

Ваш пример очень помог. smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »