那位好心人能给段代码
后台数据库用ACCESS

http://bbs.bc-cn.net/viewthread.php?tid=35247

登陆的?
我这样想:
把text1是用来输入密码的.text2是和数据库绑定,然后就可以了.(Text2可以用来修改密码,也可以隐藏)
if text1.text=text2.text then
msgbox"OK"
else
msgbox"NO"
end if

vb有登陆对话框的现成窗体的,至于连接数据库嘛,你可以用数据窗体向导做,直接抄代码

我自己用ADODC写了几次
感觉思路好象没错
可一运行老是出现 错误 with 91

Private Sub Command1_Click()
With Adodc1.Recordset
.MoveFirst
Do While .EOF
If Text1.Text = .Fields("user_id").Value And Text2.Text = .Fields("pass").Value Then
Me.Hide
Else
MsgBox "你无权登陆"
End If
Loop
End With
End Sub
老是在第二条的时候就出现 with 错误９１
搞了好几天了　老是出错　
路过的好心人　高手都来帮帮忙

Static intC As Integer
Const inputnum = 2
intC = intC + 1
Data1.Recordset.MoveFirst
Data1.Refresh
Do While Not Data1.Recordset.EOF
If Trim(Text1.Text) = Trim(Data1.Recordset("管理员帐号")) Then
If Trim(Text2.Text) = Trim(Data1.Recordset("帐号密码")) Then
图书管理系统.Show
Unload Me
Exit Sub
Else
MsgBox "密码错误", 0 + 48, "警告"
Text2 = ""
Text1 = ""
Text1.SetFocus
If intC > inputnum Then End
Exit Sub
End If
Else
Data1.Recordset.MoveNext
End If
Loop
MsgBox "无此帐号", 0 + 48, "警告"
Text2 = ""
Text1 = ""
Text1.SetFocus
If intC > inputnum Then End

建一模块输入下列代码：
Public conn As ADODB.Connection
Sub main()
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;" _
+ "User ID=sa;password=sa;Initial Catalog=您的数据库名;Data Source=127.0.0.1"
conn.Open
from1.Show ’登录界面
End Sub

再在登录界面“确定”下写入如下代码：
Private Sub Command1_Click()
If id.Text = "" Then
MsgBox "用户名不能为空！", vbOKOnly + vbInformation, "友情提示"
id.SetFocus
Exit Sub
End If
If password.Text = "" Then
MsgBox "密码不能为空！", vbOKOnly + vbInformation, "友情提示"
password.SetFocus
Exit Sub
End If

Dim strSQl As String
strSQl = "select * from Users where users_name='" & Trim$(id.Text) & "' and password='" & Trim$(password.Text) & "' "

Dim str As New ADODB.Recordset
Set str = New ADODB.Recordset
str.CursorLocation = adUseClient
str.Open strSQl, conn, adOpenStatic, adLockReadOnly

With str
If .State = adStateOpen Then .Close
.Open strSQl
If .EOF Then
Try_times = Try_times + 1
If Try_times >= 3 Then
MsgBox "您已经三次尝试进入本系统，均不成功，系统将自动关闭", vbOKOnly + vbCritical, "警告"
Unload Me
Else
MsgBox "对不起，用户名不存在或密码错误 ！", vbOKOnly + vbQuestion, "警告"
id.SetFocus
id.Text = ""
password.Text = ""
End If
Else

Unload Me

Form2.Show ’登录进入的另一个界面

End If
End With

End Sub

我引用了8楼的语句，怎么运行时会提示错误，实时错误‘3709’，无法连接。我用的是ado连接的，数据库是2003acess

http://bbs.bc-cn.net/viewthread.php?tid=111002&replyID=431564&skin=1