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

@dley · Регистрация: 28.01.2013

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

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

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

В чем суть

Загружаем данные из 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

@Yuriy_Tevt · 07.11.2016, 17:19

Начиная с 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

@alvk · 08.11.2016, 03:07

Не надо 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

@dley · 08.11.2016, 12:20 **[ТС]**

Yuriy_Tevt, alvk,

Cпасибо за помощь.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@dley 0 / 0 / 0 Регистрация: 28.01.2013 Сообщений: 6
	08.11.2016, 12:20 [ТС]
	Yuriy_Tevt, alvk, Cпасибо за помощь. 0

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

Решение