vb数据库增，删，改，查简单实现

最新推荐文章于 2025-07-07 15:16:36 发布

gyzsky

最新推荐文章于 2025-07-07 15:16:36 发布

阅读量4.4k

点赞数 3

CC 4.0 BY-SA版权

分类专栏： VB数据库文章标签： VB

本文链接：https://blog.youkuaiyun.com/hws1058648831a/article/details/8737655

该篇博客介绍了如何使用VB进行数据库的基本操作，包括删除（Cmd_Delete_Click）、退出程序（Cmd_Exit_Click）、查询（Cmd_Find_Click）、第一条信息（Cmd_First_Click）、增加（Cmd_Insert_Click）、最后一条信息（Cmd_Last_Click）、下一条（Cmd_Next_Click）、前一条（Cmd_Prev_Click）和更新（Cmd_Update_Click）等操作。通过ADODB.Connection和ADODB.Recordset对象实现对数据库的连接和数据交互。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Dim Con As New ADODB.Connection '定义数据库连接对象
Dim Rs As New ADODB.Recordset '定义数据库记录集对象

Private Sub Cmd_Delete_Click() '删除一条记录
    Rs.Delete
    If Not Rs.BOF Then
        Rs.MoveNext
    Else
        Rs.MovePrevious
    End If
    Call ShowInfo
End Sub

Private Sub Cmd_Exit_Click() '退出程序，关闭记录集对象Rs,关闭连接对象Con
    Rs.Close
    Con.Close
    End
End Sub

Private Sub Cmd_Find_Click() '查询产品信息
    Dim Str As String
    Dim pname As String
    pname = Text_PN.Text
    If Text_PN.Text <> "" And Text_PriceDown.Text = "" And Text_PriceUp.Text = "" Then
        Str = "Select * from producted Where pName='"