VB实现向数据库添加数据时判断是否有重复数据？

我用的是ACCESS数据库

我想填加数据前,先判断下数据库表m_data里面的m_name数据是否已经有,应该怎么写呢/?

第1个回答 2009-08-30

我是用以下代码做的，不知道还有没有高人的更好的办法

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本回答被提问者采纳

相似回答

VB中,用文本框给数据库添加记录,我想在保存前,检查文本框内的内容是否...答：Dim rs As ADODB.Recordset Dim loginflag As Boolean Private Sub Command1_Click()Set conn = New ADODB.Connection Set rs = New ADODB.Recordset '建立无源数据库连接 conn.ConnectionString = "driver={sql server};server=12-3FDA18CE0DDC;uid=sa;pwd=sa;Database=test"conn.ConnectionTimeou...