Редактирование значения одного поля при использование ADO - VB

Формулировка задачи:

Мне необходимо изменить значение одного поля в одной записи. Используется соединение ADO, база Access. Строка подключения strCnn = 'driver={Microsoft Access Driver *.mdb)};dbq=e:/temp/db1.mdb' Пользователь просматривает записи и может изменять их. Можно ли это сделать не используя SQL запрос?

Решение задачи: «Редактирование значения одного поля при использование ADO»

textual
                            Листинг программы 
                        
 
                        
                          
                    
  Dim cnn1 As ADODB.Connection
   Dim rstEmployees As ADODB.Recordset
   Dim strCnn As String
   Dim varDate As Variant
 
   ' Open connection.
      strCnn = 'Provider=sqloledb;' & _
      'Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; '
   Set cnn1 = New ADODB.Connection
   cnn1.Open strCnn
   
   ' Open employee table.
   Set rstEmployees = New ADODB.Recordset
   rstEmployees.CursorType = adOpenKeyset
   rstEmployees.LockType = adLockOptimistic
   ' Вот момент открытия таблицы
   rstEmployees.Open 'employee', cnn1, , , adCmdTable
 
   'присваиваем значение поля переменной.
   varDate = rstEmployees!hire_date
   'или наоборот
   rstEmployees!hire_date=date

Оцени полезность:

14 голосов , оценка 4.286 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы