欧美性猛交XXXX免费看蜜桃,成人网18免费韩国,亚洲国产成人精品区综合,欧美日韩一区二区三区高清不卡,亚洲综合一区二区精品久久

Option Explicit
Sub 數據庫連接()
'告訴電腦，我們要有ado，引用ado
'創(chuàng )建連接對象
'給對象取名字
Dim con As ADODB.Connection '聲明對象變量
'創(chuàng )建對象變量并賦值
Set con = New ADODB.Connection
'建立數據庫的連接
'dim con as new adodb.connection
'con.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.Path & "\學(xué)生管理.accdb"
'MsgBox "連接成功"
With con
.Provider = "microsoft.ace.oledb.12.0"
.ConnectionString = ThisWorkbook.Path & "\學(xué)生管理.accdb"
.Open

End With
MsgBox "連接成功"
End Sub
Sub 插入記錄()
Dim con As ADODB.Connection '聲明對象變量
'創(chuàng )建對象變量并賦值
Set con = New ADODB.Connection
'建立數據庫的連接
With con
.Provider = "microsoft.ace.oledb.12.0"
.ConnectionString = ThisWorkbook.Path & "\學(xué)生管理.accdb"
.Open

End With
MsgBox "連接成功"

'insert into 表名（列1，列2）values（值1，值2，值3）
Dim sql As String
sql = "insert into 院系(院系編號,院系名,電話(huà)) values('A09','人文學(xué)院','9999')"
con.Execute (sql)
'釋放空間變量
con.Close '關(guān)閉連接
Set con = Nothing '釋放空間

End Sub
Sub 刪除記錄()
Dim con As New ADODB.Connection
con.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.Path & "\學(xué)生管理.accdb"
'Dim sql As String
'sql = "delete from 院系 where 院系編號=''"
Dim sql As String
'sql = "update 院系 set 電話(huà)='' where 系名=''"
Dim str As String
str = InputBox("輸入性別", "提示")
sql = "updata 學(xué)生 set 班級='2班' where 性別='" & str & " '"

con.Execute (sql)

End Sub
Sub 簡(jiǎn)單查詢(xún)()
Dim con As New ADODB.Connection
con.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.Path & "\學(xué)生管理.accdb"

Dim sql As String
sql = "select * from 學(xué)生"
'獲取記錄集
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