Ошибка обновления на VBA. Выполните на ADODB Recordset - PullRequest
Новая
       15

Ошибка обновления на VBA. Выполните на ADODB Recordset

0 голосов
/ 04 июля 2018

Я пытаюсь обновить таблицу БД SQL с помощью ввода из моего текстового поля. Проблема, с которой я столкнулся, может быть замечена с помощью общего VBA Sub, показанного ниже: 

Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset

Dim strSql As String
Dim strADOCon As String

strADOConTechSub = "PROVIDER=SQLOLEDB;Data Source=______;Initial Catalog=______;User ID = _______; Password = ______;Trusted_Connection=Yes"

conn.Open strADOCon

strSql = "SELECT this " & _ 
         "FROM there  " & _
         "WHERE that <> ''"

Set rst = conn.Execute(strSql)

rst!this.Value = Me.Textbox1

conn.Close

Я получаю сообщение об ошибке;

Ошибка времени выполнения '3251':

Текущий набор записей не поддерживает обновление. Это может быть ограничением провайдера или выбранного типа блокировки.

Любая помощь будет принята с благодарностью.

...