Форум программистов, компьютерный форум, киберфорум
Microsoft Access
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/7: Рейтинг темы: голосов - 7, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 28.01.2013
Сообщений: 6
1

VB Проверка на уникальность, при добавлении новой записи

07.11.2016, 13:41. Просмотров 1372. Ответов 3
Метки нет (Все метки)

Всех приветствую.

Столкнулся с небольшой проблемой проверки на уникальность (поле "Номер" ) при добавление в базу.

В чем суть

Загружаем данные из txt файла, и проверяем поле "Номер" если такой номер уже есть то данная запись не вносится в базу а в конце загрузки выдается сообщение о дубле.

Код проверки работает, я не могу понять как сделать так чтобы он не заносил "дубли" в базу

Microsoft Access 2013

VB Проверка на уникальность, при добавлении новой записи



Visual Basic
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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
Sub test()
 
Dim str As String
Dim Дата As String
Dim Номер As String
Dim path  As String
Dim Filepath As String
Dim rs As ADODB.Recordset
 
 ' Вызов диалога для выбора файла
 
 
    Dim strFile As String, strFilter As String
strFilter = "TXT (*.txt)|All Files (*.*)|*.*||"
WizHook.Key = 51488399
WizHook.GetFileName 0, "AppName", "DlgTitle", "", strFile, "c:", strFilter, 0, 0, 0, True
'DeBug MsgBox
'MsgBox strFile
Open strFile For Input As #1
 
 
Do While Not EOF(1)
    Line Input #1, str
     If Mid(str, 1, InStr(str, "=")) = "Дата=" Then
          Дата = Mid(str, InStr(str, "=") + 1)
      End If
     If Mid(str, 1, InStr(str, "=")) = "Номер=" Then
          Номер = Mid(str, InStr(str, "=") + 1)
      End If
 
     'Если встречаем "КонецДокумента" то записываем в базу
  If str = "КонецДокумента" Then
 
  'Создаем рекордсет
      Set rs = New ADODB.Recordset
  'Открываем таблицу
      rs.Open "test_import", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
 
 
   'Проверка уникальности значения
 
Dim a
a = Nz(DLookup("Номер", "test_import", "Номер = '" & Номер & "'"), 0) 
If a = 0 Then
 
Else
MsgBox "Такая запись уже есть "
 
'Exit Sub
End If
 
 
'Записываем данные
 
  With rs
      .AddNew
 
      .Fields("Дата") = Дата
      .Fields("Номер") = Номер
 
      .Update
  End With
 
  End If
  Loop
 
  'Закрываем файл
Close #1
 
'Просто сообщение
MsgBox "Загружено"
 
End Sub
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.11.2016, 13:41
Ответы с готовыми решениями:

Проверка на уникальность поля, при добавлении новой записи
Помогите, плиз. Есть форма добавления записей в таблицу. Есть некое уникальное поле, при...

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

Ошибка при добавлении новой записи в подчиненной форме
Ошибка возникает при добавлении новой записи в подчиненной форме Form2

Ошибка при добавлении из подчиненной формы новой записи в таблицу
Помогите исправить ошибку. База данных создана для ввода информации по договорам и приложениям к...

3
9 / 9 / 5
Регистрация: 19.01.2016
Сообщений: 33
07.11.2016, 17:19 2
Лучший ответ Сообщение было отмечено dley как решение

Решение

Начиная с 40-й сроки и до конца :
....
Visual Basic
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
'Проверка уникальности значения
 
Dim a
a = Nz(DLookup("Номер", "test_import", "Номер = '" & Номер & "'"), 0) 
If a = 0 Then
   'Записываем данные
 
  With rs
      .AddNew
 
      .Fields("Дата") = Дата
      .Fields("Номер") = Номер
 
      .Update
  End With
  
Else
MsgBox "Такая запись уже есть "
 
'Exit Sub
End If
 
 
 
  End If
  Loop
 
  'Закрываем файл
Close #1
 
'Просто сообщение
MsgBox "Загружено"
 
End Sub
0
Эксперт MS Access
6387 / 3995 / 236
Регистрация: 12.08.2011
Сообщений: 11,152
08.11.2016, 03:07 3
Не надо else, вы же по всем записям идёте.

Visual Basic
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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Sub test()
Dim a as integer 
Dim str As String
Dim Дата As String
Dim Номер As String
Dim path  As String
Dim Filepath As String
Dim rs As ADODB.Recordset
 
 ' Вызов диалога для выбора файла
 
 
  Dim strFile As String, strFilter As String
 
  Set rs = New ADODB.Recordset
  'Открываем таблицу
  rs.Open "test_import", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
 
  strFilter = "TXT (*.txt)|All Files (*.*)|*.*||"
  WizHook.Key = 51488399
  WizHook.GetFileName 0, "AppName", "DlgTitle", "", strFile, "c:", strFilter, 0, 0, 0, True
  Open strFile For Input As #1
Do While Not EOF(1)
    Line Input #1, str
     If Mid(str, 1, InStr(str, "=")) = "Дата=" Then
          Дата = Mid(str, InStr(str, "=") + 1)
      End If
     If Mid(str, 1, InStr(str, "=")) = "Номер=" Then
          Номер = Mid(str, InStr(str, "=") + 1)
      End If
  
 
   'Проверка уникальности значения
  a = Nz(DLookup("Номер", "test_import", "Номер = '" & Номер & "'"), 0) 
  If a = 0 Then
    With rs
      .AddNew
      .Fields("Дата") = Дата
      .Fields("Номер") = Номер
      .Update
    End With
  End If
Loop
 
  'Закрываем файл
Close #1
 
'Просто сообщение
MsgBox "Загружено"
 
End Sub
1
0 / 0 / 0
Регистрация: 28.01.2013
Сообщений: 6
08.11.2016, 12:20  [ТС] 4
Yuriy_Tevt, alvk,

Cпасибо за помощь.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.11.2016, 12:20

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Как вставить текущую дату в форму и в таблицу через выражения при добавлении новой записи
Как вставить текущую дату в форму и в таблицу через выражение(построитель выражений) при добавлении...

Как сделать чтобы при добавлении новой записи в табилцу заносилось "текущая ДатаВремя" правильно?
Настройки таблицы, исходное состояние таблицы - см. скрин. 1. ДатаВремя для новой записи...

Как проверить при добавлении записей их уникальность и добавить с подтверждением?
День добрый. Есть две таблицы. поля одинаковы. надо данные из одной добавить во вторую , но при...

Возможно ли в открытой форме сделать звуковое оповещение о добавлении новой записи?
Возможно ли в открытой форме сделать звуковое оповещение о добавлении новой записи


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.