就差一点可以成功了，数据查询问题
Dim oraConn As New OleDbConnection()
oraConn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database4.accdb;Persist Security Info=True;Jet OLEDB:Database Password=winamw"
oraConn.Open()
Dim 姓名 As String = DataGridView1.CurrentRow.Cells(0).Value.ToString().Trim()
Dim queryString = "delete from 三分队 where 姓名 = '" & 姓名 & "' "
Dim adapter As OleDbDataAdapter = New OleDbDataAdapter(queryString, oraConn)
Dim mark As DataSet = New DataSet
adapter.Fill(mark, "mark")
MessageBox.Show("删除数据成功!")
删除成功后。DataGridView1没有进行刷新现有数据
[解决办法]
Dim oraConn As New OleDbConnection()
oraConn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database4.accdb;Persist Security Info=True;Jet OLEDB:Database Password=winamw"
oraConn.Open()
Dim 姓名 As String = DataGridView1.CurrentRow.Cells(0).Value.ToString().Trim()
Dim queryString = "delete from 三分队 where 姓名 = '" & 姓名 & "' "
Dim cmd As New OleDbCommand(queryString, oraConn)
cmd.ExecuteNoQuery()
[解决办法]
Dim oraConn As New OleDbConnection() oraConn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database4.accdb;Persist Security Info=True;Jet OLEDB:Database Password=winamw" oraConn.Open() Dim 姓名 As String = DataGridView1.CurrentRow.Cells(0).Value.ToString().Trim() Dim queryString = "delete from 三分队 where 姓名 = '" & 姓名 & "' " Dim adapter As OleDbDataAdapter = New OleDbDataAdapter(queryString, oraConn) Dim mark As DataSet = New DataSet adapter.Fill(mark, "mark") MessageBox.Show("删除数据成功!")'*****************重新绑定数据*********************** DataGridView1.DataSource=Nothing DataGridView1.DataSource=mark.Tables("mark") DataGridView1.DataBind()