恒大雅苑 工人:我要做一个图书管理的登陆界面系统,要和Acess连接起来,

来源:百度文库 编辑:查人人中国名人网 时间:2024/04/28 17:56:24
多谢各位!我要做一个图书管理的登陆界面系统,要和Acess连接起来,用户名那里是一个combo控件,密码是一个TEXT控件,登陆命令按扭为COMMAND1,退出为COMMAND2。 请高手帮我写出详细的代码,谢谢了 !急急急!!!

Public i As Integer

Private Sub Command1_Click()
Dim denglu As ADODB.Recordset
Call GetConnectionToDb
Set denglu = g_conn.Execute("select * from 表名 where 用户姓名=ltrim('" & combo1 & "') and 密码=ltrim('" & Text1 & "') ")
If denglu.EOF Then
MsgBox "您输入的信息有误,请重新输入!", , "系统提示"
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
Else
xtzjm.Show /这是正确后要出现的窗体
End If
g_conn.Close
End Sub

你要有一个库.还要有个模块.模块是在vb右边的工程中右级添加模块
模块代码是
Public g_conn As New ADODB.Connection
Public g_dbpath As String
Public Sub GetConnectionToDb()
g_dbpath = App.Path

Dim strConn As String
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source =" & g_dbpath & "\库名.mdb"
g_conn.Open strConn

End Sub

路过,这种我都会背出来啦!