皮皮网

1.VB关于ACCESS的程序代码
2.VB登陆窗体代码。源码数据库呢是源码access的 数据库名为data 有一个登陆表 有两个字段名 用户名 密码

VB关于ACCESS的程序代码

       åœ¨VB菜单→过程→引用→对象库 "Microsoft ActiveX Data Objects 2.5 Library"

       '定义

       Private Sub Command1_Click()

       Const connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="

       dim conn As New ADODB.Connection

       dim Rs As New ADODB.Recordset

       dim sql As string

        conn.Open connStr & "【我的数据库路径及文件.mdb】"

        sql = "SELECT * FROM 你的表单名称"

        Rs.Open sql, conn, adOpenKeyset, adLockPessimistic

        If Not Rs.State = adStateOpen Then '确定数据库能顺利打开后，才省略这个判断

        MsgBox "数据库没有开启。检查数据库的链接是哪儿出问题！"

        exit sub

        End If

        ‘数据库能开启才会继续往下一行运行

        Rs.MoveLast: Rs.MoveFirst

        ‘这一行只是检查Rs是不是正常运行，整体代码完成后可以移除

        MsgBox "记录集总共笔数：" & Rs.RecordCount

        ‘ 数据库确定能正常开启了，想继续操作新增、更新、删除...都行

        '开始新增一笔数据

        'Rs.AddNew

        '.......赋值代码

        '.......赋值代码.

        ‘Rs.Update

        'Rs.Refresh

       End Sub

VB登陆窗体代码。数据库呢是源码仿赛车大亨源码access的 数据库名为data 有一个登陆表 有两个字段名 用户名 密码

       Microsoft Data Environment Instance 1.0

       Microsoft ActiveX Objects 2.5 Library

       因为你要用Access数据库，源码java项目交付源码所以需要在工程中添加控件。源码java毕设源码

       建立Access数据库，源码在这个vb工程文件夹新建一个文件夹，源码命名为table，源码然后将这个Access数据库文件放入table文件夹中。源码

       源代码：

       Private Con_Access As Connections

       Private Sub Form_Load()

           Set Con_Access = New Connection

           With Con_Access

               .Provider = "microsoft.jet.oledb.4.0"

               .ConnectionString = App.Path & "\table\ship.mdb"

               .Open

           End With

       End Sub

       Private Sub cmdOK_Click()

           Dim cmd As New Command

           Dim rd As New Recordset

           cmd.ActiveConnection = Con_Access

           cmd.CommandText = "select username,源码userpassword from usertable where username='" & Text1.Text & "'"

           On Error GoTo db_error

           Set rd = cmd.Execute

           On Error GoTo 0

           If rd.EOF Then

               MsgBox "用户名不存在。",源码 vbOKOnly + vbInformation, "错误"

               Exit Sub

           End If

       db_error:

           MsgBox Err.Description, vbOKOnly + vbInformation, "错误"

       End Sub

       Private Sub cmdCancel_Click()

           End

       End Sub

       已经附上截图了，如果还有疑问，源码在线付款源码发电邮给我rearguard_zero@hotmail.com