VBA 数据库同一表的当前行与其他行的主键重复判断实现方案1

目标，判断是否主键重复，不重复则登录新数据，重复则不登录。
界说范例：
DataRecord
  tableName 表名
  rowNumber 行号
  columnName 列名
  data 数据
想要实现的代码逻辑如下：
模拟数据库的登录过程。假设现在登录了5条数据，要登录第6条数据。
规则1，判断其他5行数据的全部列，与第6行已经录的全部列的数据逐一比力，如果存在差别等的，分析主键不重复，可以登录新的数据。
规则2，如果不存在同等的，则判断我们这次要登录的这个列的其他行的数据，是否存在差别等的，如果差别等则主键不重复，可以登录新的数据。
规则3，如果仍然没有差别等的数据，分析主键重复，不能登录这条数据。
代码布局如下：
私有DataRecordType类
模块1

DataRecordType类代码

1. ' DataRecordType 类模块
2. Private pTableName As String
3. Private pRowNumber As Long
4. Private pColumnName As String
5. Private pData As String
7. ' 定义公共属性以访问私有变量
8. Public Property Get tableName() As String
9.     tableName = pTableName
10. End Property
11. Public Property Let tableName(value As String)
12.     pTableName = value
13. End Property
15. Public Property Get rowNumber() As Long
16.     rowNumber = pRowNumber
17. End Property
18. Public Property Let rowNumber(value As Long)
19.     pRowNumber = value
20. End Property
22. Public Property Get columnName() As String
23.     columnName = pColumnName
24. End Property
25. Public Property Let columnName(value As String)
26.     pColumnName = value
27. End Property
29. Public Property Get data() As String
30.     data = pData
31. End Property
32. Public Property Let data(value As String)
33.     pData = value
34. End Property

复制代码

模块1代码

1. Sub AddData(dataCollection As Collection, tableName As String, rowNumber As Long, columnName As String, data As String)
2.     Dim record As DataRecordType
3.     Set record = New DataRecordType  ' 关键：实例化对象
4.     record.tableName = tableName
5.     record.rowNumber = rowNumber
6.     record.columnName = columnName
7.     record.data = data
8.     dataCollection.Add record
9. End Sub
11. Function InsertData(dataCollection As Collection, tableName As String, rowNumber As Long, columnName As String, data As String) As Boolean
12.     Dim i As Long
13.     Dim sameTableRowData As String
14.     Dim otherTableRowData As String
15.     Dim record1 As DataRecordType
16.     Dim record2 As DataRecordType
17.    
18.     Dim noexist As Boolean
19.    
20.     For i = 1 To dataCollection.Count
21.         Set record1 = dataCollection(i)  ' 关键：从集合中获取对象
22.         If record1.tableName = tableName And record1.rowNumber = rowNumber Then
23.             For j = 1 To dataCollection.Count
24.                 Set record2 = dataCollection(j)
25.                 If record2.tableName = record1.tableName And record2.columnName = record1.columnName And record2.rowNumber <> record1.rowNumber Then
26.                     If record2.data <> record1.data Then
27.                         Call AddData(dataCollection, tableName, rowNumber, columnName, data)
28.                         InsertData = True
29.                         Exit Function
30.                     End If
31.                     Exit For
32.                 End If
33.             Next j
34.         End If
35.     Next i
36.    
37.     For j = 1 To dataCollection.Count
38.         Set record2 = dataCollection(j)
39.         If record2.tableName = tableName And record2.columnName = columnName And record2.rowNumber <> rowNumber Then
40.             If record2.data <> data Then
41.                 Call AddData(dataCollection, tableName, rowNumber, columnName, data)
42.                 InsertData = True
43.                 Exit Function
44.             End If
45.             Exit For
46.         End If
47.     Next j
48.    
49.     InsertData = False
50. End Function
52. Sub TestInsertData()
53.     Dim dataCollection As Collection
54.     Set dataCollection = New Collection
55.    
56.     ' 添加前 5 条数据
57.     Call AddData(dataCollection, "Table1", 1, "Column1", "Data1")
58.     Call AddData(dataCollection, "Table1", 1, "Column2", "Data2")
59.     Call AddData(dataCollection, "Table1", 1, "Column3", "Data3")
60.     Call AddData(dataCollection, "Table1", 2, "Column1", "Data1")
61.     Call AddData(dataCollection, "Table1", 2, "Column3", "Data3")
62.    
63.     ' 插入第 6 条数据并检查结果
64.     Dim result As Boolean
65.     result = InsertData(dataCollection, "Table1", 2, "Column2", "Data2")
66.    
67.     If result Then
68.         MsgBox "第 6 条数据已插入。"
69.     Else
70.         MsgBox "第 6 条数据未插入（与现有数据重复）。"
71.     End If
72. End Sub

复制代码

运行TestInsertData()

免责声明：如果侵犯了您的权益，请联系站长，我们会及时删除侵权内容，谢谢合作！更多信息从访问主页：qidao123.com:ToB企服之家，中国第一个企服评测及商务社交产业平台。

继续阅读请点击广告