EXCEL VBA怎么读写SQLSERVER 数据库

Sub 按钮1_Click()

Dim i As Integer, j As Integer, sht As Worksheet 'i,j为整数变量；sht 为excel工作表对象变量，指向某一工作表

'Dim cn As New ADODBConnection '定义数据链接对象 ，保存连接数据库信息；请先添加ADO引用

'Dim rs As New ADODBRecordset '定义记录集对象，保存数据表

‘工具 ---〉引用 ---〉Microsoft ActiveX data objects

'下面两句就不需要增加引用ADO

Set cn = CreateObject("AdodbConnection")

Set rs = CreateObject("AdodbRecordset")

Dim strCn As String, strSQL As String '字符串变量

Dim strCond As String

strCn = "Provider=sqloledb;Server=R9HDET7;Database=dbname;Uid=username;Pwd=password" '定义数据库链接字符串

'下面的语句将读取数据表数据，并将它保存到excel工作表中：工作表为一张两维表，记录集也是一张两维表

strSQL = "select CUSTOMER_NAME from VSC_BI_CUSTOMER " '定义SQL查询命令字符串

cnOpen strCn '与数据库建立连接，如果成功，返回连接对象cn

rsOpen strSQL, cn '执行strSQL所含的SQL命令，结果保存在rs记录集对象中

i = 2

Set sht = ThisWorkbookWorksheets("Test") '把sht指向当前工作簿的Test工作表

Do While Not rsEOF '当数据指针未移到记录集末尾时，循环下列 *** 作

shtCells(i, 1) = rs("CUSTOMER_NAME") '把当前记录的字段1的值保存到sheet1工作表的第i行第1列

rsMoveNext '把指针移向下一条记录

i = i + 1 'i加1，准备把下一记录相关字段的值保存到工作表的下一行

Loop '循环

rsClose '关闭记录集，至此，程序将把某数据表的字段1保存在excel工作表sheet1的第1列，行数等于数据表的记录数

cnClose '关闭数据库链接,释放资源

End Sub

有两种方法：

打开企业管理器点击该表，

右键所有任务，导出数据，下一步按照提示，就可以了；

执行sql语句，如下，你参考一下：

(EXEC masterxp_cmdshell ’bcp SettleDBdboshanghu out c:\temp1xls -c -q -        S"GNETDATA/GNETDATA" -U"sa" -P""’)。

其实这个就跟C#连接SQL读取表中的数据是一样的，只是在这数据库为Excel而已，通过连接字符串：

Provider=MicrosoftJetOLEDB40;Data Source=文件路径;Extended Properties=Excel 80

连接Excel即可，然后通过SQL语句：（类似）select from [Sheet1$] 把数据取出来即可，然后按照以前自己连接SQL数据库的方式把相应的字段存储起来即可。

需要留意的时03和07的连接字符串不一样，以上是03版的Excel连接方式

Excel 2007：

Provider=MicrosoftACEOLEDB120;Data Source=文件路径;Extended Properties=Excel 120

如有什么不明白的 可以留言 ^_^

以上就是关于EXCEL VBA怎么读写SQLSERVER 数据库全部的内容，包括:EXCEL VBA怎么读写SQLSERVER 数据库、如何把SQLServer表数据导出为Excel文件、C#读取EXCEL中的信息，并保存到数据库等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！