access中用VB实现导入数据是判断是否重复的问题

张梁　发表于：2013-09-17 00:18:53 　

网上盛传一段代码可以实现导入过程中判断是否重复，代码如下，

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 strSql As String

Dim Rs As ADODB.Recordset
Set Rs = New ADODB.Recordset

strSql = "select * from 沉降观测数据 where 点号 like '" & A1 & "' And 高程 like '" & A2 & "'And 日期 like '# A3 # '"

Rs.Open strSql, adodc1, adOpenKeyset, adLockPessimistic
    If Rs.RecordCount > 0 Then
       MsgBox "用户已存在！"
        Else

****
end if
不知道为撒，无论怎么调试，Rs.RecordCount的值总为0，这样就没法判断了
求大神指导

Top

西出阳关无故人发表于：2013-09-17 09:20:51

日期、高程等数值型字段不能用 like 吧？

Top

cspa 发表于：2013-09-17 11:36:47

改为

strSql = "select * from 沉降观测数据 where 点号 like '" & A1 & "' And 高程 like '" & A2 & "' And 日期 = #" & A3 & "#"

试试

Top

张梁发表于：2013-09-17 14:07:38

感谢cspa,问题解决了，但是我还不知道为什么，不过，谢谢了

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

access中用VB实现导入数据是判断是否重复的问题