码迷,mamicode.com
首页 > 数据库 > 详细

连接Access数据库

时间:2020-03-18 20:17:15      阅读:78      评论:0      收藏:0      [点我收藏+]

标签:with   ring   声明   对象   rop   amp   color   ESS   bsp   

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

连接Access数据库

标签:with   ring   声明   对象   rop   amp   color   ESS   bsp   

原文地址:https://www.cnblogs.com/lyzifan/p/12519607.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!