数据表:
===================================================================================================================
Imports System.Data.OleDb
Public Class Form1
Dim conn As OleDbConnection = New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=d:\student.mdb;")
Dim cmd_1, cmd_2 As OleDbCommand
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim dlg1 As Dialog1 = New Dialog1
dlg1.ShowDialog()
dlg1.Dispose()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim dlg2 As Dialog2 = New Dialog2
dlg2.ShowDialog()
dlg2.Dispose()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim dlg3 As Dialog3 = New Dialog3
dlg3.ShowDialog()
dlg3.Dispose()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Try
Dim cmdStr As String = "delete from student where 学号= " & DataGridView1.SelectedRows(0).Cells(0).Value.ToString()
Dim ds As DataSet = New DataSet()
Dim da As OleDbDataAdapter = New OleDbDataAdapter(cmdStr, conn)
da.Fill(ds, "table")
DataGridView1.DataSource = ds.Tables("table")
Catch
MsgBox("先按[所有信息],然后选择整条记录,再删除.")
End Try
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
conn.Open()
Dim cmdStrName = "select 姓名 from student where (语文+数学+英语)=(select max(语文+数学+英语) from student)"
cmd_1 = New OleDbCommand(cmdStrName, conn)
Dim cmdStrMax = "select max(语文+数学+英语) from student"
cmd_2 = New OleDbCommand(cmdStrMax, conn)
Dim Info_str = "最聪明的是[" & cmd_1.ExecuteScalar().ToString & "]同学,总分:" & cmd_2.ExecuteScalar().ToString
MsgBox(Info_str)
conn.Close()
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim cmdStr = "select * from student"
Dim ds As DataSet = New DataSet()
Dim da As OleDbDataAdapter = New OleDbDataAdapter(cmdStr, conn)
da.Fill(ds, "table")
DataGridView1.DataSource = ds.Tables("table")
End Sub
End Class
===================================================================================================================
Imports System.Data.OleDb
Public Class Dialog1
Dim conn As OleDbConnection = New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=d:\student.mdb;")
Dim ds As DataSet
Dim da As OleDbDataAdapter
Private Sub Dialog1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ComboBox1.Items.Add("学号")
ComboBox1.Items.Add("姓名")
ComboBox1.Items.Add("语文")
ComboBox1.Items.Add("数学")
ComboBox1.Items.Add("英语")
ComboBox1.SelectedIndex = 0
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim cmdStr As String
If RadioButton1.Checked = True Then
cmdStr = "select * from student where 姓名 like '%" & TextBox1.Text & "%'"
Else
cmdStr = "select * from student where 学号 like '%" & TextBox1.Text & "%'"
End If
If RadioButton3.Checked = True Then
cmdStr &= (" order by " & ComboBox1.SelectedItem & " asc")
Else
cmdStr &= (" order by " & ComboBox1.SelectedItem & " desc")
End If
ds = New DataSet()
da = New OleDbDataAdapter(cmdStr, conn)
da.Fill(ds, "table")
Form1.DataGridView1.DataSource = ds.Tables("table")
End Sub
End Class
===================================================================================================================
Imports System.Data.OleDb
Public Class Dialog2
Dim conn As OleDbConnection = New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=d:\student.mdb;")
Dim cmd As OleDbCommand
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim cmdStr As String
cmdStr = "insert into student values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "')"
Try
conn.Open()
cmd = New OleDbCommand(cmdStr, conn)
cmd.ExecuteNonQuery()
MsgBox("增添成功!")
Catch
MsgBox("请确认数据是否有误,或者是否有空.")
Finally
conn.Close()
End Try
End Sub
End Class
===================================================================================================================
Imports System.Data.OleDb
Public Class Dialog3
Dim conn As OleDbConnection = New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=d:\student.mdb;")
Dim cmd As OleDbCommand
Private Sub Dialog3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ComboBox1.Items.Add("学号")
ComboBox1.Items.Add("姓名")
ComboBox1.Items.Add("性别")
ComboBox1.Items.Add("语文")
ComboBox1.Items.Add("数学")
ComboBox1.Items.Add("英语")
ComboBox1.SelectedIndex = 0
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim cmdStr As String
cmdStr = "update student set " & ComboBox1.SelectedItem & "='" & TextBox1.Text & "' where 学号=" & TextBox2.Text
Try
conn.Open()
cmd = New OleDbCommand(cmdStr, conn)
cmd.ExecuteNonQuery()
MsgBox("修改成功!")
Catch ex As Exception
MsgBox("可能没有这个学生,请确认数据是否有误,或者是否有空.")
Finally
conn.Close()
End Try
End Sub
End Class
===================================================================================================================
删除:
统计: