Access ASP SQL Server VBA NET - Форумы по проектированию

LEADERSOFT.ru Разработка на заказ программ и сайтов

Форумы по информационным технологиям

Начало

Forums

Регистрация | Вход

Форумы

Поиск

Список форумов

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Использов...

Тема: Использование метода Seek

15.06.2007 21:09:45

All

4316 сообщения

Тема: Использование метода Seek

В чем проблема подскажите. Когда указываю CNN.ConnectionString=CurrentProject.BaseConnectionString нельзя пользоваться методом Seek, а если строка подключения составлена как в ниже указанной функции, то все работает правильно. Есть альтернатива этому решению.
Таблица "tblGood" является связанной.

Public Function Proba()
Dim CNN As New ADODB.Connection
Dim RS As ADODB.Recordset

Set CNN = New ADODB.Connection
CNN.Provider = "Microsoft.Jet.OLEDB.4.0"
CNN.ConnectionString = CurrentProject.Path & "\Data\BD_be.mdb"
CNN.Open

Set RS = New ADODB.Recordset
RS.ActiveConnection = CNN
RS.Source = "tblGood"
RS.CursorLocation = adUseServer
RS.CursorType = adOpenKeyset
RS.LockType = adLockPessimistic
RS.Index = "SubDocRowID"
RS.Open Options:=adCmdTableDirect

RS.Seek "Ent26", adSeekFirstEQ
Debug.Print RS!mDate

RS.Close
Set RS = Nothing
CNN.Close
Set CNN = Nothing
End Function

P.S. Общий раздел по таблицам
Автор: Luckiy от 0:00:00 Источник ...

Страница 1 из 1

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Использов...

Поиск

Список форумов

Начало | Forums