XCEL查找SQL SERVER数据库的数据
新建sql数据库,建立表单,测试数据。如图。这些都是常规操作。
我的表名是:Table_Yangji
然后新建一个EXCEL连接SQL SERVER数据库.xlsx 填写如下内容,然后另存为EXCEL连接SQL SERVER数据库.xlsm
这个按钮是在:开发工具--插入--Active控件
然后打开Visual Basic 或者ALT+F11 插入模块。名称随便。没有影响。例如我取个conn
黏贴代码。
- <pre name="code" class="html">Public Function search_sql()
- Dim I2 As Integer, j2 As Integer, sht As Worksheet ' i2,j2为整数变量;sht 为excel工作表对象变量,指向某一工作表
- Dim R, C, F, I As Integer 'R Excel表的行序号,C Excel表的列序号 F 查询结果的总记录数 I SQL表的字段序号
- Dim strCn As String, strSQL As String '字符串变量
- '方法一:直接引入数据库驱动程序
- '工具 ---〉引用 ---〉Microsoft ActiveX data objects ....
- '然后定义两个驱动
- 'Dim cn As New ADODB.Connection '定义数据链接对象 ,保存连接数据库信息;请先添加ADO引用
- 'Dim rs As New ADODB.Recordset '定义记录集对象,保存数据表
- '方法二:不用引入驱动,直接设置驱动。
- Dim cn As Object
- Dim rs As Object
- Set cn = CreateObject("Adodb.Connection")
- Set rs = CreateObject("Adodb.Recordset")
- '=========================我用的是方法二======================
- '
- '
- '
- '
- strCn = "Provider=sqloledb;Server=127.0.0.1;Database=yangji_test;Uid=yangji;Pwd=yangji0321" '定义数据库链接字符串
- '下面的语句将读取数据表数据,并将它保存到excel工作表中:工作表为一张两维表,记录集也是一张两维表
- strSQL = "SELECT * FROM [dbo].[Table_Yangji] " '定义SQL查询命令字符串
- cn.Open strCn '与数据库建立连接,如果成功,返回连接对象cn
- rs.Open strSQL, cn '执行strSQL所含的SQL命令,结果保存在rs记录集对象中
- R = 2 '表示从第二行开始,行序号
- C = 1 '表示从第一列开始,列序号
- '这里需要注意的是,如果用这一句,只能在当前工作表中正常使用。另存为宏后就不能正常工作了
- 'ThisWorkbook指的是当前工作簿,不是活动工作表。她就指向宏的工作簿了。
- ' Set sht = ThisWorkbook.Worksheets("Sheet1")'把sht指向当前工作簿的Test工作表
- '改用ActiveWorkbook就指向当前活动工作簿了。就能正常工作了。O(∩_∩)O哈哈~
- Set sht = ActiveWorkbook.Worksheets("Sheet1") '把sht指向当前工作簿的Test工作表
- '测试用
- 'Dim a As String
- 'Dim b As String
- 'a = ActiveWorkbook.Name '返回活动工作薄的名称
- 'b = ThisWorkbook.Name '返回当前工作簿名称
- 'MsgBox "程序被调用。" & a & "=====" & b
- Do While Not rs.EOF '当数据指针未移到记录集末尾时,循环下列操作
- sht.Cells(R, C) = rs("bianhao") '把当前记录的字段1的值保存到sheet1工作表的第I行第1列
- sht.Cells(R, C + 1) = rs("changdu") '把当前记录的字段1的值保存到sheet1工作表的第I行第1列
- sht.Cells(R, C + 2) = rs("neijing") '把当前记录的字段1的值保存到sheet1工作表的第I行第1列
- sht.Cells(R, C + 3) = rs("waijing") '把当前记录的字段1的值保存到sheet1工作表的第I行第1列
- sht.Cells(R, C + 4) = rs("zifuchuan") '把当前记录的字段1的值保存到sheet1工作表的第I行第1列
- sht.Cells(R, C + 5) = rs("riqi") '把当前记录的字段1的值保存到sheet1工作表的第I行第1列
- sht.Cells(R, C + 6) = rs("shijian") '把当前记录的字段1的值保存到sheet1工作表的第I行第1列
- sht.Cells(R, C + 7) = rs("text") '把当前记录的字段1的值保存到sheet1工作表的第I行第1列
- rs.MoveNext '把指针移向下一条记录
- R = R + 1 'i加1,准备把下一记录相关字段的值保存到工作表的下一行
- Loop '循环
- rs.Close '关闭记录集,至此,程序将把某数据的字段1保存在工作表sheet1的第1列,行数等于数据表的记录数
- Set rs = Nothing
- cn.Close '关闭数据库连接,释放资源
- Set cn = Nothing
- End Function
这里需要注意的是:
1、VBA编辑必须在中文状态下复制黏贴,才能正常显示中文,不然复制黏贴中文会乱码。
2、还是开头必须
- Public
不然当按钮调用的时候会出现函数未定义错误。
好。保存。然后点EXCEL图标,进入EXCEL界面。
双击那个按钮,进入编码,然后黏贴代码。
- Private Sub CommandButton1_Click()
- Call search_sql
- End Sub
读取成功。公司有事。先写到这里。