精华内容
下载资源
问答
  • Excel VBA与数据库(Access)整合笔记
  • access vba数据库开发

    2018-09-29 20:40:04
    介绍详细,可以直接用于开发vbaaccess应用。
  • 建立一个DataBaseCmd,封装Access,继承IAccess的接口using System;using System.Collections.Generic;using System.Linq;using System.Text;using System.Data.OleDb;u[作者:iamlaosong 网络应用程序一般有两种...

    [1.建立一个DataBaseCmd,封装Access,继承IAccess的接口using System;using System.Collections.Generic;using System.Linq;using System.Text;using System.Data.OleDb;u

    [作者:iamlaosong    网络应用程序一般有两种结构形式,就是所谓的C/S结构和B/S结构,通过Excel和数据库的配合,可以实现简单C/S结构的应用程序,客户端只要安装数据库客

    1、将access中数据导入excel

    Public Sub ImportData()

    Dim mydata As String, mytable As String, SQL As String

    Dim cnn As ADODB.Connection

    Dim rs As ADODB.Recordset

    ActiveSheet.Cells.Clear

    mydata = ThisWorkbook.Path & "\成绩管理.mdb" '指定数据库

    mytable = "考试成绩" '指定数据表

    '建立与数据库的连接

    Set cnn = New ADODB.Connection

    With cnn

    .Provider = "microsoft.jet.oledb.4.0"

    .Open mydata

    End With

    SQL = "select 班级,avg(数学) as 数学平均,avg(语文) as 语文平均," _

    & "avg(物理) as 物理平均,avg(化学) as 化学平均,avg(英语) as 英语平均, " _

    & "avg(体育) as 体育平均,avg(总分) as 总分平均 " _

    & "from " & mytable & " group by 班级"

    Set rs = New ADODB.Recordset

    rs.Open SQL, cnn, adOpenKeyset, adLockOptimistic

    '复制字段名

    For i = 1 To rs.Fields.Count

    Cells(1, i) = rs.Fields(i - 1).Name

    Next i

    '复制全部数据

    Range("A2").CopyFromRecordset rs

    rs.Close

    cnn.Close

    Set rs = Nothing

    Set cnn = Nothing

    End Sub

    2、将excel数据导入access

    Sub 把Excel数据插入数据库中()

    '*******************************************

    '时间:2010-06-28

    '作者:bengdeng

    '功能:把当前工作表的数据增加到在程序文件同一目录下进销存表数据库中

    '注意:要在工具/引用中引用microsoft activex date objects x.x

    ' 其中x.x为版本号,可能会因为你安装的office的版本不同而不同,本例引用了2.5版

    '发布:http://www.excelba.com

    '*******************************************

    Dim conn As ADODB.Connection

    Dim WN As String

    Dim TableName As String

    Dim sSql As String

    Dim tStr As String

    '数据库名,请自行修改,路径与当前工作簿在同一目录

    WN = "进销存表.mdb"

    '数据库的表名与当前工作表名一致

    TableName = ActiveSheet.Name

    Set conn = New ADODB.Connection

    conn.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0;" & _

    "Extended Properties=Excel 8.0;" & _

    "Data Source=" & ThisWorkbook.Path & "\" & ActiveWorkbook.Name

    conn.Open

    If conn.State = adStateOpen Then

    sSql = "Insert Into [;DataBase=" & ActiveWorkbook.Path & "\" & WN & "]." & TableName & " Select * From [" & ActiveSheet.Name & "$]"

    conn.Execute sSql

    MsgBox "成功把数据插入到“" & TableName & "”中!", , "http://excelba.com"

    conn.Close

    End If

    Set conn = Nothing

    End Sub[导入方式有很多,思路有两种:1、用户直接打开本地Excel文件,通过程序直接导入Access数据库;2、用户打开本地Excel文件,通过程序上传至固定文件夹,然后通过程序将数据导

    展开全文
  • Excel VBA与数据库(Access)整合笔记,通过实例中的代码解析式的教学,读者不仅能够学会VBA,更能快速应用实例内容,在最短的时间内解决棘手的办公问题。
  • Excel VBA与数据库Access整合笔记,Visual Basic 的应用程序版(VBA)是Microsoft 公司长期追求的目标,使可编程应用软件得到完美的实现,它作为一种通用的宏语言可被所有的Microsoft 可编程应用软件所共享。
  • VBA+ACCESS链接代码

    2013-04-13 18:26:30
    VBA+ACCESS链接代码, 先定义几个变量; Dim mydata As String, mytable As String Dim SQL As String Dim Designern As ADODB.Connection Dim rs As ADODB.Recordset
  • access VBA-2

    2019-01-04 17:09:20
    access VBA程序设计PPT
  • VBA-access与Excel在局域网里面共享使用教程.doc
  • access 2007 VBA宝典

    2019-01-20 17:06:43
    最后介绍了更为高级的主题,包括VB 6.0、Access加载项、Visual Studio 2005共享加载项、使用XML实现自定义Office 2007功能区,以及SQL Server数据库的交互等。适合Office的中高级用户以及希望学习Access VBA的人员...
  • 【例1】使用Connection对象,从数据库test.accdb的students表查询所有数据并存放到Sheet1表中。 Sub test()  Dim cnn, rst  Set cnn = CreateObject("ADODB.Connection") ... Set rst = CreateObject(&...

    【例1】使用Connection对象,从数据库test.accdb的students表查询所有数据并存放到Sheet1表中。

    Sub test()

        Dim cnn, rst

        Set cnn = CreateObject("ADODB.Connection")

        Set rst = CreateObject("ADODB.Recordset")

        Dim conStr$, sqlStr$

        conStr = "provider=Microsoft.ace.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\test.accdb;"

        cnn.Open conStr

        sqlStr = "select * from students"

        Worksheets("Sheet1").[A2].CopyFromRecordset cnn.Execute(sqlStr)

        MsgBox "操作完成"

        cnn.Close

    End Sub

    操作结果如下:

    【例2】使用RecordSet对象,从数据库test.accdb的students表查询所有数据并存放到Sheet1表中。

     

    Sub test()

        Dim cnn, rst

        Set cnn = CreateObject("ADODB.Connection")

        Set rst = CreateObject("ADODB.Recordset")

        Dim conStr$, sqlStr$

       

        conStr = "provider=Microsoft.ace.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\test.accdb;"

        cnn.Open conStr

       

        sqlStr = "select * from students"

        rst.Open sqlStr, cnn

       

        Worksheets("Sheet1").[A2].CopyFromRecordset rst

      

        rst.Close

        cnn.Close

        Set rst = Nothing

        Set cnn = Nothing

    End Sub

    注:数据库及表均跟例1相同。

    将读取的数据存储到数组

    数据库记录如下:

    读取结果如下:

     

    Sub test()

        Dim cnn, rst

        Set cnn = CreateObject("ADODB.Connection")

        Set rst = CreateObject("ADODB.Recordset")

        Dim conStr$, sqlStr$

        Dim arr(), title()

       

        conStr = "provider=Microsoft.ace.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\test.accdb;"

        cnn.Open conStr

       

        sqlStr = "select * from students"

        rst.Open sqlStr, cnn, adopenkeyset, adLockOptimistic

    title = Array("ID", "sName", "sSex", "sAddress")    '数据库中需要提取内容的字段(部分或者全部)

    rst.Filter = "sAddress <>'武汉'"    '过滤住址为武汉的记录

        Rem 第二个参数设置为adbookmarkfirst表示从第1行开始,返回数组的第1个下标标识字段,第2个下标表示记录编号

        arr = rst.getrows(adgetrowsrest, adbookmarkfirst, title)

        Worksheets("Sheet1").[A1].Resize(UBound(arr, 2) + 1, UBound(arr, 1) + 1) = Application.WorksheetFunction.Transpose(arr)

       

        rst.Close

        cnn.Close

        Set rst = Nothing

        Set cnn = Nothing

    End Sub

     

    注:getrows的第三个参数为需要读取的字段。第二个字段可以取值如下

    常量

    含义

    adBookmarkCurrent

    0

    从当前记录开始

    adBookmarkFirst

    1

    从第1条记录开始

    adBookmarkLast

    2

    从最后一条记录开始

    展开全文
  • VBA+Access事务查询

    2013-09-17 20:13:36
    VBA+Access事务查询,实际代码
  • VBA操作ACCESS

    2020-09-02 20:58:45
    Option Compare Database Option Explicit Sub Open_Ado_RS_Recordset() Dim rs As ADODB.Recordset, kfml, kfrq Set rs = New ADODB.Recordset rs.ActiveConnection = CurrentProject.Connection ...
    Option Compare Database
    Option Explicit
    
    Sub Open_Ado_RS_Recordset()
        Dim rs As ADODB.Recordset, kfml, kfrq
        Set rs = New ADODB.Recordset
        
        rs.ActiveConnection = CurrentProject.Connection
        rs.CursorType = adOpenKeyset
        rs.LockType = adLockOptimistic
        
        rs.Open "select * from 开发;"
            
        Do While Not rs.EOF
        
            If Not IsNull(rs!开发日期) Then
                 'Debug.Print rs!Id & vbTab & rs!开发目录 & vbTab & rs!开发日期
            Else
                kfml = rs!开发目录
                If Mid(kfml, 1, 1) = "V" Then
                    rs!开发日期 = DateSerial(Mid(kfml, 2, 4), Mid(kfml, 6, 2), Mid(kfml, 8, 2))
                End If
            End If
            rs.MoveNext
        Loop
            
        rs.Close
        Set rs = Nothing
    End Sub
    
    Sub test()
        Dim conn As ADODB.Connection
        Set conn = New ADODB.Connection
        
        conn.Open CurrentProject.Connection
        Debug.Print conn.Provider
        
        conn.Close
        Set conn = Nothing
    End Sub
    
    
    Sub Open_Ado_Recordset()
        Dim rs As ADODB.Recordset
        Set rs = New ADODB.Recordset
        rs.Open "select * from 开发;", CurrentProject.Connection
        
        Debug.Print rs.GetString
        
        rs.Close
        Set rs = Nothing
    End Sub
    

     

    展开全文
  • Sub 连接数据库() '第一步,引用ADO 工具,工具->引用—>microsoft ActiveX Data Objects 6.1 Library '第二步,创建连接对象 '1 、声明连接对象的名字(或者给连接对象叫取变量名) Dim con As ADODB....

    Sub 连接数据库()
    '第一步,引用ADO 工具,工具->引用—>microsoft ActiveX Data Objects 6.1 Library


    '第二步,创建连接对象
    '1 、声明连接对象的名字(或者给连接对象叫取变量名)

    Dim con As ADODB.Connection
    '2、创建对象变量并赋值
    Set con = New ADODB.Connection
    '第三步,建立数据库的连接


    With con
        .Provider = "microsoft.ace.oledb.12.0;"
        .ConnectionString = ThisWorkbook.Path & "\学生管理.accdb"
        .Open

    End With

    MsgBox "成功"


    End Sub

    展开全文
  • excelvba操作access实例

    热门讨论 2010-01-20 09:40:42
    通过excelvba编写代码对access数据库进行插入、修改和删除
  • access实现登录功能自动关闭access主界面,只显示需要显示的窗体。
  • VBA+Excel+Access.rar

    2021-03-19 17:13:31
    简述:此程序由VBA编写而成,采用Excel作为客户端,Access作为数据库(存储数据以及图片路径),实现对数据以及图片的增删改查。 此程序诞生原因:解决多部门之间信息收集困难且不断更新的问题。通过将数据库共享,...
  • 作者:Luke Chung原文连接:Microsoft Access versus Microsoft Excel for Data Analysis and Reporting在Excel与Access之间抉择Microsoft Office的高级用户经常问我们,为什么要使用Access?什么时候应该使用Access...
  • VBA创建数据库数据表

    2018-08-04 10:28:12
    用代码实现access数据库的创建,以及在数据库中添加数据表和字段
  • Microsoft Access VBA中的回调函数 版本1.2.0 (c)Gustav Brock,仙人掌数据ApS,CPH Microsoft Access鲜为人知的功能 回调函数是Microsoft Access中的隐藏元素。 有了这些,您就可以完全从代码中动态填充组合框或...
  • VBA访问access数据库实例

    万次阅读 2016-08-18 16:39:51
    最近,同事要用一个excel文件导出每天邮件的信息,邮件基本信息都存在了access数据表中了,要实现这个功能有好几种方式,例如写一个qty文件,而我直接用了excel自带的VBA功能,写了一个宏,根据输入的日期直接调用,...
  • 1.VBAACCESS数据库读取数据并写入到EXCEL中 2.在EXCEL中从一个Sheet按条件读取数据并存入另一个Sheet中 3.将ECXEL中的数据存入ACCESS中的方法及源代码。
  • 该资源包括ACCESS进销存(已经设置好了的表、查询、窗体、报表、宏、模块)
  • ACCESS 使用VBA代码示范如何保存图片并显示。
  • access VBA-1

    2019-01-04 17:07:48
    Access VBA 程序设计··
  • Access VBA活用范例大辞典范例源文件,原光盘拷坝打包提供下载。
  • Excel VBA Sql 操作Access数据库

    千次阅读 热门讨论 2021-03-13 10:28:13
    主要介绍Excel与Access数据库的互连,及sql语句中的增、删、改的语法构造
  • Excel VBA读取 ACCESS 数据 连接

    万次阅读 2018-09-26 17:34:25
    Excel VBA读取 ACCESS 数据 连接 Sub access_test() Dim CONN As Object Dim RST As Object Dim SQL As String Sheets(&quot;Sheet1&quot;).Cells.Clear Set CONN = CreateObject(&quot;adodb....
  • 非常详尽的介绍了利用Excel的VBA程序访问数据库的各种方法。
  • AccessVBA

    千次阅读 2011-07-09 15:05:40
    "C:\Program Files\Microsoft offie\OFFICE11\msaccess.exe" "you_dirctory"\youDB /excl /x your_mirco_name便可以自动导入数据了。 2 第二个问题: 访问access数据库获取数据: 打开数据库: DIM DBS as DAO....

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 7,003
精华内容 2,801
关键字:

vba与access