Обновление набора записей в VB6

Question

Быстрый вопрос, новый для этого сайта, особенно для программирования.

Я пытаюсь выбрать данные из SqlServer, а затем обновить его, пока он все еще является набором записей. Я не хочу обновлять фактическую таблицу данными .... Итак, если у меня есть поле под названием RS! («FirstName»), и я хочу добавить к нему строку, например «MR»

Вот как я это сделать

str = "Select FirstName from tblClient" 
rs.Open SQL, g_cn, adOpenStatic 

rs.movefirst 
do while not rs.eof 
    rs("FirstName") = "MR" & rs("FirstName") <--- this is what i'm trying to do but it tells me I cannot update it. 
    rs.movenext 
loop 

Как это исправить

Answer 1

Вы должны показать весь код, чтобы сделать его проще, чтобы помочь вам.

Из того, что вы показываете - очевидным решением является использование переменной str. Он будет отображаться быстрее, если вы добавите Option Explicit на самом верху своего модуля, тогда вы можете сказать, что не указали некоторые из ваших варов.

В любом случае, если вы используете sql, который вы объявили - и - изменить тип набора записей, он должен работать

Изменение:

str = "Select FirstName from tblClient" 
rs.Open SQL, g_cn, adOpenStatic 

To:

str = "Select FirstName from tblClient" 
rs.Open str, g_cn, adOpenDynamic, adLockOptimistic 

Loop:

rs.Edit 
rs("FirstName") = "MR" & rs("FirstName") 
rs.Update 
rs.movenext 

Answer 2

Настоящий ответ заключается в создании нового отсоединенного набора записей. Вы можете сделать это так, как хотите, и просто ничего не делаете, когда закончите. Вы можете сделать это специально для набора записей, который вы хотите изменить или написать более общий метод, который копирует исходный набор записей.

Вот общий пример. rsOriginal - это набор записей, который передается и используется позже в коде. rsUpdateable - это локальный набор записей, созданный как копия оригинала, а затем назначенный исходной переменной набора записей. Теперь он полностью обновляется и изменения не могут быть возвращены в исходную таблицу.

... 

'clone a recordset into a new updateable recordset 
Dim rsUpdateable As New ADODB.Recordset 
Dim fld As ADODB.Field 
'errors here are unlikely, but if happens I don't want to alert the user 
On Error Resume Next 
'build the table schema 
For Each fld In rsOriginal.Fields 
    rsUpdateable.Fields.Append fld.Name, fld.Type, fld.DefinedSize 
Next fld 
rsUpdateable.Open 
'populate the new recordset with the original values 
rsUpdateable.AddNew 
For Each fld In rsOriginal.Fields 
    rsUpdateable.Fields(fld.Name).Value = fld.Value 
Next fld 
Set rs = rsUpdateable 'done 
On Error GoTo OriginalErrorHandler 'restore error handler 

...