zoukankan      html  css  js  c++  java
  • 连接Access数据库

    Sub 连接数据库()
     '第一步:我们要用ADO 引用AD工具
     '第二步:创建连接对象
     '2-1: 给连接对象取名字,声明对象
     'Dim conn As ADODB.Connection '声明对象变量
    '2-2: 创建对象变量,并赋值
    'Set conn = New ADODB.Connection '创建对象变量
    '第三步: 建立数据库连接 连接的access数据库
    'conn.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.Path & "学生管理.accdb"
    '连接excel文件
    'conn.Open "provider=microsoft.ace.oledb.12.0;extended properties-excel 12.0;data source=" & ThisWorkbook.Path & "数据.xlsx"
    Dim conn As New ADODB.Connection
    With conn
      .Provider = "microsoft.ace.oledb.12.0"
      .ConnectionString = ThisWorkbook.Path & "学生管理.accdb"
      .Open
    End With
    MsgBox "连接成功"
    conn.Close
    End Sub

  • 相关阅读:
    uni_app系列
    并发编程
    VUE+DRF系列
    其实我是个诗人
    中医
    linux+docker
    Mysql数据库
    爱好
    AJAX
    Django
  • 原文地址:https://www.cnblogs.com/lyzifan/p/12519607.html
Copyright © 2011-2022 走看看