[Vb.net] [срочно] произошла ошибка базы данных MS access при удалении и редактировании
Я развиваюсь vb.net приложение базы данных и я получил 2 ошибки следующим образом
Я не знаю, почему возникли эти 2 ошибки. Не могли бы вы пожалуйста, помогите мне, ребята?
Что я уже пробовал:
Публичный Класс FrmRegistration
Дим CNN в качестве новых данных oledb.Метод oledbconnection
Private Sub btnClear_Click (sender As Object, e As EventArgs) обрабатывает btnClear.Щелчок
Меня.txtID.Текст = Ничего
Меня.txtName.Текст = Ничего
Me.txtContactNumber.Текст = Ничего
Меня.txtAddress.Текст = Ничего
Меня.txtEmail.Текст = Ничего
Меня.btnModify.Включен = Истина
Меня.btnAdd.Текст = " 추가"
Меня.txtID.Выберите()
Конец Подводной Лодки
Частные Субданные Обновления()
Если не СиЭнЭн.Государство = ConnectionState.Тогда Открой
- Открытое соединение
телеканал CNN.Открыть()
Конец, Если
Dim da As New OleDb. OleDbDataAdapter ("SELECTIDID AS [id]," & amp;
"성명 как [имя], 성별, 생년월일, 전화번호, 주소, электронной почты" и усилитель;
"FROM People ORDER BYIDID", cnn)
Дим ДТ в качестве нового объекта DataTable
'Заполнение данных в datatable
да.Заполнить(ДТ)
"Предложите данные в таблице данных в datagridview
Меня.dgvData.Источник данных = ДТ
- Тесная связь
телеканал CNN.Рядом()
Конец Подводной Лодки
Private Sub btnAdd_Click (sender As Object, e As EventArgs) обрабатывает btnAdd.Щелчок
Dim cmd как новый OleDb. OleDbCommand
Если не СиЭнЭн.Государство = ConnectionState.Тогда Открой
"Открыть соединение, если оно еще не открыто
телеканал CNN.Открыть()
Конец, Если
УМК.Соединение = cnn
'проверьте, добавить ли новое или обновить
Если я. txtID.Tag & "" = "" тогда
"добавить новое
"добавить данные в таблицу
Если рбтнмале.Проверено = Истина Тогда
УМК.Свойства commandtext = "вставить в люди(고객ID, 성명, 성별, 생년월일, 전화번호, 주소, электронная почта)" и усилитель;
"Values ("& Me.txtID.Текст &", '" & Me.txtName.Текст &"', '" & Me.rbtnMale.Текст &"', '" & Me.DOBPicker.Ценность.ToShortDateString &"', '" & Me.txtContactNumber.Текст &"', '" & Me.txtAddress.Текст &"', '" & Me.txtEmail.Текст &"')"
УМК.Метод executenonquery()
Ещё
УМК.Свойства commandtext = "вставить в люди(고객ID, 성명, 성별, 생년월일, 전화번호, 주소, электронная почта)" и усилитель;
"Values ("& Me.txtID.Текст &", '" & Me.txtName.Текст &"', '" & Me.rbtnFemale.Текст &"', '" & Me.DOBPicker.Ценность.ToShortDateString &"', '" & Me.txtContactNumber.Текст &"', '" & Me.txtAddress.Текст &"', '" & Me.txtEmail.Текст &"')"
УМК.Метод executenonquery()
Конец, Если
Ещё
'обновление данных в таблице
Если рбтнмале.Проверено = Истина Тогда
УМК.CommandText = "обновить людей" &
"SETIDID =" & amp; Me.txtID.Текст и усилитель;
", 성명 = '" & amp; Me.txtName.Текст &ампер; "'" &амп;
", 성별 = '" & amp; Me.rbtnmale.Текст &ампер; "'" &амп;
", 생년월일 = '" & amp; Me. dobpicker.Ценность.ToShortDateString &
", 전화번호 = '" & amp; Me.txtcontactnumber.Текст &ампер; "'" &амп;
", 주소 = '" & amp; Me.txtAddress.Текст &ампер; "'" &амп;
", email = '" & Me.txtEmail.Текст &ампер; "'" &амп;
"Где 고객 идентификатор=" & имя.txtID.Тег
УМК.Метод executenonquery()
Ещё
УМК.CommandText = "обновить людей" &
"SETIDID =" & amp; Me.txtID.Текст и усилитель;
", 성명 = '" & amp; Me.txtName.Текст &ампер; "'" &амп;
", 성별 = '" & amp; Me.rbtnfemale.Текст &ампер; "'" &амп;
", 생년월일 = '" & amp; Me. dobpicker.Ценность.ToShortDateString &
", 전화번호 = '" & amp; Me.txtcontactnumber.Текст &ампер; "'" &амп;
", 주소 = '" & amp; Me.txtAddress.Текст &ампер; "'" &амп;
", email = '" & Me.txtEmail.Текст &ампер; "'" &амп;
"WHEREIDID =" & amp; Me.txtid.Tag
УМК.Метод executenonquery()
Конец, Если
Конец, Если
'обновить данные в списке
RefreshData()
- ясная форма
Меня.btnClear.PerformClick()
- тесная связь
телеканал CNN.Рядом()
Конец Подводной Лодки
Private Sub btnClose_Click (sender As Object, e As EventArgs) обрабатывает btnClose.Щелчок
Меня.Рядом()
Конец Подводной Лодки
Частная суб FrmRegistration_Load(отправителя как объект, а равно EventArgs) обрабатывает ключевое слово mybase.Загрузить
cnn = New OleDb. OleDbConnection
канал CNN.Параметр ConnectionString = "Поставщика=Майкрософт.Джет.Oledb для.4.0; Источник данных=" &амп; приложения.StartupPath & " \People. mdb"
"получить данные в список
Меня.RefreshData()
Конец Подводной Лодки
Private Sub btnDelete_Click (sender As Object, e As EventArgs) обрабатывает btnDelete.Щелчок
'проверьте наличие выбранного элемента в списке
Если я.dgvData.Rows.Тогда считайте > 0
Если я.dgvData.Избранные воробьи.Тогда считайте > 0
Dim intCusID As Integer = Me.dgvData.SelectedRows(0).Ячейки ("id").Ценность
- открытое соединение
Если не СиЭнЭн.Государство = ConnectionState.Тогда Открой
телеканал CNN.Открыть()
Конец, Если
"удалить данные
Dim cmd как новый OleDb. OleDbCommand
УМК.Соединение = cnn
УМК.CommandText = "удалить из People WHEREIDID =" & amp; intcusid.Метод toString
cmd. ExecuteNonQuery() << 1-я ошибка произошла здесь
- обновить данные
Меня.RefreshData()
- тесная связь
телеканал CNN.Рядом()
Конец, Если
Конец, Если
Конец Подводной Лодки
Private Sub btnModify_Click (sender As Object, e As EventArgs) обрабатывает btnModify.Щелчок
Если я.dgvData.Rows.Тогда считайте > 0
Если я.dgvData.Избранные воробьи.Тогда считайте > 0
Dim intCusID As Integer = Me.dgvData.SelectedRows(0).Ячейки ("ID").Ценность
Если не СиЭнЭн.Государство = ConnectionState.Тогда Открой
телеканал CNN.Открыть()
Конец, Если
Дим да как новый oledb для.Объект oledbdataadapter("Select * из людей" и усилитель;
"WHEREIDID =" & amp; intcusid, cnn)
Дим ДТ в качестве нового объекта DataTable
da. Fill (dt) << здесь произошла 2-я ошибка
Меня.txtID.Текст = intCusID
Меня.txtName.Text = dt. Rows(0). Item("성명")
Меня.DOBPicker.Value = dt. Rows(0). Item("생년월일")
Me.txtContactNumber.Text = dt. Rows(0). Item("전화번호")
Меня.txtAddress.Text = dt. Rows(0). Item("주소")
Меня.txtEmail.Текст = ДТ.Строк(0).Пункт("письмо")
'скрыть идентификатор для редактирования в теге txtstdid в случае изменения идентификатора
Me.txtID. Tag = intCusID
'изменить кнопку Добавить в обновление
Меня.btnAdd.Текст = " 저장"
"отключить кнопку редактирования
Меня.btnModify.Enabled = False
- тесная связь
телеканал CNN.Рядом()
Конец, Если
Конец, Если
Конец Подводной Лодки
Конец Класса
Cristina Carrasco Angulo
В чем же заключаются ошибки?