Как получить определенные данные из представления таблицы данных и сохранить их в ms access в VB.NET

---

Как получить определенные данные из представления таблицы данных и сохранить их в ms access in vb.net?
Я хотел сохранить данные в виде столбцов 2, 4 и 5

Что я уже пробовал:

Импортирует System.Data.Для oledb
Публичный Класс ViewConsultationAndMakeAppointment
Общественные M как новый перечислений msgboxresult
Dim cnnOLEDB как новое OleDbConnection
Dim cmdCheck как новая OleDbCommand
Dim cmdSearch как новая OleDbCommand
Dim cmdAdd как новая OleDbCommand
Дим кон = "поставщика=Майкрософт.Туз.Oledb для.12.0;Источник данных=С:\Пользователи\Siminh\рабочий стол\ДПС\университет.# то # ;"
Private Sub btnView_Click (sender As Object, e As EventArgs) обрабатывает btnView.Щелчок
cnnOLEDB.Открыть()
Если txtName.Текст < & gt; "" Тогда
Дим доктор, как и oledbdatareader
Тусклый str как струна
str = " Select * from [Lecturer] where [Lecturer Name]=' " & txtName.Текст &"';"
Дим УМК как объект oledbcommand = новый объект oledbcommand(ул. cnnOLEDB)
Dim ds как новый набор данных
Дим ДТ в качестве нового объекта DataTable
ДС.Таблицы.Добавить (dt)
Дим да как новый OleDbDataAdapter
dr = cmd.Метода executereader
Если доктор.Прочитать() Тогда
da = New OleDbDataAdapter ("Select * from [Consultation] where [Lecturer Name]='" & txtName.Текст & "'и [дата]='" & DateTimePicker1.Текст &"'", cnnOLEDB)
да.Заполнить(ДТ)
DataGridView1.Источник данных = ДТ.DefaultView
DataGridView1.Показать()
Ещё
MsgBox ("Запись Не Найдена...")
Конец, Если
др.Рядом()
Ещё
MsgBox ("пожалуйста, введите имя лектора.", MsgBoxStyle.Информация + MsgBoxStyle.OkOnly, " введите все данные")
Конец, Если
cnnOLEDB.Закрывать()
Конец Подводной Лодки
Private Sub btnConfirm_Click (sender As Object, e As EventArgs) обрабатывает btnConfirm.Щелчок
cnnOLEDB.Открыть()
cmdCheck.CommandText = " select * from [Lecturer] where [Lecturer Name]=' " & txtName.Текст &"';"
cmdCheck.Соединение = cnnOLEDB
Dim dr As OleDbDataReader = cmdCheck.Метода executereader()
Если MsgBox("вы уверены, что добавите информацию?", MsgBoxStyle.Вопрос + MsgBoxStyle.YesNo, "Create") = MsgBoxResult.Да Тогда
Если txtAppointment.Текст < & gt; "" И txtContact.Текст < & gt; "" И txtEmail.Текст < & gt; "" И txtReason.Text < & gt; "" И txtName.Текст < & gt; "" Тогда
Если доктор.Чтение = Истина Тогда
cmdAdd. CommandText = " вставить в [Назначение] значения ('" & txtAppointment.Текст &"', '" & txtName.Текст &"', '" & lblStuID.Текст &"', '" & lblName.Текст &"', '" & DateTimePicker1.Текст &"', '" & txtReason.Текст &"', '" & txtEmail.Текст &"', '" & txtContact.Текст &"');"
cmdAdd.Свойство Commandtype = Значение Commandtype.Текст
cmdAdd.Соединение = cnnOLEDB
cmdAdd.Метод executenonquery()
MsgBox ("Создать Успешно!")
LecturerMenuForm.Показать()
txtContact.Четкий()
txtEmail.Четкий()
txtReason.Четкий()
txtName.Четкий()
txtAppointment.Четкий()
Меня.Скрыть()
Ещё
MsgBox ("нет такого идентификатора...")
Конец, Если
др.Рядом()
Ещё
MsgBox ("пожалуйста, вставьте все данные.", MsgBoxStyle.Информация + MsgBoxStyle.OkOnly, " введите все данные")
Конец, Если
Конец, Если
cnnOLEDB.Закрывать()
Конец Подводной Лодки

---