Занесение данных в базу access через VB

@Annn11 · Регистрация: 04.02.2015

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

Здравствуйте, подскажите пожалуйста как сделать в VB добавление данных в базу в таблицу "Договора намерений" с формы 2 и что бы при указании параметра Цех запись переносилась в определенную таблицу. "ТО", Монтаж, и Связь.

@Annn11 · 03.12.2019, 08:33 **[ТС]**

Ошибку не выдает но и не подключается.

@Kulma · 03.12.2019, 08:42

Annn11, у меня всё подключается.
Правда на проекте , который вы раньше выкладывали, на новом сейчас проверю.
Ещё раз говорю, проверьте путь к базе данных. Скорее всего коннектор её не находит.
Можно обернуть код процедуры в Try Catch , чтобы получить исключение.

@Kulma · 03.12.2019, 08:54

Так у вас все процедуры пустые

@Kulma · 03.12.2019, 09:00

Вот, проверил на присланном вами сегодня проекте .
Добавил код в ТОToolStripMenuItem_Click.
Всё подключается и работает.
Меняйте путь к БД

@Annn11 · 03.12.2019, 09:38 **[ТС]**

Спасибо большое, работает, но подскажите еще момент пожалуйста как добавлять записи в таблицы ТО, монтаж и Связь?

@Kulma · 03.12.2019, 10:11

Annn11, чёт я там с запросом на добавление накосорезил.

Доеду до работы - посмотрю.

@Annn11 · 03.12.2019, 11:24 **[ТС]**

подскажите что за синтаксическая ошибка?

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        Select Case TextBox6.Text
            Case "ТО"
                 "INSERT INTO [ТО] ([Внутренний_№],[№_договор],[Заказчик],[Дни до сдачи],[Цех])" _
               &" VALUES ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox3.Text & "', " _
               &" '" & TextBox4.Text & "','" & TextBox6.Text & "')"
            Case "Монтаж"
                "INSERT INTO [Монтаж] ([Внутренний_№],[№_договор],[Заказчик],[Дни до сдачи],[Цех])" _
               &" VALUES ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox3.Text & "', " _
               &" '" & TextBox4.Text & "','" & TextBox6.Text & "')"
            Case "Связь"
                "INSERT INTO [Связь] ([Внутренний_№],[№_договор],[Заказчик],[Дни до сдачи],[Цех])" _
               &" VALUES ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox3.Text & "', " _
               &" '" & TextBox4.Text & "','" & TextBox6.Text & "')"
        End Select
 
        insertData()
    End Sub

@andrsh · 03.12.2019, 12:54

Annn11, Вырази через переменные свои строки с запросами:

VB.NET
1
Dim sf As String = "INSERT INTO [ТО] ([Внутренний_№],[№_договор],[Заказчик],[Дни до сдачи],[Цех]) VALUES ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox3.Text & "', " & " '" & TextBox4.Text & "','" & TextBox6.Text & "')"

и подставь перемнные

Добавлено через 3 минуты
Annn11, "Дни до сдачи" Нужно тоже сделать через нижнее подчеркивание : "Дни_до_сдачи"

Добавлено через 4 минуты
Вместо TextBox6 я бы установил Комбобокс и делал бы запросы по событию:

VB.NET
1
ComboBox1.SelectedIndexChanged

Добавлено через 51 минуту
Annn11,

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        Dim st As String
        Select Case TextBox6.Text
            Case "ТО"
                st = "INSERT INTO [ТО] ([Внутренний_№],[№_договор],[Заказчик],[Дни до сдачи],[Цех]) VALUES ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox3.Text & "', " & " '" & TextBox4.Text & "','" & TextBox6.Text & "')"
            Case "Монтаж"
                st = "INSERT INTO [Монтаж] ([Внутренний_№],[№_договор],[Заказчик],[Дни до сдачи],[Цех]) VALUES ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox3.Text & "', " _
               & " '" & TextBox4.Text & "','" & TextBox6.Text & "')"
            Case "Связь"
                st = "INSERT INTO [Связь] ([Внутренний_№],[№_договор],[Заказчик],[Дни до сдачи],[Цех]) VALUES ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox3.Text & "', " & " '" & TextBox4.Text & "','" & TextBox6.Text & "')"
        End Select
 
        insertData()
    End Sub

VB.NET
1
2
3
4
5
6
7
Friend Sub insertData()
        cnnDB()
        Dim cmd As New System.Data.OleDb.OleDbCommand(InsertToTableSQL(Form2.st), conn)
        cmd.ExecuteNonQuery()
        cmd.Dispose()
        conn.Close()
    End Sub

Добавлено через 6 минут
Вот только переменную st объяви глобально в Form2 так а не как у меня:

VB.NET
1
Public st As String

@Annn11 · 03.12.2019, 14:15 **[ТС]**

Не дает добавлять строки.

@andrsh · 03.12.2019, 14:20

Annn11,

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

Не дает добавлять строки

это как?

Uswer · 03.12.2019, 14:22

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

Не дает добавлять строки.

Закрой файл в Access.

@Annn11 · 03.12.2019, 14:23 **[ТС]**

Файл закрыт

@Annn11 · 03.12.2019, 14:25 **[ТС]**

Выдает ошибку

@andrsh · 03.12.2019, 14:55

VB.NET
1
Dim c As New OleDb.OleDbCommand

а не

VB.NET
1
Dim c As New OleDbCommand

Я у себя пишу так это при вставке текста в БД и потом RefreshGrid() не нашел где эта функция прописана.

@Kulma · 03.12.2019, 15:02

Annn11, вот эта функция нормально отрабатывает
Замените предыдущую и всё должно случиться.

VB.NET
1
2
3
4
5
6
7
Friend Function InsertToTable(tblIns As String)
        Dim ins As String = "INSERT INTO  " & tblIns & "" _
                           & "(Внутренний_№,№_договор,Заказчик,[Дни до сдачи],Цех)" _
      & " VALUES ('" & Form2.TextBox1.Text & "','" & Form2.TextBox2.Text & "'," _
      & "'" & Form2.TextBox3.Text & "','" & Form2.TextBox4.Text & "','" & Form2.TextBox6.Text & "')"
        Return ins
    End Function

Ассеss-у похоже квадратные скобки не нравились вокруг полей.
Люблю эту БД - скучать не даёт , вечно проблемы на ровном месте возникают.

@andrsh · 03.12.2019, 15:07

Kulma, У меня Аксесс старой версии и наоборот с квадратными скобками работает

@Annn11 · 03.12.2019, 15:14 **[ТС]**

При добавлении новой записи выдает ошибку

@Yury Komar · 03.12.2019, 15:18

Не по теме:

дааа, ну и портянку же вы растянули... А что будет, при объяснении транзакций, параметров в запросах, JOIN'ы там всякие?

@andrsh · 03.12.2019, 15:21

Annn11,

VB.NET
1
Dim cmd As New System.Data.OleDb.OleDbCommand(InsertToTableSQL(Form2.[COLOR="Red"]st[/COLOR]), conn)

Замени в данной строке на переменную и она должна быть объявлена глобально в форме 2

VB.NET
1
Public st As String

Добавлено через 1 минуту
Вместо ComboBox1.Text установи переменную st

@Kulma · 03.12.2019, 15:23

Не по теме:

Yury Komar, и не говори )))

Добавлено через 1 минуту
Annn11, тот же скрин , только сдвинув описание ошибки вбок - не вижу функцию запроса.

Новые блоги и статьи Все статьи Все блоги /
Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .	Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .	[EasyBuilder Pro] Памятка по разработке для панелей Weintek ФедосеевПавел 26.08.2026 Памятка по разработке для панелей Weintek ВВЕДЕНИЕ Ранее, при реализации проектов основное внимание уделял разработке управляющей программы для контроллера, а панели оператора доставалось время. . .	Модель по догадкам anaschu 25.08.2026 Прошло две недели. Я уже рассказывал, как разговаривал с сотрудниками у сортировки и как понял, что главная ветка — не про приёмку, а про отбор. Но тогда я думал, что понял механику. На этой неделе я. . .
Запись в регистр сведений независимо от заполненности табличной части Maks 25.08.2026 Реализация из решения ниже выполнена на нетиповом документе с несколькими табличными частями, разработанного в КА2. Задача: Обеспечить запись документа в регистр сведений независимо от. . .	Ноутбук Альфария kumehtar 24.08.2026 Встретился тут в сети ноутбук Альфария, примарха Альфа-Легиона. Хотя возможно, это ноутбук Омегона, разумеется. Ну как вам?	Мастера простых решений DevAlt 23.08.2026 В сишарп стэках winforms, да и wpf существует сложная система связывания источниках данных и элементов формы(текстовые поля и метки), опирается все это на технологию событий и мета. . .	Цена ошибки DevAlt 23.08.2026 Человек я беспокойный и потому заинтересовался OCaml, в чате форсили функторы модулей как суперфичу. Пытаясь отдуплить концепт, наткнулся на тутор с простым примером. А главный принцип обучения от. . .

@Kulma 2087 / 1814 / 174 Регистрация: 25.07.2015 Сообщений: 2,934
	03.12.2019, 08:42
	Annn11, у меня всё подключается. Правда на проекте , который вы раньше выкладывали, на новом сейчас проверю. Ещё раз говорю, проверьте путь к базе данных. Скорее всего коннектор её не находит. Можно обернуть код процедуры в Try Catch , чтобы получить исключение. Миниатюры 0

@Kulma 2087 / 1814 / 174 Регистрация: 25.07.2015 Сообщений: 2,934
	03.12.2019, 08:54
	Так у вас все процедуры пустые Миниатюры 0

@Kulma 2087 / 1814 / 174 Регистрация: 25.07.2015 Сообщений: 2,934
	03.12.2019, 09:00
	Вот, проверил на присланном вами сегодня проекте . Добавил код в ТОToolStripMenuItem_Click. Всё подключается и работает. Меняйте путь к БД Миниатюры 0

@Annn11 0 / 0 / 0 Регистрация: 04.02.2015 Сообщений: 93
	03.12.2019, 09:38 [ТС]
	Спасибо большое, работает, но подскажите еще момент пожалуйста как добавлять записи в таблицы ТО, монтаж и Связь? 0

@Kulma 2087 / 1814 / 174 Регистрация: 25.07.2015 Сообщений: 2,934
	03.12.2019, 10:11
	Annn11, чёт я там с запросом на добавление накосорезил. Доеду до работы - посмотрю. 0

@Annn11 0 / 0 / 0 Регистрация: 04.02.2015 Сообщений: 93
	03.12.2019, 14:15 [ТС]
	Не дает добавлять строки. 0

@Annn11 0 / 0 / 0 Регистрация: 04.02.2015 Сообщений: 93
	03.12.2019, 14:23 [ТС]
	Файл закрыт 0

@andrsh 266 / 217 / 54 Регистрация: 01.08.2016 Сообщений: 843
	03.12.2019, 15:07
	Kulma, У меня Аксесс старой версии и наоборот с квадратными скобками работает 0

@Annn11 0 / 0 / 0 Регистрация: 04.02.2015 Сообщений: 93
	03.12.2019, 15:14 [ТС]
	При добавлении новой записи выдает ошибку Миниатюры 0

@Yury Komar
	03.12.2019, 15:18
	Не по теме: дааа, ну и портянку же вы растянули... А что будет, при объяснении транзакций, параметров в запросах, JOIN'ы там всякие? 0

@Kulma 2087 / 1814 / 174 Регистрация: 25.07.2015 Сообщений: 2,934
	03.12.2019, 15:23
	Не по теме: Yury Komar, и не говори ))) Добавлено через 1 минуту Annn11, тот же скрин , только сдвинув описание ошибки вбок - не вижу функцию запроса. 0