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

'***********************************************************

'刪除函數

'************************************************************

Private Sub Delete_Click()
'聲明數據庫連接對象

Dim conn As New ADODB.Connection

conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DB.mdb;Persist Security Info=False"
'打開(kāi)數據庫連接

conn.Open
'執行刪除sql語(yǔ)句

conn.Execute "Delete from Users where UserName='insert' or UserName='update'"
'關(guān)閉數據庫并釋放數據庫對象

conn.Close
Set conn = Nothing
End Sub
 '***********************************************************

'添加函數

'************************************************************

Private Sub InsertButton_Click()
'聲明數據庫連接對象

Dim conn As New ADODB.Connection

conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DB.mdb;Persist Security Info=False"
'打開(kāi)數據庫連接

conn.Open
'執行添加sql語(yǔ)句

conn.Execute "Insert into Users (UserName,UserPassword) values ('insert','test')"
'關(guān)閉數據庫并釋放數據庫對象

conn.Close
Set conn = Nothing

End Sub
'***********************************************************

'讀取函數

'************************************************************

Private Sub SelectButton_Click()
'聲明數據庫連接對象和記錄集對象

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
'指定連接字符串

conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DB.mdb;Persist Security Info=False"
'打開(kāi)數據庫連接

conn.Open

'執行查詢(xún)sql語(yǔ)句

rs.Open "Select * from Users", conn

'讀取記錄集內容

While Not rs.EOF
'顯示記錄

Print rs("UserId"), rs("UserName"), rs("UserPassword")
rs.MoveNext
Wend

'關(guān)閉記錄集并釋放記錄集對象

rs.Close
Set rs = Nothing
'關(guān)閉數據庫并釋放數據庫對象

conn.Close
Set conn = Nothing

End Sub
 '***********************************************************

'更新函數

'************************************************************

Private Sub Update_Click()
'聲明數據庫連接對象

Dim conn As New ADODB.Connection

conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DB.mdb;Persist Security Info=False"
'打開(kāi)數據庫連接

conn.Open
'執行更新sql語(yǔ)句

conn.Execute "Update Users set UserName='update' where UserName='insert'"
'關(guān)閉數據庫并釋放數據庫對象

conn.Close
Set conn = Nothing

End Sub