VB实现access数据库查找

来源：百度知道 编辑：UC知道 时间：2024/05/22 02:44:59
我想实现一个VB功能，在一个窗体上，有Textbox控件，命令按钮，想实现在数据库中添加用户名，如果该用户名存在的话，则显示“存在用户”，如果没有该用户则可以添加到数据库中，如何在数据库中查找是否 存在该用户？有哪位知道希望能给我具体的方案，跪谢啊，毕业设计~！！！~~~~``奖励30分

以这个名称为查找条件，看看记录集的个数，要是零那就没有了
大于零那就有啊

连接数据库字符：
Private Sub Command1_Click()
db="db/date.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
conn.Open connstr

dim rs
set rs=createobject("adodb.recordset")
rs.open "select * from user where username='"&text1&"'",conn,1,3
if rs.eof then
rs.addnew
'再加写入数据库的命令
rs("username")=text1
rs.update
else
MsgBox "用户名"&text1&" 已存在"
end if
rs.close
end sub

将以上的加到：Command1的按键上，系统就会动验证了！～

这个回答够详细了吧？？？
截贴，给分，哈哈！～