Как обновить набор записей - PullRequest
Новая
       4

Как обновить набор записей

0 голосов
/ 27 января 2012

вот мой код 

Dim Cn1 As ADODB.Connection
Dim iSQLStr As String
Dim field_num As Integer


Set Cn1 = New ADODB.Connection
Cn1.ConnectionString = _
    "Driver={Microsoft Text Driver (*.txt; *.csv)};" & _
    "DefaultDir=" & "C:\path\"
Cn1.Open

iSQLStr = "Select * FROM " & "file.txt" ' & " ORDER BY " & txtField.Text
field_num = CInt(1) - 1
Set Rs1 = Cn1.Execute(iSQLStr)
lstResults.Clear

While Not Rs1.EOF
    DoEvents
    Rs1.Fields(field_num).Value = "qaz"
    If IsNull(Rs1.Fields(field_num).Value) Then
        lstResults.AddItem "<null>"
    Else
        lstResults.AddItem Rs1.Fields(field_num).Value
    End If
    Rs1.MoveNext
Wend

Я получаю ошибку в этой строке 

Rs1.Fields(field_num).Value = "qaz"

там написано "Текущий набор записей не поддерживает обновление", что не так в коде?

1 Ответ

0 голосов
/ 27 января 2012

Я не уверен, допустимо ли это для текстовых файлов, но в SQL Server вам необходимо изменить параметр LockTypeEnum Value, чтобы разрешить редактирование, см. Эту ссылку , по умолчанию adLockReadOnly

Редактировать

По этой ссылке невозможно редактировать текстовый файл через ADO.

...