零基础学习access（第一天）数据插入

Sub 连接数据库()
'引用

'1、创建连接对象

Dim con As New ADODB.Connection

'2、连接数据库
With con
    .Provider = "microsoft.ace.oledb.12.0"
    .ConnectionString = ThisWorkbook.Path & "\学生管理.accdb "
    .Open

End With

'3、插入数据  insert into 表名（列1，列2，）values(内容1，内容2)
'3-1 书写SQL命令
Dim sql As String

sql = "insert into 院系 (院系编号,院系名,电话)values('A08','物理学院','7788')"
'3-2 执行命令
con.Execute (sql)

'4、释放空间
con.Close
Set con = Nothing

End Sub