皮皮网

【畅购源码】【妈妈帮源码】【媒体app源码】vb access 源码

时间:2024-11-25 09:28:32 分类:休闲 来源:锁业网站源码

1.VB关于ACCESS的程序代码

vb access 源码

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

copyright © 2016 powered by 皮皮网   sitemap