Каким прараметром разрешить Me.Recordset.AddNew |
Private Sub cbChangeDataBase_AfterUpdate() Dim rst1 As New ADODB.Recordset rst1.CursorLocation = adUseClient rst1.Open "SELECT * FROM Seriynik_INV_REQ ORDER BY keyID DESC", _ "Provider=SQLOLEDB;Trusted_Connection=Yes;APP=Napp;SERVER=S-DB1.N.RU;Database=BD_" & cbChangeDataBase & ";" Set Me.Recordset = rst1 Set rst1 = Nothing End Sub
http://www.sql.ru/forum/1192850/kakim-prarametrom-razreshit-me-recordset-addnew
Комментировать | « Пред. запись — К дневнику — След. запись » | Страницы: [1] [Новые] |