首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

关于access筛选有关问题

2012-03-17 
关于access筛选问题我想录入access中信息,其中有几个字段,如果字段年月日和站点筛选出来信息和录入的信息

关于access筛选问题
我想录入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

[解决办法]
http://download.csdn.net/source/1644211
[解决办法]

热点排行