关于access筛选问题

Question

  我想录入access中信息，其中有几个字段，如果字段年月日和站点筛选出来信息和录入的信息重复，则不录入，否则加一条信息。
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\1.mdb;"
    strSQL = "select * from 记录 where 年月日= '" & t & "'and where 站点='" & righ(ii) & " '"
    
    rs.Open strSQL, cn, 1, 1
        If rs.RecordCount > 0 Then  '根据关键字查找数据库是否有该记录,如果有
        rs.Close
        Set rs = Nothing
        cn.Close
        Set cn = Nothing  '关闭数据库        Else        
       cn.Execute "insert into 记录(年月日,时间,站点,记录时间,处理情况) Values( '" & t & " ','" & tt & " ','" & righ(ii) & " ','" & ttime & "','1')"
       Print righ(ii)
       End If
         rs.Close
    
         cn.Close
    End If

Answer 1

我想录入access中信息，其中有几个字段，如果字段年月日和站点筛选出来信息和录入的信息重复，则不录入，否则加一条信息。
  cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\1.mdb;"
  strSQL = "select * from 记录 where 年月日= '" & t & "'and  站点='" & righ(ii) & " '"
    
  rs.Open strSQL, cn, 1, 1
  If rs.RecordCount > 0 Then '根据关键字查找数据库是否有该记录,如果有
  rs.Close
  Set rs = Nothing
  cn.Close
  Set cn = Nothing '关闭数据库  Else   
  cn.Execute "insert into 记录(年月日,时间,站点,记录时间,处理情况) Values( '" & t & " ','" & tt & " ','" & righ(ii) & " ','" & ttime & "','1')"
  Print righ(ii)
  End If
  rs.Close
    
  cn.Close
  End If

Answer 2

http://download.csdn.net/source/1644211