前面聲明：

Imports System.Data

Imports System.Data.OleDb

――――――――――――――――

Private ds As DataSet = New DataSet

Private ds1 As DataSet = New DataSet

Private sqlStr As String

Private strcon As String = "Provider=SQLOLEDB.1;Data Source=(local);

????????Initial Catalog=數據庫名;User ID=sa;Password=sa"

Public DBcon As New OleDbConnection(strcon)

――――――――――――――――

Private Sub DBView()

DBcon.Open() sqlStr = "select * from 表"

Dim adt As New OleDbDataAdapter(sqlStr, DBcon)

ds.Clear()

adt.Fill(ds)

Me.DataGrid1.DataSource = ds.Tables(0)

DBcon.Close()

End Sub

――――――――――――――――

?

添加：

Try

?? Dim comid, comname, danwei, comtype As String

?

?? comid = Trim(Me.TextBox1.Text)

?? comname = Me.TextBox2.Text

?? danwei = Trim(Me.ComboBox1.SelectedItem)

?? comtype = Trim(Me.ComboBox2.SelectedItem)

?? DBcon.Open()

?? If comname = "" Then

?????? MsgBox("comname can't be Empty！", MsgBoxStyle.Critical, Me.Text)

?????? Return

?? End If

?? If danwei = "" Then

?????? MsgBox("danwei can't be Empty！", MsgBoxStyle.Critical, Me.Text)

?????? Return

?? End If

?? If comtype = "" Then

?????? MsgBox("comtype can't be Empty！", MsgBoxStyle.Critical, Me.Text)

?????? Return

?? End If

?

?? if Me.CheckBox1.Checked = False Then

??????? Dim sqlStr As String = "insert into TMMCom values ('" & Trim(comid) & "','" & comname & "','" & danwei & "','" & comtype & "',0)"

??????? Dim adt As New OleDbDataAdapter(sqlStr, DBcon)

??? ????ds.Clear()

??? ????adt.Fill(ds)

??????? DBcon.Close()

?? ?????DBView()

?? Else

??????? Dim sqlStr As String = "insert into TMMCom values ('" & Trim(comid) & "','" & comname & "','" & danwei & "','" & comtype & "',1)"

? ??????Dim adt As New OleDbDataAdapter(sqlStr, DBcon)

????????ds.Clear()

????????adt.Fill(ds)

??????? DBcon.Close()

????????DBView()

??? End If

?Catch ex As Exception

???? MsgBox("comid can't be Repeat！", MsgBoxStyle.Critical, Me.Text)

End Try

?

修改：

Dim comid, comname, danwei, comtype As String

comid = Trim(Me.TextBox1.Text)

??? comname = Me.TextBox2.Text

??? danwei = Trim(Me.ComboBox1.SelectedItem)

??? comtype = Trim(Me.ComboBox2.SelectedItem)

If comname = "" Then

??? MsgBox("comname can't be Empty！", MsgBoxStyle.Critical, Me.Text)

Return

End if

If danwei = "" Then

??? MsgBox("danwei can't be Empty！", MsgBoxStyle.Critical, Me.Text)

??? Return

End if

If comtype = "" Then

??? MsgBox("comtype can't be Empty！", MsgBoxStyle.Critical, Me.Text)

??? Return

End if

?

DBcon.Open()

??? Dim sqlStr As String = "update TMMCom set cComName='" & comname & "',cDanwei='" & danwei & "',cComType='" & comtype & "'where iComID ='" & comid & "'"

?? Dim adt As New OleDbDataAdapter(sqlStr, DBcon)

??? ds.Clear()

?? ?adt.Fill(ds)

??? DBcon.Close()

??? DBView()

?

刪除：

Dim comid As Int32

comid = CInt(Me.TextBox1.Text)

?

DBcon.Open()

Dim sqlStr As String = "update TMMCom set cComName='',cDanwei='',cComType=''where iComID =" & comid & ""

Dim adt As New OleDbDataAdapter(sqlStr, DBcon)

ds.Clear()

adt.Fill(ds)

DBcon.Close()

DBView()

轉載于:https://www.cnblogs.com/sishierfei/archive/2009/11/25/1610382.html

總結

以上是生活随笔為你收集整理的添加，修改，删除的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。