求一個(gè)用VB.net操作access數(shù)據(jù)庫(kù)的例程

Imports System

創(chuàng)新互聯(lián)建站：從2013年創(chuàng)立為各行業(yè)開(kāi)拓出企業(yè)自己的“網(wǎng)站建設(shè)”服務(wù)，為超過(guò)千家公司企業(yè)提供了專(zhuān)業(yè)的成都做網(wǎng)站、網(wǎng)站設(shè)計(jì)、網(wǎng)頁(yè)設(shè)計(jì)和網(wǎng)站推廣服務(wù)， 按需制作由設(shè)計(jì)師親自精心設(shè)計(jì)，設(shè)計(jì)的效果完全按照客戶(hù)的要求，并適當(dāng)?shù)奶岢龊侠淼慕ㄗh，擁有的視覺(jué)效果，策劃師分析客戶(hù)的同行競(jìng)爭(zhēng)對(duì)手，根據(jù)客戶(hù)的實(shí)際情況給出合理的網(wǎng)站構(gòu)架，制作客戶(hù)同行業(yè)具有領(lǐng)先地位的。

Imports 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

'清除在程序中使用過(guò)的資源

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)建一個(gè)數(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)建一個(gè) DataSet

myDataSet = New DataSet ( )

myConn.Open ( )

'通過(guò)OleDbDataAdapter對(duì)象得到一個(gè)數(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 ( "必須填滿(mǎn)所有字段值！" , "錯(cuò)誤！" )

End If

End Sub

VB.net中類(lèi)的實(shí)例化

1.不正確

Dim abc As myClass，定義一個(gè)可以引用myClass類(lèi)型對(duì)象的變量abc。這個(gè)abc變量存在于棧上。

abc=New myClass。New myClass創(chuàng)建myClass實(shí)例對(duì)象，這個(gè)對(duì)象存在于托管堆上。然后（同時(shí)）讓abc引用（指向）這個(gè)對(duì)象。

abc變量在棧上，而對(duì)象在托管堆上。

abc儲(chǔ)存的是對(duì)象的地址，而不是對(duì)象本身。

看下面的代碼

Dim a As myClass,b As myClass,c As myClass

a=New myClass

b=a

c=a

整個(gè)過(guò)程中只創(chuàng)建了一個(gè)myClass對(duì)象，位于托管堆上。

三個(gè)myClass類(lèi)型的變量a、b、c位于棧上，都指向了這一個(gè)myClass對(duì)象

2.類(lèi)的成員分 實(shí)例成員 和 靜態(tài)成員

實(shí)例成員 必須在實(shí)例對(duì)象上調(diào)用

靜態(tài)成員 可以直接調(diào)用，不需要實(shí)例對(duì)象。

關(guān)于VB.NET進(jìn)度條的實(shí)例

該實(shí)例有很多實(shí)現(xiàn)方法,下面介紹一種不同的給你:

首先要在窗體中載入以下控件:progressbar(進(jìn)度條),label(用來(lái)實(shí)時(shí)顯示文本提示),兩個(gè)timer(分別控制進(jìn)度條進(jìn)度的增減),然后用以下代碼就能實(shí)現(xiàn):

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Timer1.Enabled = True

Timer1.Interval = 500

Timer2.Interval = 500

ProgressBar1.Value = 0

ProgressBar1.Maximum = 100

ProgressBar1.Minimum = 0

End Sub

'上述過(guò)程是設(shè)置控件的初始值,也可以在屬性面板設(shè)置

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

ProgressBar1.Value += 1

Label1.Text = "當(dāng)前完成" ProgressBar1.Value "%"

If (ProgressBar1.Value = 100) Then

Timer1.Enabled = False

Timer2.Enabled = True

End If

End Sub

'timer1用來(lái)控制進(jìn)度的增加

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

ProgressBar1.Value -= 1

Label1.Text = "當(dāng)前完成" ProgressBar1.Value "%"

If (ProgressBar1.Value = 0) Then

Timer1.Enabled = True

Timer2.Enabled = False

End If

End Sub

'time2用來(lái)控制進(jìn)度的減少

End Class

本文名稱(chēng)：vb.net例程,VBNET
文章位置：http://www.aaarwkj.com/article42/dsisjhc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供靜態(tài)網(wǎng)站、電子商務(wù)、云服務(wù)器、手機(jī)網(wǎng)站建設(shè)、定制網(wǎng)站、全網(wǎng)營(yíng)銷(xiāo)推廣

廣告

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