VB.NET访问ACCESS数据库的增加，修改，删除等部分过程

最新推荐文章于 2026-08-06 13:33:42 发布
转载最新推荐文章于 2026-08-06 13:33:42 发布 · 1.8k 阅读
收录于
VB.NET
本文介绍了一个使用VB.NET进行数据检索、增加、删除和修改操作的应用案例。通过具体的代码示例展示了如何利用DataSet、OleDbConnection及OleDbDataAdapter等组件与数据库交互，并实现了数据的动态展示。
'用到数据控件DataSet，OleDbConnection，OleDbDataAdapter 
'组合搜索 
Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOK.Click
            Dim str As String
            Dim type1 As String
            str = "select * from telecode where 1=1 "
            If Me.txName.Text <> "" Then
                str = str & " and name like '%" & Me.txName.Text & "%'"
            End If
            If Me.txDept.Text <> "" Then
                str = str & " and dept like '%" & Me.txDept.Text & "%'"
            End If
            If Me.txAddr.Text <> "" Then
                str = str & " and address like '%" & Me.txAddr.Text & "%'"
            End If
            If Me.txTele.Text <> "" Then
                str = str & " and (telephone like '%" & Me.txTele.Text & "%' or mobile like '%" & Me.txTele.Text & "%')"
            End If
            If Me.cbxType.SelectedItem <> "" Then
                type1 = Me.cbxType.SelectedIndex + 1
                str = str & " and type = '" & type1 & "'"
            End If
            OleDbConnection1.Open()
            Console.Write(str)
            OleDbDataAdapter1.SelectCommand.CommandText = str
            OleDbDataAdapter1.SelectCommand.ExecuteNonQuery()
            DataSet1.Clear()
            OleDbDataAdapter1.Fill(DataSet1)
            OleDbConnection1.Close()
            ' DataView1.Table = DataSet1.Tables(0) 
            '         showpostion() 
            'ComboBox1.DataSource = objds.Tables(0) 
            'ComboBox1.DisplayMember = objds.Tables(0).Columns(1).ToString 
            'Label1.Text = objds.Tables(0).Columns(1).ColumnName 
            Dim ds As DataSet
            ds = DataSet1
            If Not ds Is Nothing Then
                Me.DataGrid1.PreferredColumnWidth = Me.DataGrid1.Width / ds.Tables(0).Columns.Count
                Me.DataGrid1.DataSource = ds.Tables(0)
            Else
                MsgBox("没有符合要求的记录!", MsgBoxStyle.OKOnly, "提示")
                Me.DataGrid1.DataSource = Nothing
            End If
            '            LabAcc.Text = ds.Tables(0).Columns.Count 
        End Sub
'增加记录 
        Private Sub BtAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtAdd.Click
            If txName.Text = "" Or (txTele.Text = "" And txMobile.Text = "") Then
                MsgBox("请填充完成数据", MsgBoxStyle.Information, "提示")
                txTele.Focus()
                Exit Sub
            Else
                Dim sex1 As Integer
                Dim str, type1 As String
                If RadioBt1.Checked Then
                    sex1 = 0
                Else
                    sex1 = -1
                End If
                If Me.cbxType.SelectedItem <> "" Then
                    type1 = Me.cbxType.SelectedIndex + 1
                End If
                Str = "insert into telecode ( id,name,sex,dept,address,telephone,mobile,tnote,type ) values ( " & _
                         txId.Text & ", '" & txName.Text & "', " & sex1 & ", '" & _
                         txDept.Text & "', '" & txAddr.Text & "', '" & txTele.Text & "', '" & _
                         txMobile.Text & "', '" & txNote.Text & "', '" & type1 & "' )"
                OleDbConnection1.Open()
                Console.Write(Str)
                OleDbDataAdapter1.InsertCommand.CommandText = str
                OleDbDataAdapter1.InsertCommand.ExecuteNonQuery()
                DataSet1.Clear()
                OleDbDataAdapter1.Fill(DataSet1)
                OleDbConnection1.Close()
                MsgBox("添加成功")
                Dim ds As DataSet
                ds = DataSet1
                If Not ds Is Nothing Then
                    Me.DataGrid1.PreferredColumnWidth = Me.DataGrid1.Width / ds.Tables(0).Columns.Count
                    Me.DataGrid1.DataSource = ds.Tables(0)
                Else
                    MsgBox("没有符合要求的记录!", MsgBoxStyle.OKOnly, "提示")
                    Me.DataGrid1.DataSource = Nothing
                End If
            End If
        End Sub
'增加记录另一过程 
        Private Sub BtADD1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtADD1.Click
            'Close() 
            If txName.Text = "" Or (txTele.Text = "" And txMobile.Text = "") Then
                MsgBox("请填充完成数据", MsgBoxStyle.Information, "提示")
                txTele.Focus()
                Exit Sub
            Else
                Dim str As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:/lytelephone/iteleDB.mdb"
                Dim conn As OleDbConnection
                conn = New OleDbConnection(str)
                conn.Open()
                Dim strsql As String
                strsql = "select * from telecode where name='" & Trim$(txName.Text) & "'"
                Dim cmd As New OleDbCommand(strsql, conn)
                Dim dr As OleDbDataReader
                dr = cmd.ExecuteReader
                If (dr.Read) Then
                    MsgBox("已经有相同的名字，请修改")
                    txTele.Focus()
                    Exit Sub
                Else
                    dr.Close()
                    Dim strInsert As String
                    Dim sex1 As Integer
                    Dim type1 As String
                    If RadioBt1.Checked Then
                        sex1 = 0
                    Else
                        sex1 = -1
                    End If
                    If Me.cbxType.SelectedItem <> "" Then
                        type1 = Me.cbxType.SelectedIndex + 1
                    End If
                    strInsert = "insert into telecode ( id,name,sex,dept,address,telephone,mobile,tnote,type ) values ( " & _
                             txId.Text & ", '" & txName.Text & "', " & sex1 & ", '" & _
                             txDept.Text & "', '" & txAddr.Text & "', '" & txTele.Text & "', '" & _
                             txMobile.Text & "', '" & txNote.Text & "', '" & type1 & "' )"
                    Dim cmdInsert As OleDbCommand = New OleDbCommand(strInsert, conn)
                    cmdInsert.ExecuteNonQuery()                 '这里有问题 
                    MsgBox("添加成功")
                    strsql = "select * from telecode"
                    Dim cmdView As New OleDbCommand(strsql, conn)
                    cmdView.ExecuteNonQuery()
                    Dim da As New OleDbDataAdapter
                    da = New OleDbDataAdapter(strsql, conn)
                    Dim ds As New DataSet
                    da.Fill(ds)
                    DataGrid1.DataSource = ds.Tables(0)
                End If
            End If
        End Sub
        Private Sub BtDel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtDel.Click
            Dim str As String
            Dim type1 As String
            str = "1=1"
            If Me.txName.Text <> "" Then
                str = str & " and name = '" & Me.txName.Text & "'"
            End If
            If Me.txDept.Text <> "" Then
                str = str & " and dept = '" & Me.txDept.Text & "'"
            End If
            If Me.txAddr.Text <> "" Then
                str = str & " and address = '" & Me.txAddr.Text & "'"
            End If
            If Me.txTele.Text <> "" Then
                str = str & " and (telephone = '" & Me.txTele.Text & "' or mobile = '" & Me.txTele.Text & "')"
            End If
            If Me.cbxType.SelectedItem <> "" Then
                type1 = Me.cbxType.SelectedIndex + 1
                str = str & " and type = '" & type1 & "'"
            End If
            If str = "1=1" Then
                Exit Sub
            End If
            str = "delete * from telecode where " & str
            OleDbConnection1.Open()
            Console.Write(str)
            OleDbDataAdapter1.DeleteCommand.CommandText = str
            OleDbDataAdapter1.DeleteCommand.ExecuteNonQuery()
            DataSet1.Clear()
            OleDbDataAdapter1.Fill(DataSet1)
            OleDbConnection1.Close()
        End Sub
'修改 
        Private Sub BtModi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtModi.Click
            If txName.Text = "" Or txTele.Text = "" Then
                MsgBox("请填充完成数据", MsgBoxStyle.Information, "提示")
                txName.Focus()
                Exit Sub
            Else
                Dim str As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:/lytelephone/iteleDB.mdb"
                Dim conn As OleDbConnection
                conn = New OleDbConnection(str)
                conn.Open()
                Dim strsql As String
                strsql = "select * from telecode where name='" & Trim$(txName.Text) & "'"
                Dim cmd As New OleDbCommand(strsql, conn)
                Dim dr As OleDbDataReader
                dr = cmd.ExecuteReader
                If (dr.Read) Then
                    Dim r As MsgBoxResult
                    r = MsgBox("确定要修改此数据吗?", MsgBoxStyle.YesNo, "提示")
                    Select Case r
                        Case vbYes
                            dr.Close()
                            Dim strUpdate As String
                            Dim sex1 As Integer
                            Dim type1 As String
                            If RadioBt1.Checked Then
                                sex1 = 0 '注意access中boolean属性字段0(false) ||-1(True)，不然使用sql语句会出错 
                            Else
                                sex1 = -1
                            End If
                            If Me.cbxType.SelectedItem <> "" Then
                                type1 = Me.cbxType.SelectedIndex + 1
                            End If
                            strUpdate = "update telecode set telephone='" + Trim$(Me.txTele.Text) + "'" & _
                               ", mobile = '" + Trim$(Me.txMobile.Text) + "'" & _
                               ", address = '" + Trim$(Me.txAddr.Text) + "'" & _
                               ", tnote = '" + Trim$(Me.txNote.Text) + "'" & _
                               ", type = '" + type1 + "'" & _
                               " where name='" + Trim$(Me.txName.Text) + "'"
                            Dim cmdUpdate As OleDbCommand = New OleDbCommand(strUpdate, conn)
                            cmdUpdate.ExecuteNonQuery()     '老是这里提示错误 不明白之前要用 dr.Close() 
     
                            MsgBox("修改成功", , "提示")
                            strsql = "select * from telecode"
                            Dim cmdView As New OleDbCommand(strsql, conn)
                            cmdView.ExecuteNonQuery()
                            Dim da As New OleDbDataAdapter
                            da = New OleDbDataAdapter(strsql, conn)
                            Dim ds As New DataSet
                            da.Fill(ds)
                            DataGrid1.DataSource = ds.Tables(0)
                        Case vbNo
                            Exit Sub
                    End Select
                Else
                    MsgBox("没有找到此数据,请重新输入用户名", , "提示")
                    txName.Focus()
                    Exit Sub
                End If
            End If
        End Sub
'刷新表 
        Private Sub tabpage1_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabPage1.Click
            txName.Focus()
            Dim strsql As String = "select * from telecode"
            Dim str As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:/lytelephone/iteleDB.mdb"
            Dim conn As OleDbConnection
            conn = New OleDbConnection(str)
            conn.Open()
            Dim cmdView As New OleDbCommand(strsql, conn)
            cmdView.ExecuteNonQuery()
            Dim da As New OleDbDataAdapter
            da = New OleDbDataAdapter(strsql, conn)
            Dim ds As New DataSet
            da.Fill(ds)
            DataGrid1.DataSource = ds.Tables(0)
        End Sub
标签
#vb.net #access #数据库 #dataset #datagrid