DataGridView с БД Access. Запись информации с нескольких TextBox в БД

@Владиславик · Регистрация: 28.10.2013

Студворк — интернет-сервис помощи студентам

Друзья, вот подскажите, я по этому коду (указан ниже) записываю данные из TextBox'ов в таблицу БД Access (.mdb). Так вот, после события заполнения текстбоксов и нажатия на кнопку у меня появляется ошибка.
"Не может быть отображено"
Подскажите, может я не правильно пытаюсь реализовать процедуру записи?

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        DataGridView1.Visible = True
        Dim nRow As Integer
        nRow = DataGridView1.Rows.Count + 1
        Dim dr As DataRow = ds.Tables.Item(0).NewRow 'Тут я перегружаю таблицу с базой данных
        dr.Item("Код") = nRow
        dr.Item("Фамилия") = TextBox1.Text 'Добавляем столбик в DataGridView с названием "Фамилия"
        dr.Item("Имя") = TextBox2.Text
        dr.Item("Отчество") = TextBox3.Text
        dr.Item("Образование") = ComboBox1.Text
        dr.Item("Соц_Положение") = TextBox4.Text
        dr.Item("Доход") = TextBox5.Text
        dr.Item("Место_Отдыха") = TextBox6.Text
        dr.Item("Начало_Отдыха") = TextBox7.Text
        dr.Item("Конец_Отдыха") = TextBox8.Text
        dr.Item("Сумма_Затрат") = TextBox9.Text
 
 
    End Sub

@KolunyaZ · 20.03.2014, 14:25

в какой хоть строке вылетает? Из кода и текста ничего не понятно...работы с БД как-таковой нет, зато есть датагрид...

@Владиславик · 20.03.2014, 14:33 **[ТС]**

Сообщение от KolunyaZ

в какой хоть строке вылетает? Из кода и текста ничего не понятно...работы с БД как-таковой нет, зато есть датагрид...

В первой строке) Походу я разобрался, у меня не объявлена таблица и VB ее не может найти!
Кстати вот строка

VB.NET
1
Dim dr As DataRow = ds.Tables.Item(0).NewRow

Добавлено через 36 секунд
И если есть пример, как работать с БД в VB.Net то скинь пожалуйста, я посмотрю)

@Владиславик · 20.03.2014, 14:41 **[ТС]**

Вот скриншот с ошибкой:

DataGridView с БД Access. Запись информации с нескольких TextBox в БД

Памирыч · 20.03.2014, 15:43

Например так

VB.NET
1
2
3
        Dim InsCommand As OleDb.OleDbCommand
        InsCommand = New OleDb.OleDbCommand("INSERT INTO Таблица2 (Поле2, Поле3, Поле4) VALUES ('" & TextBox1.Text & "', '" & TextBox2.Text & "', '" & TextBox3.Text & "')", cn)
        InsCommand.ExecuteNonQuery()

@Владиславик · 20.03.2014, 17:41 **[ТС]**

Памирыч
Можно поточнее пожалуйста:В

Памирыч · 20.03.2014, 17:46

О какой точности речь?
Просто я привел вполне реальный пример. Он у Вас не работает?

@Владиславик · 20.03.2014, 17:49 **[ТС]**

Вообще по идеи разрабатываю программу по "автоматизации информации работы работы туристической фирмы". Вот для этого мне и надо через TextBox записывать инфу в БД, но что бы эта БД сохранялась еще и в DataGridView1

Добавлено через 31 секунду

Сообщение от Памирыч

О какой точности речь?
Просто я привел вполне реальный пример. Он у Вас не работает?

Чуть выше описал для чего мне нужен конкретный пример)

Добавлено через 42 секунды
Или может у кого нибудь есть пример по автоматизации информации работы какого нибудь предприятия?

Памирыч · 20.03.2014, 17:50

Если пример то
https://www.cyberforum.ru/post1936157.html

@Владиславик · 20.03.2014, 18:23 **[ТС]**

Сообщение от Памирыч

Если пример то

А программного примера нету?

@Владиславик · 20.03.2014, 18:28 **[ТС]**

Именно по такой структуре, что бы при нажатии на кнопку обрабатывалось события добавление текста их TextBox в БД и отображалось в таблицу?

@Владиславик · 20.03.2014, 18:32 **[ТС]**

Для кнопки добавить я написал вот это событие, но оно у меня не корректно работает, вот пытаюсь понять, в чем суть и как правильно сделать!

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        DataGridView1.Visible = True
        Dim nRow As Integer
        nRow = DataGridView1.Rows.Count + 1
        Dim dr As DataRow = ds.Tables.Item(0).NewRow 'Тут я перегружаю таблицу с базой данных
        dr.Item("Код") = nRow
        dr.Item("Фамилия") = TextBox1.Text 'Добавляем столбик в DataGridView с названием "Фамилия"
        dr.Item("Имя") = TextBox2.Text
        dr.Item("Отчество") = TextBox3.Text
        dr.Item("Образование") = ComboBox1.Text
        dr.Item("Соц_Положение") = TextBox4.Text
        dr.Item("Доход") = TextBox5.Text
        dr.Item("Место_Отдыха") = TextBox6.Text
        dr.Item("Начало_Отдыха") = TextBox7.Text
        dr.Item("Конец_Отдыха") = TextBox8.Text
        dr.Item("Сумма_Затрат") = TextBox9.Text
 
 
    End Sub

Памирыч · 20.03.2014, 18:44

Владиславик, я не профессионал в БД, но чуется мне, что таким макаром добавляя записи (даже если Вы и доведете этот код до ума), Вам придется писать десятиэтажный апдейт-запрос. Если я не прав - профи поправят.
Вам достаточно было использовать тот короткий код, лишь добавив текстовых полей

Новые блоги и статьи Все статьи Все блоги /
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Символьное дифференцирование igorrr37 13.02.2026 / * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .

@KolunyaZ 140 / 98 / 20 Регистрация: 11.03.2013 Сообщений: 147
	20.03.2014, 14:25
	в какой хоть строке вылетает? Из кода и текста ничего не понятно...работы с БД как-таковой нет, зато есть датагрид... 0

@Владиславик 7 / 0 / 0 Регистрация: 28.10.2013 Сообщений: 139
	20.03.2014, 14:41 [ТС]
	Вот скриншот с ошибкой: 0

@Владиславик 7 / 0 / 0 Регистрация: 28.10.2013 Сообщений: 139
	20.03.2014, 17:41 [ТС]
	Памирыч Можно поточнее пожалуйста:В 0

Памирыч Почетный модератор 23251 / 9163 / 1084 Регистрация: 11.04.2010 Сообщений: 11,014
	20.03.2014, 17:46
	О какой точности речь? Просто я привел вполне реальный пример. Он у Вас не работает? 0

Памирыч Почетный модератор 23251 / 9163 / 1084 Регистрация: 11.04.2010 Сообщений: 11,014
	20.03.2014, 17:50
	Если пример то https://www.cyberforum.ru/post1936157.html 0

@Владиславик 7 / 0 / 0 Регистрация: 28.10.2013 Сообщений: 139
	20.03.2014, 18:28 [ТС]
	Именно по такой структуре, что бы при нажатии на кнопку обрабатывалось события добавление текста их TextBox в БД и отображалось в таблицу? 0

Памирыч Почетный модератор 23251 / 9163 / 1084 Регистрация: 11.04.2010 Сообщений: 11,014
	20.03.2014, 18:44
	Владиславик, я не профессионал в БД, но чуется мне, что таким макаром добавляя записи (даже если Вы и доведете этот код до ума), Вам придется писать десятиэтажный апдейт-запрос. Если я не прав - профи поправят. Вам достаточно было использовать тот короткий код, лишь добавив текстовых полей 0