我想按站名和系统来判断 都重复的话报数据存在否则保存成功，但是运行的时候没有效果，而且在access中把数据行删了，在运行VB保存，access中的id不从1开始计数，按照之前的序号开始计数
Private Sub Command1_Click()
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As String
cnn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\SJ.mdb"
rs.Open "select * from 表1 where 站名='combo1.Text ' and 系统= 'Combo2.Text'", cnn, adOpenStatic, adLockOptimistic
If rs.RecordCount <> 1 Then
MsgBox "数据已存在"
Else
rs.AddNew
rs.Fields("站名") = Combo1.Text
rs.Fields("系统") = Combo2.Text
rs.Fields("设备") = Combo3.Text
rs.Fields("清扫周期") = Text1.Text
rs.Fields("本次清扫日期") = DTPicker1
rs.Fields("清扫有效期") = Text3.Text
rs.Update
MsgBox "保存成功"
rs.Close
End If
End Sub

rs.Open "select * from 表1 where 站名='combo1.Text ' and 系统= 'Combo2.Text'"
谁告诉你字符串可以操作的？？

好像有命令重置自动计数器的，忘了怎么写了，求助百度应该可以找到（没百度我好像一句代码都不会写了），手工操作可以选择“数据库工具---压缩和修复数据库”，即可重置id

rs.Open "select * from 表1 where 站名='" & combo1.Text & "' and 系统= '" & Combo2.Text & '", cnn, adOpenStatic, adLockOptimistic
if rs.eof and rs.bof then
rs.AddNew
rs.Fields("站名") = Combo1.Text
rs.Fields("系统") = Combo2.Text
rs.Fields("设备") = Combo3.Text
rs.Fields("清扫周期") = Text1.Text
rs.Fields("本次清扫日期") = DTPicker1
rs.Fields("清扫有效期") = Text3.Text
rs.Update
MsgBox "保存成功"
....

access中的id不从1开始计数，按照之前的序号开始计数   这个问题是所有数据库自动编号字段的特征引起的，用VB程序好像无能无力，只有删除自动编号字段，再重新创建这个字段
你的程序中有些问题，给你修改了一下，供参考：
cnn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\SJ.mdb"
rs.Open "select * from 表1 where  站名='" & combo1.Text & "' and 系统= '" & Combo2.Text & "'", cnn, adOpenStatic, adLockOptimistic
If rs.RecordCount > 0 Then
MsgBox "数据已存在"
Else
rs.AddNew
rs.Fields("站名") = Combo1.Text
rs.Fields("系统") = Combo2.Text
rs.Fields("设备") = Combo3.Text
rs.Fields("清扫周期") = Text1.Text
rs.Fields("本次清扫日期") = DTPicker1
rs.Fields("清扫有效期") = Text3.Text
rs.Update
MsgBox "保存成功"
End If
rs.Close
cnn.Close

[此贴子已经被作者于2017-5-18 21:08编辑过]

谢谢版主，用了您改的代码后，成功了。

谢谢大家