从零开始学习SQL(图文教程)

任浪漫

真的非常不错！！对于VBA连接数据源问题一直不明白，一直没找到一篇系统的教程，这篇真的很不错，非常感谢！

335081548

把这一句换成，想要获取工作表名的工作簿完整路径加工作簿名和扩展名即可：
MyBook = ThisWorkbook.FullName'工作簿完整路径和工作簿名及扩展名

的风格123123

好，好！看看我能否学会点！

songzi2000

真的非常不错！！对于VBA连接数据源问题一直不明白，一直没找到一篇系统的教程，这篇真的很不错，非常感谢！

335081548

ADO在Excel插入数据的AddNew方法

Sub ADO往Excel中写数据的AddNew方法()
    Dim Cn, Rs, arr, i As Integer
    Dim PathStr As String, SQL As String
    Set Cn = CreateObject("ADODB.Connection")       '创建数据连接对象
    Set Rs = CreateObject("ADODB.Recordset")        '创建记录集对象
    PathStr = ThisWorkbook.FullName
    Select Case Application.Version * 1    '设置连接字符串,根据版本创建连接
    Case Is <= 11
        strConn = "Provider=Microsoft.Jet.Oledb.4.0;Extended Properties=excel 8.0;Data source=" & PathStr
    Case Is >= 12
        strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & PathStr & ";Extended Properties=""Excel 12.0;HDR=YES"";"""
    End Select
    SQL = "Select * From [Sheet1$]"
    Cn.Open strConn
    With Rs
        .Open SQL, Cn, 1, 3    '
        .AddNew     '添加一个新的记录

        '方法1：列字段名称法
        .Fields("编号") = Range("A" & Rows.Count).End(xlUp) + 1    '23   '编号
        .Fields("商品名称") = "洗衣机"   ',商品名称
        .Fields("单位") = "台"   '单位
        .Fields("数量") = 100   ',数量
        .Fields("单价") = 2500   ',单价
        .Fields("金额") = 250000   '金额

        '方法2：列字段索引法(从0开始)
        '        .Fields(0) = Range("A" & Rows.Count).End(xlUp) + 1 '23   '编号
        '        .Fields(1) = "洗衣机"   ',商品名称
        '        .Fields(2) = "台"   '单位
        '        .Fields(3) = 100   ',数量
        '        .Fields(4) = 2500   ',单价
        '        .Fields(5) = 250000   '金额
        .Update     '保存数据
        .Close          '关闭记录集
    End With
    Cn.Close            '关闭数据连接
    Set Rs = Nothing: Set Cn = Nothing
End Sub

EXCEL江湖

好贴，得学习!

的风格123123

好！顶！！！！学习中。。。。。。。。

ahh0511

向楼主致敬，楼主辛苦了，正需要这方面的资料！

涧中石

好东西，谢谢楼主的有心。

raku

收藏学习，谢谢分享