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

目的,判断是否主键重复,不重复则登录新数据,重复则不登录。

定义类型:

DataRecord

tableName 表名

rowNumber 行号

columnName 列名

data 数据

想要实现的代码逻辑如下:

模拟数据库的登录过程。假设现在登录了5条数据,要登录第6条数据。
规则1 ,判断其他5行数据的所有列,与第6行已经录的所有列的数据一一比较,如果存在不一致的,说明主键不重复,可以登录新的数据。
规则2 ,如果不存在一致的,则判断我们这次要登录的这个列的其他行的数据,是否存在不一致的,如果不一致则主键不重复,可以登录新的数据。
规则3,如果仍然没有不一致的数据,说明主键重复,不能登录这条数据。

代码结构如下:

私有DataRecordType类

模块1

DataRecordType类代码

vba 复制代码
' DataRecordType 类模块
Private pTableName As String
Private pRowNumber As Long
Private pColumnName As String
Private pData As String

' 定义公共属性以访问私有变量
Public Property Get tableName() As String
    tableName = pTableName
End Property
Public Property Let tableName(value As String)
    pTableName = value
End Property

Public Property Get rowNumber() As Long
    rowNumber = pRowNumber
End Property
Public Property Let rowNumber(value As Long)
    pRowNumber = value
End Property

Public Property Get columnName() As String
    columnName = pColumnName
End Property
Public Property Let columnName(value As String)
    pColumnName = value
End Property

Public Property Get data() As String
    data = pData
End Property
Public Property Let data(value As String)
    pData = value
End Property

模块1代码

vba 复制代码
Sub AddData(dataCollection As Collection, tableName As String, rowNumber As Long, columnName As String, data As String)
    Dim record As DataRecordType
    Set record = New DataRecordType  ' 关键:实例化对象
    record.tableName = tableName
    record.rowNumber = rowNumber
    record.columnName = columnName
    record.data = data
    dataCollection.Add record
End Sub

Function InsertData(dataCollection As Collection, tableName As String, rowNumber As Long, columnName As String, data As String) As Boolean
    Dim i As Long
    Dim sameTableRowData As String
    Dim otherTableRowData As String
    Dim record1 As DataRecordType
    Dim record2 As DataRecordType
    
    Dim noexist As Boolean
    
    For i = 1 To dataCollection.Count
        Set record1 = dataCollection(i)  ' 关键:从集合中获取对象
        If record1.tableName = tableName And record1.rowNumber = rowNumber Then
            For j = 1 To dataCollection.Count
                Set record2 = dataCollection(j)
                If record2.tableName = record1.tableName And record2.columnName = record1.columnName And record2.rowNumber <> record1.rowNumber Then
                    If record2.data <> record1.data Then
                        Call AddData(dataCollection, tableName, rowNumber, columnName, data)
                        InsertData = True
                        Exit Function
                    End If
                    Exit For
                End If
            Next j
        End If
    Next i
    
    For j = 1 To dataCollection.Count
        Set record2 = dataCollection(j)
        If record2.tableName = tableName And record2.columnName = columnName And record2.rowNumber <> rowNumber Then
            If record2.data <> data Then
                Call AddData(dataCollection, tableName, rowNumber, columnName, data)
                InsertData = True
                Exit Function
            End If
            Exit For
        End If
    Next j
    
    InsertData = False
End Function

Sub TestInsertData()
    Dim dataCollection As Collection
    Set dataCollection = New Collection
    
    ' 添加前 5 条数据
    Call AddData(dataCollection, "Table1", 1, "Column1", "Data1")
    Call AddData(dataCollection, "Table1", 1, "Column2", "Data2")
    Call AddData(dataCollection, "Table1", 1, "Column3", "Data3")
    Call AddData(dataCollection, "Table1", 2, "Column1", "Data1")
    Call AddData(dataCollection, "Table1", 2, "Column3", "Data3")
    
    ' 插入第 6 条数据并检查结果
    Dim result As Boolean
    result = InsertData(dataCollection, "Table1", 2, "Column2", "Data2")
    
    If result Then
        MsgBox "第 6 条数据已插入。"
    Else
        MsgBox "第 6 条数据未插入(与现有数据重复)。"
    End If
End Sub

运行TestInsertData()

相关推荐
科兽的AI小记2 分钟前
从Coze到BuildingAI:一个程序员对开源AI应用平台的实战体验
数据库·开源·创业
Boop_wu1 小时前
[MySQL] 数据库设计
java·数据库·oracle
xiaoye37082 小时前
达梦数据库连接配置yaml 文件配置
服务器·数据库·oracle
TDengine (老段)3 小时前
TDengine 数学函数 PI 用户手册
大数据·数据库·时序数据库·iot·tdengine·涛思数据
aristo_boyunv3 小时前
Redis发布订阅【充当消息中间件】
数据库·redis·缓存
zz-zjx4 小时前
MySQL 开源主从复制实战指南(SRE 可靠性优先版)
数据库·mysql·开源
Microsoft Word11 小时前
向量数据库与RAG
数据库·人工智能·向量数据库·rag
艾德金的溪11 小时前
redis-7.4.6部署安装
前端·数据库·redis·缓存
小光学长12 小时前
基于Vue的2025年哈尔滨亚冬会志愿者管理系统5zqg6m36(程序+源码+数据库+调试部署+开发环境)带论文文档1万字以上,文末可获取,系统界面在最后面。
前端·数据库·vue.js