如何对access数据库进行查询？

来源：百度知道 编辑：UC知道 时间：2024/05/08 03:23:18
比如我做一个VB登录界面，和ACCESS已经建立连接，里面的User表中存着用户名和密码字段，并有一条记录，如何检测在VB中输入的用户名和密码是否正确？最好有源代码给看一下。多谢！
可我还是不大明白temp.open"select * from password where pass='"&trim(txtpass.text)&'''",cn,3,2 是什么意思，为什么要加上cn,3,2呢？

工程引用ADO

模块里

dim cn as adodb.connection

pualic rs as adodb.recordset

sub conn()

cn.open="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\;Jet OLEDB:Database Password=jixu21win2004;Persist Security Info=False"
'这里的连接根据情况修改一下
end sub

sub rss()

if rs.state=adstateopen then

rs.closse

end if

end sub

在窗体模块里

provite sub cmdok-click()

dim temp as adodb.recoreset

temp.Open "select * from Operator where Peo_Name='" & Trim(txtUserName.Text) & "'", cn, 3, 2
If temp.EOF = True Then
MsgBox "此用户名不存在！", vbInformation + vbOKOnly, "系统提示："
Exit Sub
End If
temp.Close

temp.open"select * from password where pass='"&trim(txtpass.text)&'''",cn,3,2

if temp.eof