我想用access创建一个自己部门的数据库,用vb如何连接,制作表单??

来源：百度知道 编辑：UC知道 时间：2024/05/22 14:51:09
用access建立database
用vb开发窗体,并且要有简单的密码功能..
应该怎样操作??

Public rs As New adodb.Recordset '过程变量
Public cn As New adodb.Connection '过程变量
Public Sub connDB()

Set cn = New adodb.Connection

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Public rs As New ADODB.Recordset
Public cn As New ADODB.Connection
Public Sub connDB()
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\存数据的文件夹\Access的名.mdb;Persist Security Info=False"
cn.Open
Set rs = New ADODB.Recordset
rs.Open "select * from 数据库名", cn, adOpenDynamic, adLockOptimistic
End Sub

Private Sub Command1_Click()
Dim a As Integer, b As String
Do While Not rs.EOF
a = rs("用户帐号")
b = rs("用户密码")
If a = Text1 Then
If b = Text2 Then