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 <
相关问答：
ACCESS数据库中有一个tablename表，设计如下
编号,书名,作者,出版时间,出版社,ISBN,目录,简介
其中除“编号”为自动编号外，其它都为“备注”
其中"编号"维一，在“ISBN”中有的为空值， ......
哪里出错了，输出这样的结果？？
<%@ Page Language="VB" AutoEventWireup="false" aspcompat="true" CodeFile="Default.aspx.vb" Inherits="_Default" %&g ......
初学，大胆提问，请高手不吝赐教
1、滚动条点击与绘图板（屏幕,Piceure1）的移动问题已经解决。
Picture1.Top = -VScroll1.Value + bcW '垂直移动
Picture1.Left = -HScroll1.Value + bcW ' ......
我将一段4000来字的文本赋值给它怎么就出错了,提示运行时错误2176 这个属性的设置值太长?
你是怎样赋值的？
测试了一下，用备注字段给文本框做数据源，没有提示设置值太长,14893字符
引用我将一段4000来字的� ......
可以吗
好奇怪的题目额！！
可以告诉我们你到底想问什么 ？
2分给我的话就可以。
........................可以吗
可以!
纠结，
29. vb可以这样做不？ ( H )√
A. ......
