• На форуме с 21 сентября 2001г.
  • Сообщений: 1
  • Спасибо: 0

Тема: Microsoft DAO 3.5

Мужики,помогите!В Reference я установила ссылку на DAO 3.5 Object Library.Обращаюсь из программы VBA к базе данных(.mdb)и получаю большой..........,в общем ошибку выполнения 429(Невозможно создание
объекта компонентом ActiveX).Ребятки,поможите! Подробно объясните,что мне нужно сделать,чтобы заработало обращение к базе.Спасибо!

  • На форуме с 12 ноября 2001г.
  • Сообщений: 61
  • Спасибо: 0

Re: Microsoft DAO 3.5

У меня была та же ситуация. Подключил DAO 3.6 - там все заработало. Почему - не знаю.

  • pavel
  • Восстановленный участник
  • На форуме с 13 ноября 2001г.
  • Сообщений: 35
  • Спасибо: 0

Re: Microsoft DAO 3.5

я делаю так:
Private Sub CommandButton1_Click()
Dim wsp As Workspace
Dim dbs As Database
Dim FileName As String
Dim rst As Recordset
Dim rost As Single
Dim bedra As Single
Dim grud As Single
Dim MyPer As Single
FileName = "C:\ost.mdb"
bedra = 84
grud = 78
rost = 140
Set wsp = DBEngine.Workspaces(0)
Set dbs = wsp.OpenDatabase(FileName)
Set rst = dbs.OpenRecordset("SELECT * " _
& "FROM [Women OST] " _
& "WHERE ((([Women OST].[1])=" & rost & ") AND (([Women OST].[16])=" & grud & ") AND (([Women OST].[19])=" & bedra & "));", dbOpenSnapshot, dbReadOnly)
If rst.RecordCount > 0 Then
MyPer = rst![3]
Else
MsgBox "Íè÷åãî íåò", vbCritical + vbOKOnly, "Ñàì äóðàê"
End If
Set rst = Nothing
End Sub