VB语言的数据库内容

Question

VB语言还没学到数据库的内容，自己写了一点代码，但是由于查找的资料有限+后续有点没思路，请修改和补充一下我的代码内容，使之正确和完整。

Answer 1

你好，根据你的代码，我将完整的题目重新编写了一遍。请参考以下代码：

Imports System.Data
Imports System.Data.OleDb

Public Class Forml
    Dim strConn As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=University.accdb"
    Dim con As OleDbConnection
    Dim da As OleDbDataAdapter
    Dim ds As DataSet

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        con = New OleDbConnection(strConn)
        con.Open()

        '显示所有录取信息
        Dim cmd As String = "SELECT * FROM 录取表"
        da = New OleDbDataAdapter(cmd, con)
        ds = New DataSet()
        da.Fill(ds)
        DataGridView1.DataSource = ds.Tables(0)

        con.Close()
    End Sub

    '查询录取日期信息
    Private Sub BtnQuery_Click(sender As Object, e As EventArgs) Handles BtnQuery.Click
        con.Open()

        Dim queryDate As Date = DateTimePicker1.Value.Date
        Dim cmd As String = "SELECT * FROM 录取表 WHERE 录取日期 = #" & queryDate.ToString("yyyy/MM/dd") & "#"
        da = New OleDbDataAdapter(cmd, con)
        ds.Clear()
        da.Fill(ds)
        DataGridView1.DataSource = ds.Tables(0)

        con.Close()
    End Sub

    '添加录取信息
    Private Sub BtnAdd_Click(sender As Object, e As EventArgs) Handles BtnAdd.Click
        con.Open()

        Dim school As String = TxtSchool.Text
        Dim score As Integer = Convert.ToInt32(TxtScore.Text)
        Dim admissionDate As Date = DateTimePicker2.Value.Date

        Dim cmd As String = "INSERT INTO 录取表(高校, 分数, 录取日期) VALUES('" & school & "', " & score & ", #" & admissionDate.ToString("yyyy/MM/dd") & "#)"
        da = New OleDbDataAdapter(cmd, con)
        ds.Clear()
        da.Fill(ds)
        DataGridView1.DataSource = ds.Tables(0)

        con.Close()
    End Sub
End Class

希望对你有帮助！如有其他问题，请随时提问。