这两天做东西要用到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数据库实例
利用Excel VBA_ADO创建SQL Server应用数据库.pdf
独一无二:本书是第一本将Excel与SQL Server数据库整合应用的经典图书。 讲解全面:囊括了整合Excel与SQL Server数据库...实操性强:提供了大量的实际案例,详细介绍了利用Excel VBA整合SQL Server数据库的方法和技巧。
提供了大量的实际案例,详细介绍了利用Excel VBA整合SQL Server数据库的方法和技巧。 提供了每个案例以及各种方法和技巧详细的源代码,这些源代码均设计成了通用的程序,根据自己电脑的实际配置情况即可迅速套用。
一个用VBA将数据写入SQLServer的实例,希望对大家有帮助
VBA+SQLServer跨电脑读写数据传输
(VB.net 连接 SQL server数据库案例源码)数据收纳箱系统.zip 源码开放,datagridview1控件列示等等
根据EXCEL表格中的数据表结构,一键自动生成sqlserver数据库表结构,create语句。VBA方便快捷,一键生成。减去大量的重复工作,节省开发时间。同时支持sql语句生成excel数据表.
提供了大量的实际案例,详细介绍了利用Excel VBA整合SQL Server数据库的方法和技巧。 提供了每个案例以及各种方法和技巧详细的源代码,这些源代码均设计成了通用的程序,根据自己电脑的实际配置情况即可迅速套用。
上面是一个vba连接数据库的列子,很简单的一个,上面有教你如何连接数据库的。
VBA数据库管理,建库,删除,取得数据库属性,SQL所有操作,INSERT,DELETE,UPDATE,SELECT等语句使用。
利用DAO创建数据库和数据表、利用ADOX创建数据库和数据表、利用SQL语句创建数据库和数据表、在已有的数据库中创建数据表
在目前的工作中需要解决复制整个SqlServer数据库的问题,复制的内容包括数据库大纲、数据库中的存储过程、函数、表结构、主外键关系以及表中的所有数据等,也就是说copy版本与原数据库一模一样。经过一段时间的摸索...
ifix 5.1 通过ODBC把数据存到SQL SERVER
根据数据库设计自动创建sql语句(MySQL + Oracle)
在企业信息化初期,大部分数据都会通过excel进行管理; 作为IT人员,其实对excel又爱又恨,爱其灵活...现在就分享一个资源,Excel VBA 上传当前sheet中的所有内容到数据库, 然后通过excle调取数据库的数据进行呈现;
主要介绍了VBA中连接SQLSERVER数据库例子,VBA是指Visual Basic for Applications,是Visual Basic的一种宏语言,需要的朋友可以参考下
sql server 中如何增加递增的序号列
wincc用VBS代码向数据库内写入数据图文教程,附带vbs代码样例环境win764+winccv7.2+sqlserver2008
利用ExcelVBA_ADO创建SQLServer应用数据库