vb 6.0数据库操作代码例子

转载于 2008-04-28 08:26:00 发布 · 364 阅读

·

0

·

本内容遵循CC 4.0 BY-SA版权协议

原文链接：http://www.cnblogs.com/xhan/archive/2008/04/28/1173831.html

标签

#数据库

本文档提供了使用VBA在Access数据库中进行增删改查操作的详细代码示例，包括连接数据库、执行SQL语句等关键步骤，适用于希望在VBA环境中掌握数据库操作技能的开发者。

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

'删除函数

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

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

转载于:https://www.cnblogs.com/xhan/archive/2008/04/28/1173831.html

评论

被折叠的条评论为什么被折叠?

到【灌水乐园】发言

查看更多评论

添加红包

成就一亿技术人!

hope_wisdom

发出的红包

实付元

使用余额支付

点击重新获取

扫码支付

钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。