Словари и хеш-таблицы в MS-Access 2007

Я хочу использовать в своей программе доступа либо хеш-таблицу, либо словарь. По-видимому, я должен использовать для этого Microsoft Scripting Runtime Library, но это не работает.

Dim Dict1 As Dictionary

' Create a dictionary instance.
Set Dict1 = New Dictionary

Не удается найти методы ".compareMode" или ".Add":

With Dict1
  'set compare mode
  .CompareMode = BinaryCompare
  ' Add items to the dictionary.
  .Add 1, "Item 1"
  .Add 2, "Item 2"
  .Add 3, "Item 3"
End With

Вместо этого мне доступны только эти:

.application
.creator
.delete
etc...

Какие-нибудь подсказки?

Стоит ли изучать PHP в 2026-2027 годах?
Стоит ли изучать PHP в 2026-2027 годах?
Привет всем, сегодня я хочу высказать свои соображения по поводу вопроса, который я уже много раз получал в своем сообществе: "Стоит ли изучать PHP в...
Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией
Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией
В JavaScript одним из самых запутанных понятий является поведение ключевого слова "this" в стрелочной и обычной функциях.
Приемы CSS-макетирования - floats и Flexbox
Приемы CSS-макетирования - floats и Flexbox
Здравствуйте, друзья-студенты! Готовы совершенствовать свои навыки веб-дизайна? Сегодня в нашем путешествии мы рассмотрим приемы CSS-верстки - в...
Тестирование функциональных ngrx-эффектов в Angular 16 с помощью Jest
В системе управления состояниями ngrx, совместимой с Angular 16, появились функциональные эффекты. Это здорово и делает код определенно легче для...
Концепция локализации и ее применение в приложениях React ⚡️
Концепция локализации и ее применение в приложениях React ⚡️
Локализация - это процесс адаптации приложения к различным языкам и культурным требованиям. Это позволяет пользователям получить опыт, соответствующий...
Пользовательский скаляр GraphQL
Пользовательский скаляр GraphQL
Листовые узлы системы типов GraphQL называются скалярами. Достигнув скалярного типа, невозможно спуститься дальше по иерархии типов. Скалярный тип...
2
0
3 002
1
Перейти к ответу Данный вопрос помечен как решенный

Ответы 1

Ответ принят как подходящий

Ну, прежде всего измените ДвоичныйСравнить на vbBinaryCompare.

И я думаю, вы хотите сделать свой сет вот так:

Set Dict1 = CreateObject(Scripting.Dictionary)

Редактировать Для большей наглядности вот возможное решение Антона. Он изменил способ объявления своего словаря следующим образом:

Dim SortValues As Scripting.Dictionary 
Set SortValues = New Scripting.Dictionary

Этот способ не сработал, но дал мне идею. Dim SortValues ​​As Scripting.Dictionary Установить SortValues ​​= New Scripting.Dictionary Это сработало. Спасибо за помощь!

Anton 30.12.2008 18:35

Исходная строка CodeSlave должна была заключить имя класса (Scripting.Dictionary) в двойные кавычки, то есть Dim Dict1 As Object Set Dict1 = CreateObject ("Scripting.Dictionary")

onedaywhen 06.01.2009 17:41

Другие вопросы по теме