用VB编写一个登陆界面（急！！）

来源：百度知道 编辑：UC知道 时间：2024/06/18 16:29:46
只要做一个简单的登陆界面，只要有用户名和密码，输正确后点确定就可以转换到另一个窗体。
关键要连接数据库，我在ACCESS放了正确的用户名和密码，如何调用，还有如何输入正确后点确定转换到另一个窗体

vb6加窗体选登录对话框

cmdOK_Click 代码改
dim cnn as new adodb.connection
cnn.open strcnn

dim rs as new adodb.recordset

rs.open "select pwd from tbuser where username = '" & replace(txtUserName.text,"'") & "'",cnn
if rs.eof then
msgbox "无此用户"
rs.close

exit sub
else
if pws = txtPassword.text then
frmMain.show '你要的那个窗体名
rs.close
unload me
endif
endif

数据库麻烦，直接读取文本多好啊

Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
con.Open "provider=Microsoft.Jet.OLEDB.4.0;data source=" & App.Path & "\database.mdb;Jet OLEDB:Database password=;persist security info=false"
rs.Open "select * from table where usename=" & text_username.text, con, adOpenKeyset, adLockOptimistic
if rs("password")= text_password.text then
otherform.show
unload me
e