`
yuyuqian521
  • 浏览: 47484 次
  • 性别: Icon_minigender_1
  • 来自: 北京
社区版块
存档分类
最新评论

VBA链接SQL Server数据库

    博客分类:
  • VBA
阅读更多
    这两天做东西要用到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连接SQLSERVER数据库实例.doc

    在本文中,我们将深入探讨如何使用VBA(Visual Basic for Applications)通过ADO(ActiveX Data Objects)连接到SQL Server数据库并执行数据查询。这个过程在Excel中尤其常见,因为VBA是Excel内置的编程环境,允许...

    利用Excel VBA_ADO创建SQL Server应用数据库.pdf

    描述部分与标题相同,再次强调了文章的主题:利用Excel VBA_ADO技术自动链接到SQL Server数据库服务器,实现Excel访问SQL Server数据库的任意数据,从而实现两者的有机结合,并在此基础上创建SQL Server应用数据库,...

    VBA连接sqlserver数据库的常用函数.rar

    在与SQL Server数据库交互时,VBA提供了丰富的功能来实现数据的读取、写入和管理。本文将详细探讨VBA连接SQL Server数据库的常用函数,并提供相关知识点。 首先,要建立VBA与SQL Server之间的连接,我们需要使用ADO...

    word vba 如何连接sql数据库

    其中,`cn` 是连接数据库的对象,`rs` 是记录集对象,`strCn` 和 `strSQL` 是字符串变量,用于存储数据库链接字符串和 SQL 查询命令字符串。 接下来,定义数据库链接字符串: ```vba strCn = "Provider=sqloledb;...

    VBA+SQLServer跨电脑读写数据传输.zip

    本资源"VBA+SQLServer跨电脑读写数据传输.zip"提供了一个详细的方法,利用Visual Basic for Applications(VBA)和Microsoft SQL Server来实现在不同计算机之间的数据交互。这种技术能够有效地提升工作效率,确保...

    VBA连接SQL数据库的代码

    在本案例中,我们探讨的是如何通过VBA(Visual Basic for Applications)来实现与SQL Server数据库的有效连接及数据查询操作。对于初学者而言,以下几个方面可能会遇到一定的挑战:长查询语句的换行处理、查询执行...

    如何使用Excel+VBA+SQL Server进行数据处理

    ' 定义数据库链接字符串 strCn = "Provider=sqloledb;Server=服务器名称或 IP 地址;Database=数据库名称;Uid=用户登录名;Pwd=密码;" ' 定义 SQL 查询命令字符串 strSQL = "select 字段 1,字段 2 from 表名称" ...

    Excel+SQL Server数据库管理技术详解

    独一无二:本书是第一本将Excel与SQL Server数据库整合应用的经典图书。 讲解全面:囊括了整合Excel与SQL Server数据库...实操性强:提供了大量的实际案例,详细介绍了利用Excel VBA整合SQL Server数据库的方法和技巧。

    图片文件在SQL Server数据库的存取

    图片文件在SQL Server数据库的存取 在实际开发中,我们经常需要将图片文件存储到SQL Server数据库中,并在需要时从数据库中取出。本文将详细介绍如何使用C#语言实现图片文件在SQL Server数据库的存取。 数据库表...

    《Excel+SQL Server数据库管理技术详解》Part1

    提供了大量的实际案例,详细介绍了利用Excel VBA整合SQL Server数据库的方法和技巧。 提供了每个案例以及各种方法和技巧详细的源代码,这些源代码均设计成了通用的程序,根据自己电脑的实际配置情况即可迅速套用。

    Excel+SQL Server 数据库管理技术详解

    通过VBA,你可以编写宏来连接到SQL Server数据库,执行查询,甚至构建复杂的业务逻辑。学习VBA,你需要理解对象、方法和属性的概念,以及如何使用ADO(ActiveX Data Objects)来与数据库交互。 接着,我们来看...

    SQL SERVER数据库批量更新程序

    【SQL SERVER数据库批量更新程序】是一款专为SQL SERVER设计的工具,它允许用户高效地对多个数据库执行查询或更新操作。这款程序的核心功能是能够基于查询结果生成相应的SQL语句,方便用户进行批量处理,极大地提高...

    vba-sql-Excel.rar_Excel VBA_SQL VBA_VBA SQL_sql excel_sql server

    Excel VBA允许用户自定义Excel的功能,而通过VBA连接到SQL Server数据库,则可以实现对大量数据的高效管理和分析。以下是这个主题的详细解释。 1. **Excel VBA基础**:VBA是微软开发的一种编程语言,它嵌入在Office...

    VBA从Excel到数据到SQLServer

    一个用VBA将数据写入SQLServer的实例,希望对大家有帮助

    SQL SERVER自动导出Word数据库文档

    在SQL SERVER环境中,有时我们需要将数据库的信息以报告的形式呈现,比如导出为Word文档,方便阅读和分享。"SQL SERVER自动导出Word数据库文档"这一功能就满足了这样的需求。这个功能主要应用于SQL SERVER 2000、...

    Excel+SQL Server 数据库管理技术详解配套光盘

    - 学习如何在Excel中连接到SQL Server数据库,使用ODBC或OLEDB数据源。 - 使用Excel的数据导入/导出功能,实时获取和更新SQL Server中的数据。 - 实践使用Power Query连接SQL Server,实现双向数据同步。 6. **...

    (VB.net 连接 SQL server数据库案例源码)数据收纳箱系统.zip

    (VB.net 连接 SQL server数据库案例源码)数据收纳箱系统.zip 源码开放,datagridview1控件列示等等

    SQL Server数据库转换工具

    本文将深入探讨“SQL Server数据库转换工具”,它主要用于实现SQL Server与Access之间的数据和结构的互换。 首先,让我们了解SQL Server。Microsoft SQL Server是一款强大的关系型数据库管理系统,适合大型企业级...

    access转换成sqlserver数据库

    本文将详细介绍如何将Access数据库转换为SQL Server数据库。 1. **Access数据库简介** Access是一款轻量级的桌面数据库系统,它基于Jet引擎,易于使用,适合个人和小型团队进行数据管理。然而,随着数据量的增长和...

Global site tag (gtag.js) - Google Analytics