Проблема чтения данных из таблицы, в которую вставлены некоторые данные из SQL Server - PullRequest
0 голосов
/ 04 ноября 2019

У меня есть подформа, и данные не обновляются после вставки в таблицу из SQL Server для доступа к таблице

У меня есть приложение MS Access с некоторым объектом (таблица, форма, подформа). Мой источник записей формы - одна из таблиц, и когда я открываю форму, включаются показанные данные формы.

Я подключаюсь к SQL Server, получаю некоторые данные из dbo.telefone и вставляю в свою таблицу (GetTelServer). после события, такого как нажатие кнопки, но новые данные не обновляются в форме, несмотря на то, что я обновляю или запрашиваю форму или форму. Я действительно запутался, почему это происходит?

Dim strSQL1 As String
Dim rst1, RstAccess As ADODB.Recordset
              strSQL1 = "SELECT * from dbo.telefone"
             Set rst1 = New ADODB.Recordset
                     With rst1
                        .CursorLocation = adUseClient
                        .CursorType = adOpenKeyset
                        .LockType = adLockOptimistic
                        .Open strSQL1, cn, adCmdText
                      End With
                Set RstAccess = New ADODB.Recordset
                RstAccess.Open "SELECT * from GetTelServer", cnAccess, adOpenKeyset, adLockOptimistic
                Do Until rst1.EOF
                        RstAccess.AddNew
                        RstAccess.Fields("Name").Value =         rst1.Fields("Name").Value
                        RstAccess.Fields("job").Value = rst1.Fields("job").Value
                        RstAccess.Update
                        rst1.MoveNext
                 Loop

      Me.Query_subform.Requery
      Me.Refresh
        RstAccess.Close
        Set RstAccess = Nothing
        cnAccess.Close
        Set cnAccess = Nothing
        Me.Query_subform.Form.RecordSource = "SELECT * from GetTelServer"
       'even 
        set Query_subform.Form.recordset= RstAccess 

Я понятия не имею, почему данные не попадают в мою форму. Конечно, если открыть форму все в порядке, но я не хочу снова открывать форму. Я ожидал, что данные формы будут обновлены сразу после вставки в таблицу

1 Ответ

0 голосов
/ 06 ноября 2019

Я полагаю, что вам необходимо обновить исходные данные после того, как вы назначите источник записей подчиненной форме.
Ваша последняя строка не выглядит корректной (если она была действительной, набор записей будет иметь заглавную букву после проверки синтаксиса), пожалуйста, закомментируйте это.

Пожалуйста, добавьте новую последнюю строку:

 Me.Query_subform.Refresh 

Даже Me.Refresh может это сделать ... Затем повторите тест.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...