这两天做东西要用到VBA连接SQL Server,找了一些参考书和网上的一些例子,结果怎么都调通不了,后来在ExcelHome上down了一个VBA的demo,修改调试后通过,下面整理一下链接Sqlserver的步骤。
第一步,先添加引用吧,Microsoft Active Data Objects 2.6 Library,随便选个什么版本的都行。
第二步,就是连接代码了:
Dim cn As New ADODB.Connection
Dim strCn As String, strSQL As String
strCn = "Provider=sqloledb;Server=.;Database=test;Uid=sa;Pwd="
cn.Open strCn
cn.Close
执行SQL语句的代码:
Dim cn As New ADODB.Connection
Dim strCn As String, strSQL As String
strCn = "Provider=sqloledb;Server=.;Database=test;Uid=sa;Pwd="
cn.Open strCn
Sql = "delete * from test" '增删改操作
cn.Execute Sql
cn.Close
查看select语句打代码:
Dim i As Integer, j As Integer, sht As Worksheet 'i,j为整数变量;sht 为excel工作表对象变量,指向某一工作表
Dim cn As New ADODB.Connection '定义数据链接对象 ,保存连接数据库信息;请先添加ADO引用
Dim rs As New ADODB.Recordset '定义记录集对象,保存数据表
'Dim cm As New ADODB.Connection
Dim strCn As String, strSQL As String '字符串变量
strCn = "Provider=sqloledb;Server=.;Database=test;Uid=sa;Pwd=;" '定义数据库链接字符串"
'下面的语句将读取数据表数据,并将它保存到excel工作表中:画两张表想像一下,工作表为一张两维表,记录集也是一张两维表
strSQL = "select * from sh000001" '定义SQL查询命令字符串
cn.Open strCn '与数据库建立连接,如果成功,返回连接对象cn
rs.Open strSQL, cn '执行strSQL所含的SQL命令,结果保存在rs记录集对象中
i = 1
Set sht = ActiveWorkbook.Worksheets("sheet2") '把sht指向当前工作簿的sheet1工作表
Do While Not rs.EOF '当数据指针未移到记录集末尾时,循环下列操作
sht.Cells(i, 1) = rs("stkcd") '把当前记录的字段1的值保存到sheet1工作表的第i行第1列
sht.Cells(i, 2) = rs("LossProb50") '把当前字段2的值保存到sheet1工作表的第i行第2列
rs.MoveNext '把指针移向下一条记录
i = i + 1 'i加1,准备把下一记录相关字段的值保存到工作表的下一行
Loop '循环
rs.Close '关闭记录集,至此,程序将把某数据表的字段1和字段2保存在excel工作表sheet1的第1、2列,行数等于数据表的记录数
cn.Close
分享到:
相关推荐
在本文中,我们将深入探讨如何使用VBA(Visual Basic for Applications)通过ADO(ActiveX Data Objects)连接到SQL Server数据库并执行数据查询。这个过程在Excel中尤其常见,因为VBA是Excel内置的编程环境,允许...
描述部分与标题相同,再次强调了文章的主题:利用Excel VBA_ADO技术自动链接到SQL Server数据库服务器,实现Excel访问SQL Server数据库的任意数据,从而实现两者的有机结合,并在此基础上创建SQL Server应用数据库,...
在与SQL Server数据库交互时,VBA提供了丰富的功能来实现数据的读取、写入和管理。本文将详细探讨VBA连接SQL Server数据库的常用函数,并提供相关知识点。 首先,要建立VBA与SQL Server之间的连接,我们需要使用ADO...
其中,`cn` 是连接数据库的对象,`rs` 是记录集对象,`strCn` 和 `strSQL` 是字符串变量,用于存储数据库链接字符串和 SQL 查询命令字符串。 接下来,定义数据库链接字符串: ```vba strCn = "Provider=sqloledb;...
本资源"VBA+SQLServer跨电脑读写数据传输.zip"提供了一个详细的方法,利用Visual Basic for Applications(VBA)和Microsoft SQL Server来实现在不同计算机之间的数据交互。这种技术能够有效地提升工作效率,确保...
在本案例中,我们探讨的是如何通过VBA(Visual Basic for Applications)来实现与SQL Server数据库的有效连接及数据查询操作。对于初学者而言,以下几个方面可能会遇到一定的挑战:长查询语句的换行处理、查询执行...
' 定义数据库链接字符串 strCn = "Provider=sqloledb;Server=服务器名称或 IP 地址;Database=数据库名称;Uid=用户登录名;Pwd=密码;" ' 定义 SQL 查询命令字符串 strSQL = "select 字段 1,字段 2 from 表名称" ...
独一无二:本书是第一本将Excel与SQL Server数据库整合应用的经典图书。 讲解全面:囊括了整合Excel与SQL Server数据库...实操性强:提供了大量的实际案例,详细介绍了利用Excel VBA整合SQL Server数据库的方法和技巧。
图片文件在SQL Server数据库的存取 在实际开发中,我们经常需要将图片文件存储到SQL Server数据库中,并在需要时从数据库中取出。本文将详细介绍如何使用C#语言实现图片文件在SQL Server数据库的存取。 数据库表...
提供了大量的实际案例,详细介绍了利用Excel VBA整合SQL Server数据库的方法和技巧。 提供了每个案例以及各种方法和技巧详细的源代码,这些源代码均设计成了通用的程序,根据自己电脑的实际配置情况即可迅速套用。
通过VBA,你可以编写宏来连接到SQL Server数据库,执行查询,甚至构建复杂的业务逻辑。学习VBA,你需要理解对象、方法和属性的概念,以及如何使用ADO(ActiveX Data Objects)来与数据库交互。 接着,我们来看...
【SQL SERVER数据库批量更新程序】是一款专为SQL SERVER设计的工具,它允许用户高效地对多个数据库执行查询或更新操作。这款程序的核心功能是能够基于查询结果生成相应的SQL语句,方便用户进行批量处理,极大地提高...
Excel VBA允许用户自定义Excel的功能,而通过VBA连接到SQL Server数据库,则可以实现对大量数据的高效管理和分析。以下是这个主题的详细解释。 1. **Excel VBA基础**:VBA是微软开发的一种编程语言,它嵌入在Office...
一个用VBA将数据写入SQLServer的实例,希望对大家有帮助
在SQL SERVER环境中,有时我们需要将数据库的信息以报告的形式呈现,比如导出为Word文档,方便阅读和分享。"SQL SERVER自动导出Word数据库文档"这一功能就满足了这样的需求。这个功能主要应用于SQL SERVER 2000、...
- 学习如何在Excel中连接到SQL Server数据库,使用ODBC或OLEDB数据源。 - 使用Excel的数据导入/导出功能,实时获取和更新SQL Server中的数据。 - 实践使用Power Query连接SQL Server,实现双向数据同步。 6. **...
(VB.net 连接 SQL server数据库案例源码)数据收纳箱系统.zip 源码开放,datagridview1控件列示等等
本文将深入探讨“SQL Server数据库转换工具”,它主要用于实现SQL Server与Access之间的数据和结构的互换。 首先,让我们了解SQL Server。Microsoft SQL Server是一款强大的关系型数据库管理系统,适合大型企业级...
本文将详细介绍如何将Access数据库转换为SQL Server数据库。 1. **Access数据库简介** Access是一款轻量级的桌面数据库系统,它基于Jet引擎,易于使用,适合个人和小型团队进行数据管理。然而,随着数据量的增长和...