Question

用VB向Access数据库中添加数据，如何先判定Access中是否已存在此数据项

承接题目--，，，如果存在，则msgbox"已存在"。。如果不存在则 添加此数据项，，谢谢高手们 给予指点，小弟 感激不尽，，，

Answer 1

添加数据项以前，先去数据库检查一下，如果存在就给出已存在提示，否则添加。
因为没有安装VB6，下面的是手写的，你参考一下：
Private cn As New ADODB.Connection
Private dr As New ADODB.Recordset

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Test.mdb"
dr.Open "select f1 from tabel1 where f1='ff'",cn,1,1
if dr.Eof Then
cn.Execute "insert into tabel1(f1) values('xx')"
Else
Msgbox "项目存在"
End If

dr.Close
cn.Close

追问

dr.Open "select f1 from tabel1 where f1='ff'",cn,1,1
这里面的 "ff" 是什么啊，如果想验证一下text1.text 是否在表1中重复，该怎么写呢，
还有cn.Execute "insert into tabel1(f1) values('xx')" 这个里面的 ‘xx’ 是什么啊？？

追答

select f1 from table1 where f1='ff' 是说从table1中查找字段f1的值等于'ff'的记录。这里假定f1是字符型数据，所以要加上‘’号。如果字段f1是数字型，去掉'ff'两边的引号。'xx'表示你想插入的项目的值。
验证text1.text中的值，可以这么写："select f1 from table1 where f1='" & text1.text & "'"
你看一下SQL的增删改语法就明白了。

Answer 2

方法1，直接在创建表的时候进行错误忽略处里。
方法2,select count(*) from MSysObjects where name='表名'进行判断，但该access数据库需要手工放开MSysObjects表的访问权限，否则会提示无权访问。

Answer 3

先在ACCESS数据库里定义主索引，然后用SEEK搜索，这样就可以判断了。