VB实现向数据库添加数据时判断是否有重复数据？
我用的是ACCESS数据库我想填加数据前,先判断下数据库表m_data里面的m_name数据是否已经有,应该怎么写呢/?...
我用的是ACCESS数据库
我想填加数据前,先判断下数据库表m_data里面的m_name数据是否已经有,应该怎么写呢/? 展开
我想填加数据前,先判断下数据库表m_data里面的m_name数据是否已经有,应该怎么写呢/? 展开
展开全部
我是用以下代码做的，不知道还有没有高人的更好的办法
dim sql as string
dim rs as new ADODB.Recordset
sql= "select * from m_data where m_name like '" & 要填加的姓名变量 & "'"
rs.Open sql, conn, adOpenKeyset, adLockPessimistic
if rs_RecordCount > 0 then
MsgBox " 已经存在！", 48, "starsystem"
else
'添加就好了
end if
dim sql as string
dim rs as new ADODB.Recordset
sql= "select * from m_data where m_name like '" & 要填加的姓名变量 & "'"
rs.Open sql, conn, adOpenKeyset, adLockPessimistic
if rs_RecordCount > 0 then
MsgBox " 已经存在！", 48, "starsystem"
else
'添加就好了
end if
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
