Существует ли элемент коллекции?

[jangle]

Есть ли способ узнать существует ли элемент коллекции, если есть его ключ
Что то типа такого

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

Dim Col As New Collection
Col.Add "X1", "1"
Col.Add "X2", "2"
Col.Add "X3", "3"
If Col("4") Is Nothing Then
   MsgBox "XXX"
End If


[Demonx]

Обратись к элементу коллекции в функции и лови ошибку

[jangle]

Обратись к элементу коллекции в функции и лови ошибку

Ну этот кривой способ и так понятен, а разве нет более красивого метода проверить существует элемент или нет?

[Хакер]

Ну этот кривой способ и так понятен

Кривость метода спорна.

а разве нет более красивого метода проверить существует элемент или нет?

В Collection нет, в Dictionary есть.

[jangle]

Ок, понятно. Я вообще-то использую коллекцию для кеширования запросов к БД. Программа дергает базу через функцию GetNote, подгружая куски данных по 1-2 Мб из базы. Мне интересно, насколько быстро такой код сожрет всю доступную оперативку?

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

Public Function GetNote(ByVal TheID As Long) As String

Dim rc As Recordset
Dim SqlStr As String
Dim txt As String
On Error Resume Next
   
txt = CacheNote(Str$(TheID))
  If txt <> "" Then
  GetNote = CacheNote(Str$(TheID))
  Exit Function
End If
     
    SqlStr = "SELECT nNote FROM Notes WHERE ID = " & TheID
    Set rc = db.OpenRecordset(SqlStr, dbOpenSnapshot, dbReadOnly)
     If (rc.RecordCount) Then
        GetNote = rc("nNote")
        CacheNote.Add GetNote, Str$(TheID)
    End If
   
    Call rc.Close
    Set rc = Nothing   
End Function