EXCEL vba 数据库连接

vba可以连接数据库并获取数据库的信息进行显示。

操作方法

  • 01

    首先在开发工具选项卡中插入一个表单控件(按钮)。

  • 02

    拖拽出按钮后会弹出指定宏的窗口,这里我们新建宏。

  • 03

    新建按钮单击后,进入模块代码编辑界面,这里开始编辑代码。

  • 04

    如图,代码已经编辑好了,这里为大家解析一下代码的功能: Dim cn As Object    '定义数据链接对象 ,保存连接数据库信息 Dim rs As Object    '定义记录集对象,保存数据表 Set cn = CreateObject("ADODB.Connection")  '创建数据链接对象 Set rs = CreateObject("ADODB.RecordSet")  '创建记录集对象,用于接收数据查询获得的结果集 Dim strCn As String, strSQL As String '字符串变量 strCn = "Provider=sqloledb;Server=(local);Database=yourdatabasename;Uid=sa;Pwd=yourpassword;"    '定义数据库链接字符串 strSQL = "select bookname,price,author from book"    '设置SQL语句 cn.Open strCn '打开连接 rs.Open strSQL, cn‘读取数据库中的数据 Dim i As Integer, j As Integer, sht As Worksheet 'i,j为整数变量;sht 为excel工作表对象变量,指向某一工作表 Set sht = ThisWorkbook.Worksheets("sheet1") ’循环读取数据并将数据显示到excel中 Do While Not rs.EOF     '当数据指针未移到记录集末尾时,循环下列操作 sht.Cells(i, 1) = rs("bookname")    '把当前记录的字段1的值保存到sheet1工作表的第i行第1列 sht.Cells(i, 2) = rs("price")    '把当前字段2的值保存到sheet1工作表的第i行第2列 sht.Cells(i, 3) = rs("author")    '把当前字段2的值保存到sheet1工作表的第i行第2列 rs.MoveNext                      '把指针移向下一条记录 i = i + 1                        'i加1,准备把下一记录相关字段的值保存到工作表的下一行 Loop                                 '循环 rs.Close   '关闭记录集,至此,程序将把某数据表的字段1和字段2保存在excel工作表sheet1的第1、2列,行数等于数据表的记录数

  • 05

    执行结果与数据库中结果对比

(0)

相关推荐

  • excel vba是什么?

    故障分析:excel VBA其实就是大家代码编辑程序,有的人被人认为是宏,但是excel vba是包括宏程序的。下面还是一起来看看excel vba是什么?如何打开? 一、excel vba是什么? ...

  • excel vba如何打开,关闭多个工作薄

    用excel VBA 编写打开和关闭多个工作薄,相应的代码如下: 1、打开指定工作簿 dim wb as workbook set wb = " 文件路径及文件名" workbooks.open fi ...

  • 为excel vba中添加.删除模块并插入全过程图文详解

    为excel vba中添加、删除模块并插入全过程图文详解 方法/步骤 1、点按快速启动栏excel 程序图标 进入excel 界面 点击选中任意单元格 然后按alt+f11 进入vbe界面 2、点击菜 ...

  • excel vba编程在窗体上画一座房子

    excel vba编程在窗体上画一座房子.这篇教程是向大家介绍利用excel vba编程在窗体上画一座房子方法,教程比较基础,制作出来的效果非常不错,推荐来看看吧. 步骤 打开excel表格,进入vb ...

  • 利用excel vba编程在窗体上画一个六边形

    利用excel vba编程在窗体上画一个六边形.这篇教程是向朋友们分享利用excel vba编程在窗体上画一个六边形方法,教程很不错,适合新手来学习,推荐大家来看看吧. 步骤1 打开excel表格,进 ...

  • excel vba清除批注方法图解

    下面为大家介绍excel中使用vba来清除批注的方法,操作很简单,对于不知道怎么操作的朋友可以参考本文,一起来看看吧! 步骤 1.首先我们打开一个工作样表作为例子. 2.在单元格中我们插入一个批注,批 ...

  • excel vba如何引用单元格值?

    excel中使用vba引用单元格值的方法,不会的朋友可以参考本文! 步骤 1.首先我们打开一个工作样表作为例子. 2.在工作表中引用单元格数值我们使用=加上单元格序列即可引用,如图中所示在c22单元格 ...

  • excel vba编程在窗体上画大辣椒

    本节目的:利用excel vba编程,在窗体上画大辣椒,有喜欢的朋友可以参考本文哦! 步骤 1.打开excel,进入Visual Basic编辑器. 2.插入模块. 3.模块编程.在模块1内编程,声明 ...

  • 利用excel vba编程在窗体上画路灯

    今天小编为大家分享利用excel vba编程在窗体上画路灯方法,操作很简单的,喜欢的朋友可以参考本文. 步骤 1.打开excel,进入Visual Basic编辑器. 2.插入模块. 3.模块编程.在 ...