vb操作mysql之数据删除与增加

 增加记录是件很简单的事情,其实例代码如下:
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.Open ConnStr
rs.open "update set name='王三'"
rs.cose.
conn.cose
set rs=nothing
set conn=nothin

删除记录也不困难
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
rs.Open "select name,pw,userlevel from user where name='王三 ' ", conn, adOpenStatic, adLockOptimistic  
rs.delete
rs.close
conn.close
set  rs=nothing
set conn=nothing

对数据库的操作最好做成函数,可以使减少代码冗余, 提高执行效率,也方便查看代码本身.
注意,对数据库的操作完成后,最好将其释放,否则因为过多的打开与关闭库,可能会在conn.close的情况下再去rs.open.

Visual Basic 是一种支持数据库操作的编程语言,下面将介绍如何使用 VB 操作 MySQL 数据库进行增删改查。 1. 首先,我们需要引用 `MySQL.Data` 命名空间,以便在 VB 中使用 MySQL 数据库。在项目中,右键点击“引用”,选择“添加引用”,然后在搜索框中输入 “MySQL.Data”,勾选对应的引用并点击确定。 2. 连接到 MySQL 数据库。使用 `MySqlConnection` 类建立与数据库的连接,需指定连接字符串。连接字符串包括服务器地址、数据库名称、用户名和密码等信息。 Dim connectionString as String = "server=localhost;database=myDatabase;uid=myUser;pwd=myPassword;" Dim conn as MySqlConnection = new MySqlConnection(connectionString) Try conn.Open() Catch ex as Exception MsgBox("连接数据库失败:" & ex.Message) End Try 3. 插入数据。使用 `MySqlCommand` 类执行插入语句,需指定要插入的表名以及插入的字段和对应的值。 Dim sql as String = "INSERT INTO myTable (name, age) VALUES ('John', 25)" Dim cmd as MySqlCommand = new MySqlCommand(sql, conn) Try Dim rowsAffected As Integer = cmd.ExecuteNonQuery() If rowsAffected > 0 Then MsgBox("插入成功") Else MsgBox("插入失败") End If Catch ex as Exception MsgBox("插入数据失败:" & ex.Message) End Try 4. 更新数据。使用 `MySqlCommand` 类执行更新语句,需指定要更新的表名、更新的字段和对应的值以及更新条件。 Dim sql as String = "UPDATE myTable SET name = 'John Smith' WHERE id = 1" Dim cmd as MySqlCommand = new MySqlCommand(sql, conn) Try Dim rowsAffected As Integer = cmd.ExecuteNonQuery() If rowsAffected > 0 Then MsgBox("更新成功") Else MsgBox("更新失败") End If Catch ex as Exception MsgBox("更新数据失败:" & ex.Message) End Try 5. 删除数据。使用 `MySqlCommand` 类执行删除语句,需指定要删除的表名和删除条件。 Dim sql as String = "DELETE FROM myTable WHERE id = 1" Dim cmd as MySqlCommand = new MySqlCommand(sql, conn) Try Dim rowsAffected As Integer = cmd.ExecuteNonQuery() If rowsAffected > 0 Then MsgBox("删除成功") Else MsgBox("删除失败") End If Catch ex as Exception MsgBox("删除数据失败:" & ex.Message) End Try 6. 查询数据。使用 `MySqlCommand` 类执行查询语句,需指定要查询的表名、查询的字段以及查询条件。通过 `MySqlDataReader` 类可以获取查询结果,然后对结果进行处理。 Dim sql as String = "SELECT name, age FROM myTable WHERE id = 1" Dim cmd as MySqlCommand = new MySqlCommand(sql, conn) Try Dim reader as MySqlDataReader = cmd.ExecuteReader() If reader.Read() Then Dim name As String = reader.GetString("name") Dim age As Integer = reader.GetInt32("age") MsgBox("姓名:" & name & ",年龄:" & age) Else MsgBox("未找到相关数据") End If reader.Close() Catch ex as Exception MsgBox("查询数据失败:" & ex.Message) End Try 最后需要关闭数据库连接。 conn.Close()
评论 2
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

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

余额充值