目的：随机生成一段代码，然后与数据库中数据对比，如果数据库中有就重新生成，如果不重复就写入数据库。

我是这样写的

连接数据库省略。。。
...
do
str=Randstr(5)
sql="select * from [Mole_str] where str1='"&str&"'"
rs.open sql,conn,1,3
Loop while Not rs.bof or Not rs.eof
rs.AddNew
rs("str1")=str
...
...

Randstr(5)是一个生成随机字符串的函数
如果没重复能正常执行写入数据库
如果字符串在数据库中存在的话就会提示但是不打开怎么能比较是不是存在在数据库中啊？



不知道这个重新生成的代码该怎么循环，请高手帮帮我啊。

[ 本帖最后由 lovemole 于 2011-1-22 00:42 编辑 ]

自己把这个问题解决了，哈哈。
还是感谢论坛里的朋友们。

打开了就加个判断，不插入了，打不开就说明没有这条记录，就加，应该是这样吧