急急急!!刚刚学c请问用vc6如何编一个登陆界面 类似于qq的登陆界面

求程序 和相应的操作步骤 大神帮忙
2025-04-30 16:44:12
推荐回答(1个)
回答1:

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
else
msgbox "用户名或密码错误!"
exit sub
end if
rs.close
con.close