В TextBox(ы) вывожу данные из таблицы DBF успешно.
Далее нужно изменить данные в Text.Box(e) и отправить их обратно в таблицу.
Вылетает ошибка : Не удается найти объект в семействе, соответствующий требуемому имени или порядковому номеру.
Вот пример:
- Код: Выделить всё
Dim myConnect1 As New ADODB.Connection
Dim myRecordset1 As New ADODB.Recordset
Dim NewSPZ As String = TextBox14.Text ' берем значение из TextBox в переменную
Dim spz As String = "UPDATE PROG_DAN SET SPZ='" + NewSPZ + "' WHERE SERVER=3" ' -вот глючный запрос
myConnect1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" + _
"Data Source=C:\POCHTA;" + "Extended Properties=""dBase III;"";"""
Try
myConnect1.Open()
myRecordset1 = myConnect1.Execute(spz)
TextBox14.Text = myRecordset1.Fields("SPZ").Value
myConnect1.Cancel()
Catch ex As Exception
MsgBox(ex.GetBaseException.ToString)
End Try