Здравствуйте.
Проверяю существование записи в БД,чтобы избежать записей-дубликатов.
Если в базе данных в таблице Users уже есть запись с таким-же TabNum с которым я пытаюсь добавить нового пользователя в БД - выдается сообщение что такая запись уже существует.
Проблема в том, что программа выдает это сообщение всегда.
И когда в базе уже есть пользователь с таким tabnum, и когда его нет.
Подскажите, где ошибка?
Заметил следующую особенность:
При работе с другой формой, напрямую через датагрид, код работает нормально.
А тут выкидывает такие ошибки.
Так и не смог разобраться в чем причина
Проверяю наличие записи-дубликата так
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Dim k As Integer = 0
Dim Con2 As New OleDb.OleDbConnection("Provider=Microsoft.ACE.oledb.12.0; Data source=" + bpath) ' Переменная для подключения базы
Dim SqlCom2 As OleDb.OleDbCommand ' Переменная для Sql запросов
SqlCom2 = New OleDb.OleDbCommand("SELECT COUNT(*) FROM [Users] WHERE [TabNum] = @T1", Con2) ' Указываем строку запроса и привязываем к соединению
SqlCom2.Parameters.Add("@T1", OleDbType.WChar).Value = usadm.DataGridView1.CurrentRow.Cells(0).Value
Con2.Open() ' Открываем соединение
SqlCom2.ExecuteNonQuery() 'Выполняем запрос
k = SqlCom2.ExecuteScalar()
If k > 0 Then
MsgBox("Такая запись уже существует!")
Данные из БД получаю так:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
Dim Con1 As New OleDb.OleDbConnection("Provider=Microsoft.ACE.oledb.12.0; Data source=" + bpath) ' Переменная для подключения базы
Dim SqlCom1 As OleDb.OleDbCommand ' Переменная для Sql запросов
Dim DT1 As New Data.DataTable ' Таблица для хранения результатов запроса
Dim DA1 As OleDb.OleDbDataAdapter ' Адаптер для заполнения таблицы после запроса
Dim k As Integer
DT1.Clear() 'Очищаем таблицу
SqlCom1 = New OleDb.OleDbCommand("SELECT [TabNum],[LastName],[FirstName],[MiddleName],[Dep],[Post],[UserType],[BasPwd] FROM [Users]", Con1) ' Указываем строку запроса и привязываем к соединению
Con1.Open() ' Открываем соединение
SqlCom1.ExecuteNonQuery() 'Выполняем запрос
DA1 = New OleDb.OleDbDataAdapter(SqlCom1) 'Через адаптер получаем результаты запроса
DataGridView1.DataSource = DT1 ' Привязываем Грид к источнику данных
DA1.Fill(DT1) ' Заполняем таблицу результатми
DataGridView1.Columns(0).HeaderCell.Value = "Таб.#"
DataGridView1.Columns(1).HeaderCell.Value = "Фамилия"
DataGridView1.Columns(2).HeaderCell.Value = "Имя"
DataGridView1.Columns(3).HeaderCell.Value = "Отчество"
DataGridView1.Columns(4).HeaderCell.Value = "Подразделение"
DataGridView1.Columns(5).HeaderCell.Value = "Должность"
DataGridView1.Columns(6).HeaderCell.Value = "Тип"
DataGridView1.Columns(6).HeaderCell.Value = "Пароль"
Con1.Close() ' Закрываем соединение
Me.DataGridView1.DataSource = DT1
Добавляю пользователя не через datagried, а через форму.
Данные вводятся в текстовые поля либо выбираются из комбобоксов и тп.
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.
Con4.Open()
SqlCom4 = New OleDb.OleDbCommand("INSERT INTO [Users] ([TabNum], [LastName], [FirstName], [MiddleName], [Dep], [Post], [Usertype], [Description], [BasPwd]) VALUES (@TabNum, @LastName, @FirstName, @MiddleName, @Dep, @Post, @Usertype, @Description, @BasPwd)", Con4)
SqlCom4.Parameters.Add("@TabNum", OleDb.OleDbType.WChar).Value = TextBox1.Text
SqlCom4.Parameters.Add("@LastName", OleDb.OleDbType.WChar).Value = TextBox2.Text
SqlCom4.Parameters.Add("@FirstName", OleDb.OleDbType.WChar).Value = TextBox3.Text
SqlCom4.Parameters.Add("@MiddleName", OleDb.OleDbType.WChar).Value = TextBox6.Text
SqlCom4.Parameters.Add("@Dep", OleDb.OleDbType.WChar).Value = ComboBox1.SelectedItem
SqlCom4.Parameters.Add("@Post", OleDb.OleDbType.WChar).Value = ComboBox2.SelectedItem
SqlCom4.Parameters.Add("@UserType", OleDb.OleDbType.WChar).Value = ComboBox3.SelectedItem
SqlCom4.Parameters.Add("@Description", OleDb.OleDbType.WChar).Value = TextBox9.Text
SqlCom4.Parameters.Add("@BasPwd", OleDb.OleDbType.WChar).Value = TextBox8.Text
SqlCom4.ExecuteNonQuery()
Con4.Close()
MessageBox.Show("Новый пользователь успешно добавлен!", _
"Добавление нового пользователя", MessageBoxButtons.OK, MessageBoxIcon.Information)
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox6.Clear()
TextBox8.Clear()
TextBox9.Clear()
ComboBox1.SelectedIndex = -1
ComboBox2.SelectedIndex = -1
ComboBox3.SelectedIndex = -1
Me.Close()
usadm.Show()
