1. vb資料庫編程,資料庫某些欄位不能重復,如果錄入數據有重復,保存時,程序自動提醒,怎麼編寫自動提醒代碼。
用Sql語句,查詢或者Find方法查詢,如果已經存在該記錄,就提醒:
如果一下子要保存n行,那有兩種選擇:
1:檢查一行,保存一行。凡是沒有重復的都保存,有重復的不保存。
2:先一一檢查,檢查到有重復就提示,並結束。
不知道你用的是控制項還是對象連接的資料庫?假設你用Adodc控制項,且已經連接。
下面:假設欄位a,b為字元類型,以一行數據為例,a欄位值為「AA」,b欄位值為「BB」,
Adodc1.RecordSource ="Select * From s Where a ='AA' and b = 'BB'"
Adodc1.Refresh
If Not (Adodc1.Recordset.EOF And Adodc1.Recordset.BOF) Then
MsgBox "已經存在相同記錄!"
Exit Sub
Else
'下面編寫添加記錄的代碼
End If
上面是當數據a,b一樣提示,如果a一樣或者b一樣就提示,那麼:
Adodc1.RecordSource ="Select * From s Where a ='AA' Or b = 'BB'"