zoukankan      html  css  js  c++  java
  • 20161208xlVBA工作表数据导入Access

    Sub InsertToDataBase()
    
        Dim DataPath As String
        Dim SQL As String
        Const DataName As String = "yunying.mdb"
        Const TableName As String = "关键词效果分析"
    
        DataPath = ThisWorkbook.Path & "" & DataName
    
        Dim Rng As Range
        Dim Arr As Variant
        Dim EndRow As Long
        Dim Fileds As String
        Dim Values As String
        
        With ThisWorkbook.Worksheets(1)
            EndRow = .Cells(.Cells.Rows.Count, 1).End(xlUp).Row
            Set Rng = .Range("A1:R" & EndRow)
            Arr = Rng.Value
    
            For i = 2 To Rng.Rows.Count
                Fileds = ""
                Values = ""
                For j = 1 To 6
                    Fileds = Fileds & Arr(1, j) & ","
                    Values = Values & "'" & Arr(i, j) & "'," '数值转为文本
                Next j
    
                For j = 7 To Rng.Columns.Count
                    Fileds = Fileds & Arr(1, j) & ","
                    Values = Values & Arr(i, j) & ","
                Next j
    
                Fileds = Left(Fileds, Len(Fileds) - 1)
                Values = Left(Values, Len(Values) - 1)
    
                SQL = "INSERT INTO " & TableName & " (" & Fileds & ") VALUES(" & Values & ")"
    
                Debug.Print SQL
                CnnRunSQL DataPath, SQL
    
                'If i = 2 Then Exit Sub
            Next i
        End With
        Set Rng = Nothing
    End Sub
    Sub CnnRunSQL(ByVal DataPath As String, ByVal SQL As String)
    '对象变量声明
        Dim CNN As Object
        Dim RS As Object
        '数据库引擎——Excel作为数据源
        Const DATA_ENGINE As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source="
        '创建ADO Connection 连接器 实例
        Set CNN = CreateObject("ADODB.Connection")
        ' On Error Resume Next
        '创建 ADO RecordSet  记录集 实例
        'Set RS = CreateObject("ADODB.RecordSet")
        '连接数据源
        CNN.Open DATA_ENGINE & DataPath
        '执行查询 返回记录集
        
         CNN.Execute (SQL)
        'RS.Open SQL, CNN, 1, 1
        '关闭记录集
        'RS.Close
        '关闭连接器
        CNN.Close
        '释放对象
        Set RS = Nothing
        Set CNN = Nothing
    End Sub
    

      

  • 相关阅读:
    php之面向对象(2)
    PHP ON 阿里云的环境配置攻略
    InitPHP框架搭建高可用WEB应用
    PHP移动互联网开发笔记(6)——MySQL数据库基础回顾[1]
    5 个不用 Bootstrap 的理由
    http中get与post的区别
    django的CSRF保护机制
    博客园项目开发中的难点
    centos7.5静态网页基于nginx建站(python3.6 mysql5.7 nginx安装以及配置)
    python3面向对象常用特性知识点
  • 原文地址:https://www.cnblogs.com/nextseven/p/7133808.html
Copyright © 2011-2022 走看看