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

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

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

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

@andrsh · 03.12.2019, 15:24

Yury Komar, Я думаю ему надо было взять готовый какой нибудь пример рабочий и переделать его под себя. Легче было бы для начала. Я когда с БД начинал пробовать работать именно так и сделал. Сначала тоже не все получалось.

@Kulma · 03.12.2019, 15:58

Annn11, ловите , у меня всё работает.

@Annn11 · 03.12.2019, 16:36 **[ТС]**

Спасибо большое что помогли, все работает, Но как сделать что бы использовалась combobox. что бы можно было выбрать.

@Kulma · 03.12.2019, 16:48

Annn11, в выложенном мной проекте выборка идёт через комбобокс.
Я просто не удалял textbox6

@Annn11 · 04.12.2019, 09:09 **[ТС]**

Прошу прощения, еще один вопрос как сделать выпадающий список, и как что бы подключалось автоматом к базе без нажатия кнопки.

Добавлено через 29 минут
А кнопку на форме 1 для обновления таблицы на форме если возможно, Спасибо огромное кто помог.

Добавлено через 5 минут
Выпадающий список, я разобрался,

@andrsh · 04.12.2019, 09:10

Annn11, что за выпадающий список? вообще то это ComboBox. Подключение автоматически к БД можно сделать в событии :

VB.NET
1
2
3
 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
' код подключения к БД
    End Sub

Для обновления таблицы добавляешь кнопку и вызываешь функцию обновления таблицы

@Annn11 · 04.12.2019, 09:15 **[ТС]**

То есть надо подключение скопировать из модуля на форму1?

@andrsh · 04.12.2019, 09:20

Annn11, Вызови функцию Friend Sub cnnDB() в событии загрузки формы

@Annn11 · 04.12.2019, 09:42 **[ТС]**

А для редактирования таблиц, что изменить?

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Dim s1, s2, s3, s4 As String
        Dim r As DialogResult
        Dim k As Integer
        k = Tabl1.CurrentRow.Cells("Код").Value
 
        Form2.TextBox1.Text = Tabl1.CurrentRow.Cells("№_договора").Value
        Form2.TextBox2.Text = Tabl1.CurrentRow.Cells("Заказчик").Value
        Form2.TextBox3.Text = Tabl1.CurrentRow.Cells("Дата").Value
        Form2.TextBox4.Text = Tabl1.CurrentRow.Cells("адрес").Value
 
        Form2.ShowDialog()
 
        s2 = Form2.TextBox2.Text
        s3 = Form2.TextBox3.Text
        s4 = Form2.TextBox4.Text
 
        s1 = Form2.TextBox1.Text
        s2 = Form2.TextBox2.Text
        s3 = Form2.TextBox3.Text
        s4 = Form2.TextBox4.Text
        r = Form2.DialogResult
 
        Form2.Close()
 
        If r <> DialogResult.OK Then
            Exit Sub
 
        End If
        Dim c As New OleDbCommand
        c.Connection = conn
        c.CommandText = "update ТО set №_договора='" & s1 & "', Заказчик='" & s2 & "',Дни до сдачи='" & s3 & "', Сумма договоров='" & s3 & "',' where Код =" & k
        c.ExecuteNonQuery()

@andrsh · 04.12.2019, 10:03

Annn11, что не устраивает в редактировании таблиц?

@Annn11 · 04.12.2019, 10:21 **[ТС]**

Выдает ошибку при нажатии кнопки

Добавлено через 4 минуты
Хорошо бы что бы при нажатии кнопки мыши два раза открывалась форма с данными строчки и возможностью для редактирования.

@andrsh · 04.12.2019, 10:27

Annn11, При нажатии какой кнопки и что за ошибка?

@Annn11 · 04.12.2019, 10:39 **[ТС]**

что бы при двойном нажатии кнопки мыши по строчке открывалась форма для редактирования этих значений.

@Kulma · 04.12.2019, 10:46

Это

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

VB.NET
1
2
3
4
Dim c As New OleDbCommand
        c.Connection = conn
        c.CommandText = "update ТО set №_договора='" & s1 & "', Заказчик='" & s2 & "',Дни до сдачи='" & s3 & "', Сумма договоров='" & s3 & "',' where Код =" & k
        c.ExecuteNonQuery()

отредактирует таблице в БД , но вы этого на гриде не увидите, пока грид не перезаполните изменёнными
данными.
Позже , когда будет время , накидаю примерный порядок действий.

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

T-SQL
1
Дни до сдачи

Все поля , включающие пробел должны быть заключены в квадратные скобки.
Иначе не понятно для сервера или aсcess , что из этого текста является полем.

T-SQL
1
[Дни до сдачи]

@Annn11 · 04.12.2019, 11:02 **[ТС]**

В чем ошибка может?

@andrsh · 04.12.2019, 11:49

пустая ячейка

@Annn11 · 04.12.2019, 13:20 **[ТС]**

почему то у меня не редактирует а добавляет новые строчки в таблицу

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim s1, s2, s3, s4 As String
        Dim r As DialogResult
        Dim k As Integer
        k = Tabl1.CurrentRow.Cells("Код").Value
 
        Form2.TextBox2.Text = Tabl1.CurrentRow.Cells("№_договор").Value
        Form2.TextBox3.Text = Tabl1.CurrentRow.Cells("Заказчик").Value
        Form2.TextBox4.Text = Tabl1.CurrentRow.Cells("Дни до сдачи").Value
        Form2.TextBox5.Text = Tabl1.CurrentRow.Cells("Сумма договоров").Value
 
        Form2.ShowDialog()
 
        s2 = Form2.TextBox3.Text
        s3 = Form2.TextBox4.Text
        s4 = Form2.TextBox5.Text
 
        s1 = Form2.TextBox2.Text
        s2 = Form2.TextBox3.Text
        s3 = Form2.TextBox4.Text
        s4 = Form2.TextBox5.Text
        r = Form2.DialogResult
 
        Form2.Close()
 
        If r <> DialogResult.OK Then
            Exit Sub
 
        End If
        Dim c As New OleDbCommand
        c.Connection = conn
        c.CommandText = "update ТО set №_договор='" & s1 & "', Заказчик='" & s2 & "',[Дни до сдачи]='" & s3 & "', [Сумма договоров]='" & s3 & "',' where Код =" & k
        c.ExecuteNonQuery()
 
 
        RefreshGrid()

@Jungl · 04.12.2019, 13:52

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

В чем ошибка может?

Ячейка грида с типом DB NULL, необходимо проверять ее функцией IsDBNull. Или воспользоваться преобразованием Value в текст методом .ToString. Лучше все же проверять.

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

почему то у меня не редактирует а добавляет новые строчки в таблицу

не увидел у вас чистку таблицы Tabl1.Rows.Clear перед процедурой RefreshGrid

@andrsh · 04.12.2019, 13:59

VB.NET
1
c.CommandText = "UPDATE [ТО] SET ([№_договор], [Заказчик] ,[Дни до сдачи],[Сумма договоров]) VALUES ('" & s1 & "', '" & s2 & "', '" & s3 & "','" & s3 & "' WHERE (Код =" & k & ")", Con)

@Annn11 · 05.12.2019, 11:28 **[ТС]**

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

Новые блоги и статьи Все статьи Все блоги /
Калькулятор для расчета родства 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 реально казались вершиной жары, когда можно было весь день пропадать на. . .
Как ИИ начал спорить и врать (возможно почуяв опасность для себя от индустрии - уход от электроники). Hrethgir 04.08.2026 Недельный диалог, на фоне событий с НПЗ. Да, из спирта можно получать бензин, и это не сложно. Но потом в схеме я решил избавиться от насоса, при этом полностью сделав контроль подачи спирта в. . .	Термопринтер QR701 Argus19 03.08.2026 Термопринтер QR701 Купил два термопринтера QR701. На сэлф-тесте написано: Language: PC936 (GB18030). Что означает, что принтеры могут печатать только латиницу и китайские иероглифы. Так же. . .	Создание формы заимствованного документа Maks 03.08.2026 Задача: Необходимо создать собственную форму заимствованного документа. На форме должен быть реквизит "Покупатель", а также табличная часть со следующими реквизитами: - Расчетный счет покупателя. . .	Задача предоставления скидок покупателям Maks 03.08.2026 Задача: В документе "Продажи" необходимо реализовать функционал предоставления скидок покупателям. Скидка должна автоматически рассчитываться и подставляться в соответствующее поле при выборе. . .

@andrsh 266 / 217 / 54 Регистрация: 01.08.2016 Сообщений: 841
	03.12.2019, 15:24
	Yury Komar, Я думаю ему надо было взять готовый какой нибудь пример рабочий и переделать его под себя. Легче было бы для начала. Я когда с БД начинал пробовать работать именно так и сделал. Сначала тоже не все получалось. 0

@Annn11 0 / 0 / 0 Регистрация: 04.02.2015 Сообщений: 93
	03.12.2019, 16:36 [ТС]
	Спасибо большое что помогли, все работает, Но как сделать что бы использовалась combobox. что бы можно было выбрать. 0

@Kulma 2086 / 1807 / 174 Регистрация: 25.07.2015 Сообщений: 2,924
	03.12.2019, 16:48
	Annn11, в выложенном мной проекте выборка идёт через комбобокс. Я просто не удалял textbox6 0

@Annn11 0 / 0 / 0 Регистрация: 04.02.2015 Сообщений: 93
	04.12.2019, 09:09 [ТС]
	Прошу прощения, еще один вопрос как сделать выпадающий список, и как что бы подключалось автоматом к базе без нажатия кнопки. Добавлено через 29 минут А кнопку на форме 1 для обновления таблицы на форме если возможно, Спасибо огромное кто помог. Добавлено через 5 минут Выпадающий список, я разобрался, 0

@Annn11 0 / 0 / 0 Регистрация: 04.02.2015 Сообщений: 93
	04.12.2019, 09:15 [ТС]
	То есть надо подключение скопировать из модуля на форму1? 0

@andrsh 266 / 217 / 54 Регистрация: 01.08.2016 Сообщений: 841
	04.12.2019, 09:20
	Annn11, Вызови функцию Friend Sub cnnDB() в событии загрузки формы 0

@andrsh 266 / 217 / 54 Регистрация: 01.08.2016 Сообщений: 841
	04.12.2019, 10:03
	Annn11, что не устраивает в редактировании таблиц? 0

@Annn11 0 / 0 / 0 Регистрация: 04.02.2015 Сообщений: 93
	04.12.2019, 10:21 [ТС]
	Выдает ошибку при нажатии кнопки Добавлено через 4 минуты Хорошо бы что бы при нажатии кнопки мыши два раза открывалась форма с данными строчки и возможностью для редактирования. 0

@andrsh 266 / 217 / 54 Регистрация: 01.08.2016 Сообщений: 841
	04.12.2019, 10:27
	Annn11, При нажатии какой кнопки и что за ошибка? 0

@Annn11 0 / 0 / 0 Регистрация: 04.02.2015 Сообщений: 93
	04.12.2019, 10:39 [ТС]
	что бы при двойном нажатии кнопки мыши по строчке открывалась форма для редактирования этих значений. 0

@Annn11 0 / 0 / 0 Регистрация: 04.02.2015 Сообщений: 93
	04.12.2019, 11:02 [ТС]
	В чем ошибка может? Миниатюры 0

@andrsh 266 / 217 / 54 Регистрация: 01.08.2016 Сообщений: 841
	04.12.2019, 11:49
	пустая ячейка 0