vb数据库建立学生信息

Imports System.Data.OleDb

Module Module1
    Sub Main()
        Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\path\to\your\database.mdb"
        Dim connection As New OleDbConnection(connectionString)
        
        Try
            connection.Open()
            Console.WriteLine("数据库连接成功！")
            
            Dim command As New OleDbCommand("SELECT * FROM Students", connection)
            Dim reader As OleDbDataReader = command.ExecuteReader()
            
            While reader.Read()
                Console.WriteLine("学生ID: " & reader("StudentID"))
                Console.WriteLine("姓名: " & reader("Name"))
                Console.WriteLine("年龄: " & reader("Age"))
                Console.WriteLine("班级: " & reader("Class"))
                Console.WriteLine("-----------------------------")
            End While
            
        Catch ex As Exception
            Console.WriteLine("数据库连接失败: " & ex.Message)
        Finally
            connection.Close()
        End Try
    End Sub
End Module