Option Explicit
Sub 數據庫連接()
'告訴電腦，我們要有ado，引用ado
'創建連接對象
'給對象取名字
Dim con As ADODB.Connection '聲明對象變量
'創建對象變量並賦值
Set con = New ADODB.Connection
'建立數據庫的連接
'dim con as new adodb.connection
'con.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.Path & "\學生管理.accdb"
'MsgBox "連接成功"
With con
.Provider = "microsoft.ace.oledb.12.0"
.ConnectionString = ThisWorkbook.Path & "\學生管理.accdb"
.Open
End With
MsgBox "連接成功"
End Sub
Sub 插入記錄()
Dim con As ADODB.Connection '聲明對象變量
'創建對象變量並賦值
Set con = New ADODB.Connection
'建立數據庫的連接
With con
.Provider = "microsoft.ace.oledb.12.0"
.ConnectionString = ThisWorkbook.Path & "\學生管理.accdb"
.Open
End With
MsgBox "連接成功"
'insert into 表名（列1，列2）values（值1，值2，值3）
Dim sql As String
sql = "insert into 院系(院系編號,院系名,電話) values('A09','人文學院','9999')"
con.Execute (sql)
'釋放空間變量
con.Close '關閉連接
Set con = Nothing '釋放空間
End Sub
Sub 刪除記錄()
Dim con As New ADODB.Connection
con.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.Path & "\學生管理.accdb"
'Dim sql As String
'sql = "delete from 院系 where 院系編號=''"
Dim sql As String
'sql = "update 院系 set 電話='' where 系名=''"
Dim str As String
str = InputBox("輸入性別", "提示")
sql = "updata 學生 set 班級='2班' where 性別='" & str & " '"
con.Execute (sql)
End Sub
Sub 簡單查詢()
Dim con As New ADODB.Connection
con.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.Path & "\學生管理.accdb"
Dim sql As String
sql = "select * from 學生"
'獲取記錄集
Dim rs As New ADODB.Recordset
Set rs = con.Execute(sql)
'獲取字段名
Dim i As Integer
For i = 0 To rs.Fields.Count - 1
Cells(1, i + 1) = rs.Fields(i).Name
Next
'將記錄集rs的記錄返回到工作表中
Range("A2").CopyFromRecordset rs
rs.Close: Set rs = Nothing
con.Close: Set con = Nothing
End Sub