數據庫（vb.net+OleDB+Access）簡易學生信息管理系統

在我們日常生活當中，數據庫一詞往往離不開我們的編程界，在學校、倉庫等方面起著存儲數據及數據關系作用的文件。相較于Excel，Access可以存儲無限多的記錄，內容也十分豐富，例如文本、數字、日期、T&F等。而且不需要額外的轉換數據即可被.net讀取使用（難道不是已經封裝好了嗎doge），好了開始我們今天的教學。

如題，我們需要完成幾項工作

一、安裝Office2016，也可以單獨安裝Access2016，新建數據庫

二、如果安裝順利那么就不需要安裝“引擎”，因為本人安裝完之后VS閃退后來卸載，然后重裝Office解決。主要是在這一步栽的人比較多，不懂的可以評論或私信解決哦

?三、打開VS，新建項目，設計窗體

?1、學生表

?我們做數據庫開發會使用到DataGridView控件，用來顯示查詢結果和預覽。

2、課程表

3、父窗體MDI容器

四、開始編寫代碼

1、主窗體：（窗口管理器）

Public Class 窗口管理器Private Sub 學生表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 學生表ToolStripMenuItem.Click學生表.MdiParent = Me學生表.Show()End SubPrivate Sub 課程表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 課程表ToolStripMenuItem.Click課程表.MdiParent = Me課程表.Show()End Sub
End Class

盡量使用英文做變量名，此處為了直觀。

2、學生表

全局變量聲明

Dim objDa As New OleDb.OleDbDataAdapter
Dim objDs As New DataSet
Dim objXSTable As DataTable

全局過程聲明：

    Sub Reload()objDa.Update(objDs, "xsb1")objXSTable.Clear()Bind()End SubSub Bind()Dim objConn As New OleDb.OleDbConnectionDim objComm As New OleDb.OleDbCommandobjConn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;
Data Source='G:\桌面\學生信息管理系統\學生信息.accdb'"objComm.CommandText = "SELECT * from 學生表 "objComm.Connection = objConnobjDa.SelectCommand = objCommDim builder As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(objDa)objConn.Open()objDa.Fill(objDs, "xsb1")objXSTable = objDs.Tables("xsb1")objConn.Close()DataGridView1.DataSource = objDs.Tables("xsb1")End Sub

窗體加載時，我們要先填充表格（初始化）

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.LoadDim objConn As New OleDb.OleDbConnectionDim objComm As New OleDb.OleDbCommandDim objDa As New OleDb.OleDbDataAdapterDim objDs As New DataSetobjConn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;
Data Source='G:\桌面\學生信息管理系統\學生信息.accdb'"objComm.CommandText = "SELECT * from 學生表"objComm.Connection = objConnobjDa.SelectCommand = objCommobjConn.Open()objDa.Fill(objDs, "xsb")objConn.Close()DataGridView1.DataSource = objDs.Tables("xsb")Bind()End Sub

錄入一條記錄：（注意，不管時錄入還是修改，主鍵的內容都不可以為空！）

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click'        Dim objConn As New OleDb.OleDbConnection'        Dim objComm As New OleDb.OleDbCommand'        objConn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;'Data Source='G:\桌面\學生信息管理系統\學生信息.accdb'"Dim myRow As DataRow = objXSTable.NewRow()myRow("學號") = TextID.TextmyRow("姓名") = TextName.TextmyRow("性別") = Combo1.SelectedItemmyRow("出生日期") = DatePicker.ValuemyRow("選課（專業）") = TextOptionClass.TextmyRow("是否為藝考生") = CheckBox1.CheckedmyRow("學分") = TextScore.TextmyRow("備注") = TextTip.TextobjXSTable.Rows.Add(myRow)Reload()End Sub

修改

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.ClickDim index As Integer = DataGridView1.CurrentRow.IndexobjXSTable.Rows.Item(index).Item(0) = TextID.TextobjXSTable.Rows.Item(index).Item(1) = TextName.TextobjXSTable.Rows.Item(index).Item(2) = Combo1.SelectedItemobjXSTable.Rows.Item(index).Item(3) = DatePicker.ValueobjXSTable.Rows.Item(index).Item(4) = TextOptionClass.TextobjXSTable.Rows.Item(index).Item(5) = CheckBox1.CheckedobjXSTable.Rows.Item(index).Item(6) = TextScore.TextobjXSTable.Rows.Item(index).Item(7) = TextTip.TextReload()
End Sub

刪除一條記錄

 Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.ClickDim index As Integer = DataGridView1.CurrentRow.IndexobjXSTable.Rows.Item(index).Delete()Reload()End Sub

清理文本框內的數據（不影響數據庫）

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.ClickTextID.Text = ""TextName.Text = ""Combo1.SelectedIndex = -1DatePicker.Value = #2000/01/01#TextOptionClass.Text = ""CheckBox1.Checked = FalseTextScore.Text = ""TextTip.Text = ""
End Sub

查詢（模糊查詢，簡單的SQL語句）

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.ClickDim objConn As New OleDb.OleDbConnectionDim objComm As New OleDb.OleDbCommandDim objDa As New OleDb.OleDbDataAdapterDim objDs As New DataSetobjConn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;
Data Source='G:\桌面\學生信息管理系統\學生信息.accdb'"If FRid.Checked = True ThenobjComm.CommandText = "SELECT * from 學生表 where 學號 like '%" & FTid.Text & "%'"ElseIf FRName.Checked = True ThenobjComm.CommandText = "SELECT * from 學生表 where 姓名 like '%" & FTName.Text & "%'"End IfobjComm.Connection = objConnobjDa.SelectCommand = objCommobjConn.Open()objDa.Fill(objDs, "xsb")objConn.Close()DataGridView1.DataSource = objDs.Tables("xsb")End Sub

點擊表格任意一個單元格（立馬填充到左下角的編輯區域，但注意主鍵不能為空，本人沒有做錯誤處理）

Private Sub DataGridView1_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellClickTextID.Text = DataGridView1.CurrentRow.Cells(0).Value.ToStringTextName.Text = DataGridView1.CurrentRow.Cells(1).Value.ToStringCombo1.SelectedItem = DataGridView1.CurrentRow.Cells(2).Value.ToStringCombo1.Text = DataGridView1.CurrentRow.Cells(2).Value.ToStringDatePicker.Value = DataGridView1.CurrentRow.Cells(3).ValueTextOptionClass.Text = DataGridView1.CurrentRow.Cells(4).Value.ToStringCheckBox1.Checked = DataGridView1.CurrentRow.Cells(5).ValueTextScore.Text = DataGridView1.CurrentRow.Cells(6).Value.ToStringTextTip.Text = DataGridView1.CurrentRow.Cells(7).Value.ToString
End Sub

3、課程表，類似于學生表。

Imports System.Windows.Forms.VisualStyles.VisualStyleElement.ButtonPublic Class 課程表Dim objDa As New OleDb.OleDbDataAdapterDim objDs As New DataSetDim objXSTable As DataTablePrivate Sub 課程表_Load(sender As Object, e As EventArgs) Handles MyBase.LoadDim objConn As New OleDb.OleDbConnectionDim objComm As New OleDb.OleDbCommandDim objDa As New OleDb.OleDbDataAdapterDim objDs As New DataSetobjConn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;
Data Source='G:\桌面\學生信息管理系統\學生信息.accdb'"objComm.CommandText = "SELECT * from 課程表"objComm.Connection = objConnobjDa.SelectCommand = objCommobjConn.Open()objDa.Fill(objDs, "kcb")objConn.Close()DataGridView1.DataSource = objDs.Tables("kcb")Bind()End SubSub Reload()objDa.Update(objDs, "kcb1")objXSTable.Clear()Bind()End SubSub Bind()Dim objConn As New OleDb.OleDbConnectionDim objComm As New OleDb.OleDbCommandobjConn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;
Data Source='G:\桌面\學生信息管理系統\學生信息.accdb'"objComm.CommandText = "SELECT * from 課程表 "objComm.Connection = objConnobjDa.SelectCommand = objCommDim builder As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(objDa)objConn.Open()objDa.Fill(objDs, "kcb1")objXSTable = objDs.Tables("kcb1")objConn.Close()DataGridView1.DataSource = objDs.Tables("kcb1")End SubPrivate Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.ClickTextID.Text = ""TextName.Text = ""End SubPrivate Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.ClickDim index As Integer = DataGridView1.CurrentRow.IndexobjXSTable.Rows.Item(index).Delete()Reload()End SubPrivate Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.ClickDim index As Integer = DataGridView1.CurrentRow.IndexobjXSTable.Rows.Item(index).Item(0) = TextID.TextobjXSTable.Rows.Item(index).Item(1) = TextName.TextEnd SubPrivate Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.ClickDim myRow As DataRow = objXSTable.NewRow()myRow("課程編號") = TextID.TextmyRow("課程名稱") = TextName.TextobjXSTable.Rows.Add(myRow)Reload()End SubPrivate Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.ClickDim objConn As New OleDb.OleDbConnectionDim objComm As New OleDb.OleDbCommandDim objDa As New OleDb.OleDbDataAdapterDim objDs As New DataSetobjConn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;
Data Source='G:\桌面\學生信息管理系統\學生信息.accdb'"If FRid.Checked = True ThenobjComm.CommandText = "SELECT * from 課程表 where 課程編號 like '%" & FTid.Text & "%'"ElseIf FRName.Checked = True ThenobjComm.CommandText = "SELECT * from 課程表 where 課程名稱 like '%" & FTName.Text & "%'"End IfobjComm.Connection = objConnobjDa.SelectCommand = objCommobjConn.Open()objDa.Fill(objDs, "kcb")objConn.Close()DataGridView1.DataSource = objDs.Tables("kcb")End SubPrivate Sub DataGridView1_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellClickTextID.Text = DataGridView1.CurrentRow.Cells(0).Value.ToStringTextName.Text = DataGridView1.CurrentRow.Cells(1).Value.ToStringEnd Sub
End Class

本系統由于是初級階段，沒有表與表之間的關系，目前屬于孤立階段，但是簡單的錄入、修改和查詢已經可以實現。

等待下一次更新！

本文來自互聯網用戶投稿，該文觀點僅代表作者本人，不代表本站立場。本站僅提供信息存儲空間服務，不擁有所有權，不承擔相關法律責任。
如若轉載，請注明出處：http://www.pswp.cn/bicheng/15484.shtml
繁體地址，請注明出處：http://hk.pswp.cn/bicheng/15484.shtml
英文地址，請注明出處：http://en.pswp.cn/bicheng/15484.shtml

如若內容造成侵權/違法違規/事實不符，請聯系多彩編程網進行投訴反饋email:809451989@qq.com，一經查實，立即刪除！

相關文章

k8s命令式對象管理和配置

k8s命令式對象管理和配置

kubectl補全: # dnf install -y bash-completion # echo "source <(kubectl completion bash)" >> ~/.bashrc # kubectl completion bash > /etc/bash_completion.d/kubectl 命令式對象管理 kubectl命令 # 查看所有pod kubectl get pod # 查看某個po…
閱讀更多...
gbk轉utf-8

gbk轉utf-8

你們曾經有沒有因為文件的編碼問題而苦惱過&#xff1f;在Windows下開發時&#xff0c;尤其是項目初期&#xff0c;如果沒有特別注意文件的字符編碼問題&#xff0c;等到項目變大后&#xff0c;用Git對比代碼時&#xff0c;很可能會發現一些亂碼。這時才意識到字符編碼的重要性…
閱讀更多...
LLM——探索大語言模型在心理學方面的應用研究

LLM——探索大語言模型在心理學方面的應用研究

1. 概述 心理學經歷了多次理論變革&#xff0c;目前人工智能&#xff08;AI&#xff09;和機器學習&#xff0c;特別是大型語言模型&#xff08;LLMs&#xff09;的使用&#xff0c;預示著新研究方向的開啟。本文詳細探討了像ChatGPT這樣的LLMs如何轉變心理學研究。它討論了LL…
閱讀更多...
docker- 鏡像 導出導入

docker- 鏡像 導出導入

文章目錄 前言docker- 鏡像 導出導入1. 導出2. 刪除鏡像3. 導入鏡像 前言 如果您覺得有用的話&#xff0c;記得給博主點個贊&#xff0c;評論&#xff0c;收藏一鍵三連啊&#xff0c;寫作不易啊^ _ ^。 ??而且聽說點贊的人每天的運氣都不會太差&#xff0c;實在白嫖的話&…
閱讀更多...
Nginx 從入門到精通-Nginx-Web服務器的瑞士軍刀

Nginx 從入門到精通-Nginx-Web服務器的瑞士軍刀

在當今互聯網高速發展的時代&#xff0c;作為Web服務器的Nginx可謂是一把"瑞士軍刀"&#xff0c;其強大的功能和出色的性能備受青睞。然而&#xff0c;僅僅停留在"會用"的層面是遠遠不夠的&#xff0c;要充分發揮Nginx的潛力&#xff0c;我們還需要深入了解…
閱讀更多...
SpringBoot Validation自定義注解之校驗指定最小整數

SpringBoot Validation自定義注解之校驗指定最小整數

1&#xff0c;引入核心關鍵依賴 <!--數據校驗--><dependency><groupId>org.springframework.boot</groupId><artifactId>spring-boot-starter-validation</artifactId></dependency> 2&#xff0c;自定義注解 package com.taia.ym…
閱讀更多...
忘記“也是一門學問：機器如何忘記自己學到的知識？

忘記“也是一門學問：機器如何忘記自己學到的知識？

在信息時代&#xff0c;我們常常希望人工智能能夠學到更多的知識&#xff0c;變得更加智能。但你是否想過&#xff0c;有時候讓機器"忘記"一些它學到的東西&#xff0c;也是一件很重要的事&#xff1f; 隨著用戶隱私保護意識的提高和相關法律法規的出臺&#xff0c;…
閱讀更多...
深入理解內聯函數（C語言）

深入理解內聯函數（C語言）

目錄 1.什么是內聯函數2.內聯函數與宏3.編譯器對內聯函數的處理4.參考文獻 1.什么是內聯函數 很多人都會知道&#xff0c;可以將比較小的函數寫成內聯函數的形式&#xff0c;這樣會節省函數調用的開銷&#xff0c;具體是什么樣的開銷呢&#xff1f; 一個函數在執行過程中&…
閱讀更多...
v-if 與 v-show(vue3條件渲染)

v-if 與 v-show(vue3條件渲染)

v-if 是“真正”的條件渲染&#xff0c;因為它會確保在切換過程中條件塊內的事件監聽器和子組件適當地被銷毀和重建。 v-if 也是惰性的&#xff1a;如果在初始渲染時條件為假&#xff0c;則什么也不做——直到條件第一次變為真時&#xff0c;才會開始渲染條件塊。 相比之下&a…
閱讀更多...
Java—單例模式

Java—單例模式

什么是單例模式&#xff1f; 單例模式是一種軟件設計模式&#xff0c;它確保一個類只有一個實例&#xff0c;并提供一個全局訪問點來訪問該實例。在單例模式中&#xff0c;類自身負責創建自己的唯一實例&#xff0c;并且保證在整個應用程序中只能訪問到這個實例。 實現步驟&a…
閱讀更多...
IDEA通過tomcat運行注意事項

IDEA通過tomcat運行注意事項

配置run--》edit configurations 以下的A B部分要保持一致 A和B的路徑要保持一致
閱讀更多...
前端vue項目遇到的問題01——那些初級問題

前端vue項目遇到的問題01——那些初級問題

前端vue項目遇到的問題01——那些初級問題 1. npm install 問題1.1 依賴沖突1.1.1 詳細問題1.1.2 報錯原因1.1.3 解決問題1.1.3.1 方式1——無視沖突1.1.3.1 方式2——更換依賴版本 1.2 nodejs版本問題1.3 node版本正確的情況&#xff08;audit問題&#xff09;&#xff08;這個…
閱讀更多...
Java鏈表簡介

Java鏈表簡介

在Java中使用鏈表作為一種數據結構&#xff0c;并將其與MySQL作為底層數據庫進行集成&#xff0c;涉及幾個關鍵方面&#xff0c;包括數據存儲、數據操作的效率、以及如何在應用層和數據庫層之間映射數據結構。下面是對這些方面的分析&#xff1a; ### Java中的鏈表數據結構 鏈…
閱讀更多...
HTML5新特性、JS【初識JS 、JS核心語法】--學習JavaEE的day47

HTML5新特性、JS【初識JS 、JS核心語法】--學習JavaEE的day47

day47 HTML5新特性 定義文檔類型 在文件的開頭總是會有一個標簽 語言文檔類型聲明方式html4<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">html5<!DOCTYPE html> 新增語義化標簽 理解&…
閱讀更多...
vite-plugin-vue-devtools插件

vite-plugin-vue-devtools插件

vite-plugin-vue-devtools插件旨在幫助開發者更快地理解并調試Vue應用。它通過提供全面的功能和直觀的界面&#xff0c;以圖形化的方式展示應用程序狀態&#xff0c;使開發者能夠更方便地查看和管理Vue應用的各個方面。此外&#xff0c;該插件還支持Vue3.0版本&#xff0c;并且…
閱讀更多...
【Go專家編程——內存管理——垃圾回收】

【Go專家編程——內存管理——垃圾回收】

垃圾回收 所謂的垃圾就上不在需要的內存塊&#xff0c;垃圾如果不清理&#xff0c;這些內存塊就沒有辦法再次被分配使用。在不支持垃圾回收的編程語言中&#xff0c;這些垃圾內存就上泄露的內存。 1. 垃圾回收算法 常見的垃圾回收算法有3種 引用計數&#xff1a;對每個對象…
閱讀更多...
yolov10 快速使用及訓練

yolov10 快速使用及訓練

參考： https://docs.ultralytics.com/models/yolov10/ ultralytics其實大多數系列都能加載使用： 官方： https://github.com/THU-MIG/yolov10.git 代碼參考： https://colab.research.google.com/github/roboflow-ai/notebooks/blob/main/notebooks/train-yolov10-object-…
閱讀更多...
一篇文章講透排序算法之希爾排序

一篇文章講透排序算法之希爾排序

希爾排序是對插入排序的優化&#xff0c;如果你不了解插入排序的話&#xff0c;可以先閱讀這篇文章&#xff1a;插入排序 目錄 1.插入排序的問題 2.希爾排序的思路 3.希爾排序的實現 4.希爾排序的優化 5.希爾排序的時間復雜度 1.插入排序的問題 如果用插入排序對一個逆序…
閱讀更多...
521源碼-免費代碼基礎學習-PHP如何運用變量教程

521源碼-免費代碼基礎學習-PHP如何運用變量教程

更多網站源碼學習教程&#xff0c;請點擊&#x1f449;-521源碼-&#x1f448;獲取最新資源 為什么要學習PHP&#xff1f;“我可以用JavaScript來實現程序編寫。”但JavaScript的能力是有限的&#xff0c;JavaScript通常運行在瀏覽器&#xff08;客戶端&#xff09;&#xff0…
閱讀更多...
go語言中for的4種循環形式總結

go語言中for的4種循環形式總結

和其他語言不一樣&#xff0c;go語言中的循環語句只有for一種&#xff0c;但是go里面的for卻有3種不同的循環形式&#xff0c;總結如下&#xff1a; 1. 無限循環 for { //這個就是一個“死循環”&#xff0c;注意必須要有 break條件&#xff0c;否則就真成死循環了 } 2. fo…
閱讀更多...
最新文章

Copyright @ 2022~2023