Занесение данных в базу 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, тот же скрин , только сдвинув описание ошибки вбок - не вижу функцию запроса.

Новые блоги и статьи Все статьи Все блоги /
Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .	Установка MinGW GCC 16.2 и CMake 8Observer8 10.08.2026 VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия	Неделя из жизни имитационной модели склада: мои кривые руки растут, откуда надо anaschu 10.08.2026 Неделя из жизни имитационной модели склада: как я почти написал неправильную логику и что с этим делать Работаю сейчас над учебно-рабочим проектом: строю в AnyLogic имитационную модель процессов. . .
Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .	Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .

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

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

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

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

@Kulma 2086 / 1807 / 174 Регистрация: 25.07.2015 Сообщений: 2,926
	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 2086 / 1807 / 174 Регистрация: 25.07.2015 Сообщений: 2,926
	03.12.2019, 15:23
	Не по теме: Yury Komar, и не говори ))) Добавлено через 1 минуту Annn11, тот же скрин , только сдвинув описание ошибки вбок - не вижу функцию запроса. 0