按键精灵不用调用插件也能操作Access数据库

时间:2016/1/20 18:38:35  作者:Mho  来源:守望幸福  查看:56802  评论:0
内容摘要:按键精灵不用调用插件也能操作Access数据库
按键精灵不用调用插件也能操作Access数据库

sub 连接数据库
vbsbegin
        dim conn,rs,sqlstr
        set conn = createobject("adodb.connection")    //创建connection对象
        conn.connectionstring = "provider=microsoft.jet.oledb.4.0;data source=该处填写数据库的路径(比如c:\mydb\test.mdb)"    //数据库连接字符串
        conn.open   //打开连接
        set rs = createobject("adodb.recordset") //创建recordset对象 此处不罗嗦可以参考http://www.w3school.com.cn/ado/ado_ref_recordset.asp这里
        sqlstr = "select count(*) from [user]"  //sql查询语句
        rs.open sqlstr, conn, 1, 2 //该处参看http://blog.csdn.net/hejishan/article/details/2267114这里有介绍recordset对象open方法的

        messagebox rs(0)   //通过sql语句 返回rs记录集的结果
      
        //以下不多做解释 就记住一点数据库连接打开就必须按下面步骤关闭
        rs.close     
        set rs = nothing
        conn.close
        set conn = nothing
    vbsend
end sub


相关评论

图库精选