求助，EXCEL通过VBA *** 作SQL数据库

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语句，读取用select，读取用insert，以读取为例子，录入如下代码：

'sql完整例子

Sub testSql()

'定义连接对象

    Dim cnn As New ADODBConnection

    Dim rs As New ADODBRecordset

    '定义连接字符串

    Dim conStr As String

    Dim sqlstr As String

    '连接字符串-以下是连接MSSQL数据库

    conStr = "Provider=sqloledb; " _

    & "Server=1921681121; " _

    & "Database=DATABASENAME;Uid=admin;Pwd=admin;"

    cnnOpen conStr

    sqlstr = "SELECT from tablename"

    rsOpen sqlstr, cnn

    Range("a2")CopyFromRecordset rs

    rsClose

    cnnClose

End Sub

这不用vba代码，公式就可以搞定。

在任意单元格输入

="xxxxxxxxxx"&text(row(a1)-1,"0000000")&"1"&right(10-mod(row(a1)-1,10))

公式向下复制就可以了。

以上就是关于求助，EXCEL通过VBA *** 作SQL数据库全部的内容，包括:求助，EXCEL通过VBA *** 作SQL数据库、谁能给我一个EXCEL VBA往SQL数据库读取和写入记录的例子、如何在vba建立窗口来实现录入数据等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！