-Поиск по дневнику

Поиск сообщений в rss_sql_ru_access_programming

 -Подписка по e-mail

 

 -Постоянные читатели

 -Статистика

Статистика LiveInternet.ru: показано количество хитов и посетителей
Создан: 16.03.2006
Записей:
Комментариев:
Написано: 4


mdb+ado+SQL+подчиненки - как сделать?

Пятница, 21 Сентября 2018 г. 10:31 + в цитатник
Добрый день.

Учу АДО, дабы перевести ADP на новые рельсы. Есть mdb 2003 + SQL 2008R2. Линкованных таблиц по ОДБС нет.

Требуется сделать форму в табличном виде с подчиненной формой.
Все хочу сделать на АДО-рекордсетах.
Главная форма сделана так, все работате, фильтрация, сортировка, добавление и удаление.
Private Sub Form_Open(Cancel As Integer)
   
   Set cn = New ADODB.Connection
   With cn
      .ConnectionString = "Provider=MSDASQL;Driver=SQL Server;Server=SQLSRV;Database=dbInfoTool;Trusted_Connection=yes"
      .CursorLocation = adUseClient
      .Open
    End With

    Set rs = New ADODB.Recordset
    With rs
        .Source = "sp_PCB_Infos"           ' хранимко
        .ActiveConnection = cn
        .LockType = adLockOptimistic
        .CursorType = adOpenKeyset
        .CursorLocation = adUseClient
        .Open
    End With

    'Set rs.ActiveConnection = Nothing
    Set Me.Recordset = rs

    Set rs = Nothing
    Set cn = Nothing
End Sub


Как организовать подчиненную форму используя ADO?
Сложность (для меня?) в том, что на экране одновременно может отображаться несколько подчиненных форм одновременно, см.фото.
На фото подчиненка основана на ОДБС линкованной таблице-вьюхе и все работает, а вот как сделать без линковок?

И еще маленький вопрос:
Если в форме нажать Shift+F9, то выскакивает сообщение "Не удается инициализировать поставщика данных". Как это исправить.
Пока что перехватом нажатий обрабатываю Shift+F9 и сообщения не появляется, но "это же не наш метод"!
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
   
    If KeyCode = 120 And Shift = 1 Then KeyCode = 0

End Sub

http://www.sql.ru/forum/1302838/mdb-ado-sql-podchinenki-kak-sdelat


 

Добавить комментарий:
Текст комментария: смайлики

Проверка орфографии: (найти ошибки)

Прикрепить картинку:

 Переводить URL в ссылку
 Подписаться на комментарии
 Подписать картинку