数据库中有2个字段 address和id 都是整型.id对于同一个address是唯一的.

要在程序中实现 如果address相同id不同则增加一行数据.address相同id相同则不处理.

主要是为了防止同一个address,有相同的id.
该如何实现,盼望高手指点,最好给出代码.谢谢

表结构如下
address id
1 0
1 1
2 0
2 2
1 2

取id值是在单击一个图片框的时候取值的.而且id并不是所在整个数据库中唯一.只是针对address的某个定值,才唯一.如:只对当address=1时id是唯一的,不能有重复.当address=2,时id对他是唯一.在整个库中id值可以重复.

将address和id都设成主键

可能是我的问题没有说清楚.我的意思是,在程序中将字段信息保存时,要达到不重复的效果.就是说address和id值都是在程序中通过变量给的值.我要保证,在address值相同时,id不能有相同的.

斑竹在吗?望能解答下

有点晕 能否再说清楚一点

最好附上你的部分代码

已经够清楚了啊.

数据库中有2个字段 address和id 都是整型.id对于同一个address是唯一的.

要在程序中实现 如果address相同id不同则增加一行数据.address相同id相同则不处理.

主要是为了防止同一个address,有相同的id.
该如何实现,盼望高手指点,最好给出代码.谢谢

表结构如下
address id
1 0
1 1
2 0
2 2
1 2

取id值是在单击一个图片框的时候取值的.而且id并不是所在整个数据库中唯一.只是针对address的某个定值,才唯一.如:只对当address=1时id是唯一的,不能有重复.当address=2,时id对他是唯一.在整个库中id值可以重复.
address和id值都是在程序中通过变量给的值.我要保证,在address值相同时,id不能有相同的.

二樓正解。。

Private Sub Image2_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim rslastdata As Recordset
Dim i As Integer
If Button = 1 Then '判断左右键
'如果线已经存在则不画
Set dbdao = DBEngine.Workspaces(0).OpenDatabase(App.Path & "\lddatabase.mdb") '打开数据库
Set rslastdata = dbdao.OpenRecordset("line", dbOpenTable)
hgqindex = Index
lineindex = Index
If rslastdata.RecordCount > 0 Then rslastdata.MoveFirst
For i = 1 To rslastdata.RecordCount
If TreeIndex = rslastdata.Fields("address") Then
If hgqindex = rslastdata.Fields("hgqid") Then
Else
.......
hgqindex = Index
lineindex = Index
向数据库写数据
Else
rslastdata.MoveNext
End If
Next i
如上代码,怎样保证程序中hgqindex对于同一个treeindex唯一.

晕.问题提了好多不过也许自己的代码还是要自己改才是正解吧.