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