mdb+ado+SQL+подчиненки - как сделать? |
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
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
Комментировать | « Пред. запись — К дневнику — След. запись » | Страницы: [1] [Новые] |