Question

VB+access做的一个系统的登陆界面连数据库的一个表，做一个教师管理系统,跪求大神！！！！！！！！

我的是access的mdb名称是1.mdb　，测试连接之后出现“测试连接失败,因为初始化提供程序时发生错误．无法启动应用程序“想请教一下，

可以的话留个邮箱我把代码发给你
我希望的是
教师能用自己的账号密码登陆（管理员也是）
我希望教师能查询表中所有教师的信息（通过教师编号）
教师能有一个界面填写项目申报表，管理员能够填写意见（同意还是不同意）
教师能提交自己想要教的课程
求大神帮忙解决其中几个问题
最好留个邮箱我发给你

保证采纳后追加300赏金！！！！！！！！！！！！！！！！！！
急需!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Answer 1

个你一个例子吧，系统登陆的，换汤不换药，都差不多

Dim nam As String, pass As String

Private Sub Command1_Click()
If Text1 = "" Then
    MsgBox "用户名为空！"
ElseIf Text1 <> nam Then
    MsgBox "用户名错误！"
    Text1 = ""
    Text1.SetFocus
Else
    If Text2 = "" Then
        MsgBox "输入密码为空！"
    ElseIf Text2 <> pass Then
         MsgBox "输入密码错误！"
         Text2 = ""
         Text2.SetFocus
    Else
            MsgBox "登陆成功！"
    End If
End If
End Sub

Private Sub Form_Load()
Adodc1.Visible = False
Label1.Caption = "用户名："
Label2.Caption = "密  码："
Text1 = ""
Text2 = ""
Command1.Caption = "登录"
Call conn
End Sub
Sub conn()
    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Login.mdb;Persist Security Info=False"
    Adodc1.RecordSource = "select * from dl"
    Adodc1.Refresh
    nam = Adodc1.Recordset(0)
    pass = Adodc1.Recordset(1)
End Sub