vb 6.0資料庫作業碼例子

'***********************************************************
'刪除函數
'************************************************************
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"
'開啟資料庫連接
conn.Open
'執行刪除sql語句
conn.Execute "Delete from Users where UserName='insert' or UserName='update'"
'關閉資料庫並釋放資料庫物件
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"
'開啟資料庫連接
conn.Open
'執行添加sql語句
conn.Execute "Insert into Users (UserName,UserPassword) values ('insert','test')"
'關閉資料庫並釋放資料庫物件
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"
'開啟資料庫連接
conn.Open

'執行查詢sql語句
rs.Open "Select * from Users", conn

'讀取記錄集內容
While Not rs.EOF
'顯示記錄
Print rs("UserId"), rs("UserName"), rs("UserPassword")
rs.MoveNext
Wend

'關閉記錄集並釋放記錄集對象
rs.Close
Set rs = Nothing
'關閉資料庫並釋放資料庫物件
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"
'開啟資料庫連接
conn.Open
'執行更新sql語句
conn.Execute "Update Users set UserName='update' where UserName='insert'"
'關閉資料庫並釋放資料庫物件
conn.Close
Set conn = Nothing

End Sub