[已解决]求助：不重复录入

xyzxyz07

请各位老师帮忙处理不重复录入的问题,见附件:

最佳答案

月排行榜 / 总排行榜

mxg825

2011-6-5 23:01

Sub ADO录入方法1()
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim sq1 As String
cnn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & ThisWorkbook.Path & "\Mydb.mdb"
sq1 = "select * from Ruku where 品名='" & [D5].Value & "'AND 型号='" & [D7].Value & "' AND 规格='" & [D9].Value & "'"
rst.Open sq1, cnn, 1, 3
If rst.RecordCount >= 1 Then
MsgBox "数据己存在，不能重复录入", 16
Else
sq1 = "insert into Ruku(品名,型号,规格) Values('" & [D5].Value & "','" & [D7].Value & "','" & [D9] & "')"
cnn.Execute sq1
MsgBox "数据成功录入", 64
End If
cnn.Close
Set cnn = Nothing
End Sub

跳转到最佳答案楼层

ls

等待答案，，

xyzxyz07

顶上去！！！

fjmxwrs

跟踪学习

liuxingyi88

不会，等待答案，，

mxg825

Sub ADO录入方法1()
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim sq1 As String
cnn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & ThisWorkbook.Path & "\Mydb.mdb"
sq1 = "select * from Ruku where 品名='" & [D5].Value & "'AND 型号='" & [D7].Value & "' AND 规格='" & [D9].Value & "'"
rst.Open sq1, cnn, 1, 3
If rst.RecordCount >= 1 Then
MsgBox "数据己存在，不能重复录入", 16
Else
sq1 = "insert into Ruku(品名,型号,规格) Values('" & [D5].Value & "','" & [D7].Value & "','" & [D9] & "')"
cnn.Execute sq1
MsgBox "数据成功录入", 64
End If
cnn.Close
Set cnn = Nothing
End Sub

horriman

回复 mxg825 的帖子

顶上，这个方法很实用

jsgslgd

顶上