关于VB数据库。

[nuinui]

如何避免相同一个字段的值出现两次？
例如：有一个ListBox用于显示Name.mdb数据库中的FileName表的“文件名”字段值，当每次向ListBox中增加记录时，就先查找是否已有同名的记录，如果有就给出相应提示，否则就增加该记录到“文件名”字段中。
我用的方法如下，可行不通，不知错在何处，还请指教。

……
rs.MoveFirst
While Not rs.EOF
If rs.Fields("文件名") <> TxtOpenFile.Text Then
rs.AddNew "文件名", TxtOpenFile.Text
……
Else
MsgBox "已有该文件。"
……
Exit Sub
End If
rs.MoveNext
Wend
……

注：相应的数据库连接也找开，TxtOpenFile是一个TextBox，用于存放准备增加的文件名。


其次，每增加的记录都显在最后，我想把每次新增的记录都从最后一条得到每二条。即ListBox中显示的记录顺序为最新加入的记录在前，但又不是第一条，而是从第二条开始顺序排列。

[mxp]

(1) 您的写法是每循环一条纪录不相等就增加
改为：
dim scount as long
dim sfile as int

sfile=0
if not rs.eof then '判断是否为空
rs.movelast
scount=rs.recordcount
end if
if scount<>0 then
rs.MoveFirst
Do While Not rs.EOF
If rs.Fields("文件名") = Trim(TxtOpenFile.Text) Then
sfile=1
exit do
End If
rs.MoveNext
loop
if sfile=0 then
rs.addnew
......
rs.update
end if
（2）没看懂！

[mxp]

dim sfile as integer

[ring]

关键在于
Trim(rs.Fields("文件名")) <> Trim(TxtOpenFile.Text )

[Un1]

文件名不分大小写，最好是：
StrComp(Trim(rs.Fields("文件名")) , Trim(TxtOpenFile.Text ), vbTextCompare)

其次使用此字段去做一个唯一索引最好，只需要处理错误就行。