怎樣用VB.NET 做學(xué)生管理系統(tǒng)

1：Access，建立數(shù)據(jù)庫，數(shù)據(jù)庫命名為Database1.mdb。

創(chuàng)新互聯(lián)服務(wù)項目包括長興網(wǎng)站建設(shè)、長興網(wǎng)站制作、長興網(wǎng)頁制作以及長興網(wǎng)絡(luò)營銷策劃等。多年來，我們專注于互聯(lián)網(wǎng)行業(yè)，利用自身積累的技術(shù)優(yōu)勢、行業(yè)經(jīng)驗、深度合作伙伴關(guān)系等，向廣大中小型企業(yè)、政府機構(gòu)等提供互聯(lián)網(wǎng)行業(yè)的解決方案，長興網(wǎng)站推廣取得了明顯的社會效益與經(jīng)濟效益。目前，我們服務(wù)的客戶以成都為中心已經(jīng)輻射到長興省份的部分城市，未來相信會繼續(xù)擴大服務(wù)區(qū)域并繼續(xù)獲得客戶的支持與信任！

（注意：這里的后綴是MDB,如果Access是2007版本的，保存的時候要另存為2003版本的才行，因為，VB不直接支持07版的accdb后綴格式！）

2：數(shù)據(jù)庫建立后就進入了數(shù)據(jù)表界面，可以輸入數(shù)據(jù)了，輸完以后CRRL+S保存，輸入表名，這里表名為test，ok，準(zhǔn)備工作搞定。

菜單中找到工程→部件→勾選 ，

Microsoft ADO Data Control 6.0

Microsoft Hierarchical Flexgrid Control 6.0

勾選后左側(cè)工具欄里就多了兩個控件即 ADODC控件和MSHFlexGrid控件。

選擇 ADODC控件和MSHFlexGrid控件，放在窗體的合適位置

設(shè)置ADODC控件的屬性：

右鍵窗體內(nèi)ADODC1控件

1：ADODC屬性頁→通用→選擇使用連接字符串→點擊生成→選擇Microsoft Jet 4.0 OLE DB Provider 點擊下一步→選擇之前準(zhǔn)備好的數(shù)據(jù)庫→點擊測試連接，顯示測試成功則ok，確定。

2：ADODC屬性頁→記錄源→命令類型選擇2-adcmdtable，表或存儲過程名稱選擇之前建立的數(shù)據(jù)表test，點擊確定，ADODC屬性設(shè)置完成。

設(shè)置MSHFlexGrid控件的屬性：

VB右側(cè)屬性表里，找到datasource，選擇adodc1

就完事了

般電話機對外聯(lián)絡(luò)，以免為了穿透墻壁天花板等障礙而浪費電。同樣在室外

VB.NET如何生成ACCESS數(shù)據(jù)庫？并生成表。 VB.NET

我的需求就是先填寫好表和表中字段的名稱，然后點擊一個按鈕，就在指定的路徑生成一個ACCESS數(shù)據(jù)庫。而不是事先手動創(chuàng)建。 請知道的各位附上完整代碼，本人剛接觸VB.NET，有些東西還不是很了解。謝謝。

vb.net 寫入mdb數(shù)據(jù)庫

1、首先，你得做一個oledbconnection對象，這個對象有個連接字符串的屬性，你需要設(shè)置

2、做一個oledbcommand對象，這個對象有個操作字符串（SQL語句）需要設(shè)置

3、打開oledbconnection對象

4、執(zhí)行oledbcommand對象

5、關(guān)閉oledbconnection對象

程序結(jié)束，希望對你有幫助

用vb.net操作access數(shù)據(jù)庫

mports System.Drawing

Imports System.ComponentModel

Imports System.Windows.Forms

Imports System.Data.OleDb

Imports System.Data

Public Class Form1

Inherits Form

Private components As System.ComponentModel.Container = Nothing

Private WithEvents lastrec As Button

Private WithEvents nextrec As Button

Private WithEvents previousrec As Button

Private WithEvents firstrec As Button

Private t_books As TextBox

Private t_nl As TextBox

Private t_xb As TextBox

Private t_xm As TextBox

Private t_id As TextBox

Private l_books As Label

Private l_nl As Label

Private l_xb As Label

Private l_xm As Label

Private l_id As Label

Private label1 As Label

Private myDataSet As DataSet

Private WithEvents button1 As Button

Private WithEvents button2 As Button

Private WithEvents button3 As Button

Private WithEvents button4 As Button

Private myBind As BindingManagerBase

Public Sub New ( )

MyBase.New ( )

GetConnected ( )

InitializeComponent ( )

End Sub

'清除在程序中使用過的資源

Protected Overloads Overrides Sub Dispose (ByVal disposing As Boolean)

If disposing Then

If Not (components Is Nothing) Then

components.Dispose ( )

End If

End If

MyBase.Dispose ( disposing )

End Sub

Public Sub GetConnected ( )

'創(chuàng)建一個數(shù)據(jù)連接

Dim strCon As String = " Provider = Microsoft.Jet.OLEDB.4.0 ;

Data Source = db.mdb "

Dim myConn As OleDbConnection = New OleDbConnection ( )

myConn.ConnectionString = strCon

Dim strCom As String = " SELECT * FROM person "

'創(chuàng)建一個 DataSet

myDataSet = New DataSet ( )

myConn.Open ( )

'通過OleDbDataAdapter對象得到一個數(shù)據(jù)集

Dim myCommand As OleDbDataAdapter = New OleDbDataAdapter

( strCom , myConn )

'把Dataset綁定books數(shù)據(jù)表

myCommand.Fill ( myDataSet , "person" )

'關(guān)閉此數(shù)據(jù)連接

myConn.Close ( )

End Sub

'插入數(shù)據(jù)記錄操作代碼

Private Sub button2_Click (ByVal sender As Object , _

ByVal e As System.EventArgs) Handles button2.Click

'判斷所有字段是否添完，添完則執(zhí)行，反之彈出提示

If ( t_id.Text "" And t_xm.Text ""

And t_xb.Text "" And t_nl.Text ""

And t_books.Text "" ) Then

Dim myConn1 As String = " Provider = Microsoft.Jet.OLEDB.4.0 ;

Data Source = db.mdb"

Dim myConn As OleDbConnection = New OleDbConnection ( myConn1 )

myConn.Open ( )

Dim strInsert As String = " INSERT INTO person ( id , xm , xb , nl

, zip ) VALUES ( " _

t_id.Text + " , '" _

t_xm.Text + "' , '" _

t_xb.Text + "' , " _

t_nl.Text + " , " _

t_books.Text + ")"

Dim inst As OleDbCommand = New OleDbCommand ( strInsert , myConn )

inst.ExecuteNonQuery ( )

myConn.Close ( )

myDataSet.Tables ( "person" ).Rows ( myBind.Position ).BeginEdit ( )

myDataSet.Tables ( "person" ).Rows ( myBind.Position ).EndEdit ( )

myDataSet.Tables ( "person" ).AcceptChanges ( )

Else

MessageBox.Show ( "必須填滿所有字段值！" , "錯誤！" )

End If

End Sub

本文名稱：vb。net制作mdb vbnet mybase
文章位置：http://chinadenli.net/article42/dojipec.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供ChatGPT、標(biāo)簽優(yōu)化、網(wǎng)站設(shè)計、、品牌網(wǎng)站設(shè)計、網(wǎng)站維護

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)