VBA学习笔记，操作access数据库 连接数据库，插入

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

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

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

'也可以把上面的2步合成一步：dim con as new adodb.connection
With con
    .Provider = "microsoft.ace.oledb.12.0;"
    .ConnectionString = ThisWorkbook.Path & "\学生管理.accdb"
    .Open

End With
'第四步 ，插入记录 insert into  表明（字段1，字段2，、、、、） values（值1 ，值，，，，）

'4.1，写好SQL命令
Dim sql As String
sql = "insert into  院系（系号，系名，电话） values（'a07','人文学院'，‘999’）"
'4.2执行SQL命令

con.Execute (sql)
'释放变量空间
con.Close '关闭连接
Set con = Nothing '释放变量空间

End Sub