Добрый день.
Учу АДО, дабы перевести ADP на новые рельсы. Есть mdb 2003 + SQL 2008R2. Линкованных таблиц по ОДБС нет.
Требуется сделать форму в табличном виде с подчиненной формой.
Все хочу сделать на АДО-рекордсетах.
Главная форма сделана так, все работате, фильтрация, сортировка, добавление и удаление.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
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 и сообщения не появляется, но "это же не наш метод"!
1.
2.
3.
4.
5.
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 120 And Shift = 1 Then KeyCode = 0
End Sub
