vb做的登录界面 与access连接
数据库用access 数据库名是user 表名是user 字段是username,password
代码如下：但是有错误，请高手们帮帮忙指出，谢谢
Option Explicit
Dim cnt As Integer '记录确定次数
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdOK_Click()
Dim strAccess As String
Dim rs As New ADODB.Recordset
Dim conn As New ADODB.Connection
Dim sql As String
Dim connstr As String
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False; data source=" & "user.mdb "
If Trim(text1.Text) = "" Then
MsgBox "用户名不能为空，请重新输入！"
text1.SetFocus
Else
sql = "select * from user where username='" & Trim(text1.Text) & "'"
rs.Open "user", conn, adOpenKeyset, adLockPessimistic '打开记录集
If rs.EOF = True Then
MsgBox "没有这个用户,请重输入！", vbOKOnly + vbExclamation, ""
text1.Text = ""
text1.SetFocus
Else
If Trim(rs.Fields(1)) = Trim(text2.Text) Then
Unload Me
frmLogin.Show
Else
MsgBox "密码不正确,请重输入！", vbOKOnly + vbExclamation, ""
text2.SetFocus
text2.Text = ""
End If
End If
End If
cnt = cnt + 1
If cnt = 3 Then <
相关问答：
想在warcraft3里进行写屏操作【如对战平台中的胜负提示信息】，效果就像游戏平台中一样，我试过在一窗口中写入文字，然后一直让窗口强制最前，虽然能实现文字显示，但是文字会不断闪烁，而且有不确定BUG，通过论坛搜 ......
哪里出错了，输出这样的结果？？
<%@ Page Language="VB" AutoEventWireup="false" aspcompat="true" CodeFile="Default.aspx.vb" Inherits="_Default" %&g ......
我将一段4000来字的文本赋值给它怎么就出错了,提示运行时错误2176 这个属性的设置值太长?
你是怎样赋值的？
测试了一下，用备注字段给文本框做数据源，没有提示设置值太长,14893字符
引用我将一段4000来字的� ......
Private Sub Form_Load()
recs = Adodc1.Recordset.RecordCount '求当前记录数
If recs > 0 Then '已有考生
Adodc1.Recordset.MoveLast '移到最后一条记录
num = V ......
