使用 ADO-SQL 处理 EXCEL 文件的程序架构（实例注释）

向您问好

爱歌老师这个聚宝盆又多了一两黄金，哈哈[em04]

彭希仁

服了

[em02][em02][em02]

冰山上的来客

QUOTE:

以下是引用爱歌学习在2006-6-14 23:49:00的发言：

实例11：ADO批量更新ACCESS库：
http://club.excelhome.net/viewthread.php?tid=171154&extra=&page=2#422984

'方法二 数组+UPDATE，更快
Sub array_method()
    Dim endrow%, endcolumn%, roww%
    Dim cn As New ADODB.Connection
    Dim rc As New ADODB.Recordset
    t = Timer
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & _
                "\通讯录.mdb;Jet OLEDB:Database Password=123"
    endroww = [a65536].End(xlUp).Row
    endcolumn = [iv3].End(xlToLeft).Column
    arb = Range(Cells(3, "a"), Cells(3, endcolumn))
    arb = Application.Index(arb, 1, 0)               '产生下面Update识别的一维数组
    For roww = 4 To endroww
        arr = Range(Cells(roww, "a"), Cells(roww, endcolumn))
        arr = Application.Index(arr, 1, 0)
        rc.Open "select * from 档案1 where 姓名='" & Cells(roww, "a") & "'", _
        cn, adOpenKeyset, adLockOptimistic     '此处要求一定要设置引用
        rc.Update arb, arr
        rc.Close
    Next
    cn.Close
    Set cn = Nothing: Set rc = Nothing
    MsgBox "已存入数据库,用时 " & Timer - t & "秒"
End Sub

用这个代码，对修改后的数据操作，出现错误3021的提示？

爱歌学习

用的是此代码的原文件，一点没有改动过？

braverfang

太好了谢谢

Cary1018

不懂的人也从这里找到了方向，敬礼！！！！

tarfull

简直就是我的明灯.

爱歌学习

实例24：使用 ADO 在 Excel 中与 SQLSERVER 进行数据传输

一、从 SQLSERVER 查询到 Excel 中

Private Sub SQLToExcel()
    Dim SQL$
   
    '从系统的自动化对象表中申请ADO对象
    Set CNN = CreateObject("ADODB.Connection")
   
    '使用 OLE DB Provider 连接到 SQLSERVER
    CNN.Open "Provider=sqloledb;Server=服务器名;Database=数据库名;Integrated Security=SSPI;User ID=sa;Password=supervisor"
   
    SQL = "SELECT * FROM 表"
   
    '将查询结果放置于以 A2 为左上角的区域中
    [A2].CopyFromRecordset CNN.Execute(SQL)
   
    '断开连接，对象置空
    CNN.Close: Set CNN = Nothing
End Sub

二、将 Excel 中的数据添加进 SQLSERVER 中

Private Sub ExcelToSQL()

    '首先请添加引用：菜单“工具”－引用－Microsoft Activex Data Objects 2.x ，之后再使用下面的代码
    Dim CNN As New ADODB.Connection
    Dim RST As New ADODB.Recordset
    Dim i%, j%, SQL$
    
    CNN.Open "Provider=sqloledb;Server=服务器名;Database=数据库名;Integrated Security=SSPI;User ID=sa;Password=supervisor"
    SQL = "SELECT * FROM 表"
    RST.Open SQL, CNN, , adLockOptimistic
   
    '将要传入SQLSERVER的数据区域存入数组
    ARR = [A2:D10]
   
    '遍历行
    For i = 1 To UBound(ARR)
   
        RST.AddNew
       
        '遍历列
        For j = 1 To 4
            RST.Fields(j - 1).Value = ARR(i, j)
        Next
        RST.Update
    Next
    CNN.Close
End Sub

其中红色部分为可变化部分。

相关：

1. 论坛以前已有的很详细的解说：
http://club.excelhome.net/dispbbs.asp?boardid=2&replyid=608952&id=38047&page=1&skin=0&Star=1

2. 另一种连接字符串写法：

Cnn.Open "Driver={SQL Server};Server=服务器名;DataBase=数据库名;User ID=sa;Password=supervisor;AutoTranslate=False;"

在控制面板-管理工具-数据源(ODBC) 里面添加“系统DSN”－SQLSERVER

3. 提示“行集不支持反向提取”的解决办法：

http://club.excelhome.net/dispbbs.asp?boardid=2&replyid=422209&id=171989&page=1&skin=0&Star=1

[此贴子已经被作者于2007-2-26 17:24:51编辑过]

vegas

收藏，非常不错的资料，很全面，谢谢！[em17]

向您问好

很想一口气学完全贴，但还是没有实现计划，晕，下次专门抽出时间来学习爱歌老师的宝贴[em04]