建站
咨詢
售后
建站咨詢
新聞中心
在軟件開發(fā)中，常常需要使用數(shù)據(jù)庫來存儲(chǔ)和管理數(shù)據(jù)。而Microsoft Access作為一個(gè)比較流行的關(guān)系型數(shù)據(jù)庫管理系統(tǒng)，無疑是一個(gè)不錯(cuò)的選擇。在Visual Basic編程中，我們可以使用Microsoft提供的數(shù)據(jù)訪問組件ADO來操作Access數(shù)據(jù)庫。本文將介紹如何使用VB來操作MDB數(shù)據(jù)庫，以及一些快捷高效的數(shù)據(jù)處理方法。
成都創(chuàng)新互聯(lián)公司是一家專業(yè)提供漢陰企業(yè)網(wǎng)站建設(shè),專注與網(wǎng)站設(shè)計(jì)制作、成都做網(wǎng)站、html5、小程序制作等業(yè)務(wù)。10年已為漢陰眾多企業(yè)、政府機(jī)構(gòu)等服務(wù)。創(chuàng)新互聯(lián)專業(yè)網(wǎng)絡(luò)公司優(yōu)惠進(jìn)行中。
一、準(zhǔn)備工作
要使用VB來操作MDB數(shù)據(jù)庫，我們需要按照以下步驟進(jìn)行準(zhǔn)備工作：
1. 確認(rèn)已安裝Microsoft Access數(shù)據(jù)庫引擎
在使用VB操作MDB數(shù)據(jù)庫之前，我們需要確保計(jì)算機(jī)中已安裝Microsoft Access數(shù)據(jù)庫引擎。如果未安裝，可以在Microsoft官網(wǎng)上下載并安裝，或使用以下代碼檢查是否已安裝：
Dim regkey As RegistryKey
regkey = Registry.LocalMachine.OpenSubKey(“SOFTWARE\Microsoft\Office\14.0\Access Connectivity Engine\Engines\ACE”, False)
If (regkey Is Nothing) Then
MessageBox.Show(“Microsoft Access Database Engine未安裝！”)
End If
2. 創(chuàng)建數(shù)據(jù)庫文件和表
在使用VB之前，我們需要先創(chuàng)建一個(gè)MDB數(shù)據(jù)庫文件，并在其中創(chuàng)建相應(yīng)的表。Microsoft Access提供了一個(gè)可視化界面，我們可以通過該界面輕松創(chuàng)建數(shù)據(jù)庫和表。當(dāng)然，也可以通過代碼來創(chuàng)建和操作數(shù)據(jù)庫，例如：
Dim dbcat As Object
Dim db As Object
Dim tbl As Object
dbcat = CreateObject(“ADOX.Catalog”)
dbcat.Create(“Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\AccessDemo.accdb”)
db = CreateObject(“DAO.DBEngine.36”).OpenDatabase(“D:\AccessDemo.accdb”)
tbl = db.CreateTableDef(“demoTable”)
fld = tbl.CreateField(“ID”, DataTypeEnum.dbLong)
tbl.Fields.Append(fld)
fld = tbl.CreateField(“name”, DataTypeEnum.dbText)
fld.Size = 50
tbl.Fields.Append(fld)
db.TableDefs.Append(tbl)
db.Close()
二、操作MDB數(shù)據(jù)庫
在準(zhǔn)備就緒之后，我們就可以使用VB來操作MDB數(shù)據(jù)庫了。具體操作方式如下：
1. 連接數(shù)據(jù)庫
在VB中，我們可以使用ADODB.Connection對(duì)象來連接數(shù)據(jù)庫。連接代碼示例：
Dim conn As New ADODB.Connection
conn.ConnectionString = “Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\AccessDemo.accdb”
conn.Open()
2. 執(zhí)行SQL語句
連接數(shù)據(jù)庫之后，我們可以使用ADODB.Command對(duì)象來執(zhí)行SQL語句。代碼示例：
Dim cmd As New ADODB.Command
cmd.ActiveConnection = conn
cmd.CommandText = “SELECT * FROM demoTable”
Dim rs As ADODB.Recordset
Set rs = cmd.Execute
3. 處理數(shù)據(jù)
執(zhí)行SQL語句后，我們可以通過ADODB.Recordset對(duì)象獲取查詢結(jié)果，進(jìn)而對(duì)數(shù)據(jù)進(jìn)行處理。代碼示例：
Dim i As Integer
While Not rs.EOF
i = i + 1
Debug.Print rs(“ID”), rs(“name”)
rs.MoveNext
Wend
rs.Close
conn.Close
以上代碼簡單地演示了通過VB操作MDB數(shù)據(jù)庫的基本步驟。對(duì)于更復(fù)雜的數(shù)據(jù)處理需求，可以結(jié)合各種控件和組件進(jìn)行擴(kuò)展。
三、快捷高效的數(shù)據(jù)處理方法
在實(shí)際應(yīng)用中，我們往往需要對(duì)數(shù)據(jù)進(jìn)行一系列特定的處理操作，例如數(shù)據(jù)篩選、排序、分組、匯總等。以下介紹幾種在VB中快捷高效的數(shù)據(jù)處理方法。
1. 使用DataGrid控件顯示數(shù)據(jù)
DataGrid是一種非常實(shí)用的控件，可以方便地顯示數(shù)據(jù)并支持多種功能，如排序、篩選、分頁等。以下是使用DataGrid控件顯示數(shù)據(jù)的示例代碼：
Dim conn As New ADODB.Connection
conn.ConnectionString = “Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\AccessDemo.accdb”
conn.Open
Dim cmd As New ADODB.Command
cmd.ActiveConnection = conn
cmd.CommandText = “SELECT * FROM demoTable”
Dim rs As ADODB.Recordset
Set rs = cmd.Execute
Dim dt As New DataTable
dt.Load rs
DataGrid1.DataSource = dt
rs.Close
conn.Close
2. 使用DataView控件對(duì)數(shù)據(jù)進(jìn)行篩選和排序
DataView控件可以對(duì)DataTable中的數(shù)據(jù)進(jìn)行篩選和排序，并支持多列排序和自定義篩選條件。以下是使用DataView控件對(duì)數(shù)據(jù)進(jìn)行篩選和排序的示例代碼：
Dim dt As New DataTable
dt.Load (rs)
Dim dv As New DataView(dt)
dv.Sort = “ID DESC, name ASC”
dv.RowFilter = “ID > 5”
DataGrid1.DataSource = dv
3. 使用ADO數(shù)據(jù)適配器進(jìn)行數(shù)據(jù)處理
ADO數(shù)據(jù)適配器提供了一種快捷簡便的數(shù)據(jù)處理方法，可以方便地執(zhí)行SQL操作、加載數(shù)據(jù)到DataSet并支持?jǐn)?shù)據(jù)更新操作。以下是使用ADO數(shù)據(jù)適配器進(jìn)行數(shù)據(jù)處理的示例代碼：
Dim conn As New ADODB.Connection
conn.ConnectionString = “Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\AccessDemo.accdb”
conn.Open
Dim adapter As New ADODB.Recordset
adapter.Open “SELECT * FROM demoTable”, conn
Dim ds As New DataSet
adapter.Fill ds, “demoTable”
Dim dv As New DataView(ds.Tables(“demoTable”))
dv.Sort = “name ASC”
DataGrid1.DataSource = dv
以上是VB操作MDB數(shù)據(jù)庫的一些基本方法和快捷高效的數(shù)據(jù)處理方法。在實(shí)際應(yīng)用中，我們需要靈活結(jié)合各種工具和技術(shù)，根據(jù)具體需求來選擇相應(yīng)的數(shù)據(jù)處理方式。
相關(guān)問題拓展閱讀：
- 使用vb編程如何從mdb數(shù)據(jù)庫中寫入，讀出圖像？
- VB如何連接ACCESS數(shù)據(jù)庫
使用vb編程如何從mdb數(shù)據(jù)庫中寫入，讀出圖像？
1、從數(shù)據(jù)庫中顯示所需要的圖片
首先，添加一個(gè)Data數(shù)據(jù)控件,設(shè)置它的DatabaseName和RecordSource屬性嘩散，
strPath = App.Path
If Right(strPath, 1) “\” Then
strPath = strPath & “\”
MyData.DatabaseName = strPath & “ExampleDB.mdb” ‘?dāng)?shù)據(jù)庫存地址
MyData.RecordSource = “Info” ‘表名
第二步，添加Image控件用來顯示圖片，設(shè)置它的DataSource和DataField屬性。例如本例中: Image1.DataSource=”MyData”和Image1.DataField=” MyPhoto” 。然后設(shè)置其它具有數(shù)據(jù)綁定功能的控件用來顯示所要的其它內(nèi)容，經(jīng)過這兩步的操作，運(yùn)行程序就可以顯示你要的數(shù)據(jù)了。
2、向數(shù)據(jù)庫中添加需要存儲(chǔ)的圖片
首先，利用數(shù)據(jù)控件所具有的AddNew屬性，添加一個(gè)按鈕，雙擊后添加如下代碼MyData.Recordset.AddNew
第二步，為Image控件圖片指定圖片路徑Image1.Picture = LoadPicture(“圖片路徑”)，經(jīng)過這兩步的操作，就可以向數(shù)據(jù)庫中添加圖片了。
這種方法最簡單快捷，要寫的代碼量很少。但是這種方法在運(yùn)行速度和靈活性方面有一定的限制，適合于初學(xué)者和一些簡單的應(yīng)用塵蘆兄，要想靈活多變的顯示圖像，下面介紹的方法或許更適應(yīng)您的要求。
利用編寫代碼實(shí)現(xiàn)派襲圖片的存儲(chǔ)與顯示
這種方法相對(duì)于方法一來說，代碼量大，但是它操作靈活，能夠滿足多樣形式下的操作，受到更多編程者的青睞。但是涉及到的知識(shí)面相對(duì)要多一些，不僅要掌握數(shù)據(jù)庫的操作方法，還要二進(jìn)制文件的讀寫作進(jìn)一步的了解。關(guān)于數(shù)據(jù)庫及二進(jìn)制文件的基本操作很多參考書上都介紹的比較詳細(xì)，需要時(shí)請查閱即可。在編程之前把本部分用到的變量說明如下：
Dim RS As New ADODB.Recordset
Dim Chunk() As Byte
Const ChunkSize As Integer = 2384
Dim DataFile As Integer, Chunks, Fragment As Integer
Dim MediaTemp As String
Dim lngOffset, lngTotalSize As Long
Dim i As Integer
1、從數(shù)據(jù)庫中顯示所需要的圖片
之一步首先打開數(shù)據(jù)庫，看有沒有要查找的內(nèi)容，有則繼續(xù)執(zhí)行，沒有就退出
RS.Source = “select * from Info Where Name='” & sparaName &”‘;”
RS.ActiveConnection = “UID=;PWD=;DSN=TestDB;”
RS.Open
If RS.EOF Then RS.cCose : Exit Sub
第二步，讀出長二進(jìn)制數(shù)據(jù)即圖片數(shù)據(jù)，把它轉(zhuǎn)換成圖片文件，操作過程如下
MediaTemp = strPath & “picturetemp.tmp”
DataFile = 1
Open MediaTemp For Binary Access Write As DataFile
lngTotalSize = RS!MyPhoto.ActualSize
Chunks = lngTotalSize \ ChunkSize
Fragment = lngTotalSize Mod ChunkSize
ReDim Chunk(Fragment)
Chunk() = RS!MyPhoto.GetChunk(Fragment)
Put DataFile, , Chunk()
For i = 1 To Chunks
ReDim Chunk(ChunkSize)
Chunk() = RS!MyPhoto.GetChunk(ChunkSize)
Put DataFile, , Chunk()
Next i
Close DataFile
第三步，關(guān)閉數(shù)據(jù)庫，這樣就可以顯示所要的圖片了。
RS.Close
If MediaTemp = “” Then Exit Sub
Picture1.Picture = LoadPicture(MediaTemp)
If Picture1.Picture = 0 Then Exit Subj
2、向數(shù)據(jù)庫中添加需要存儲(chǔ)的圖片
向數(shù)據(jù)庫添加存儲(chǔ)的圖片是顯示圖片逆過程，只要掌握了顯示圖片的操作，存儲(chǔ)圖片的操作也就迎刃而解了，下面將操作步驟介紹如下
之一步首先打開數(shù)據(jù)庫，過程如下：
RS.Source = “select * from Info ;”
RS.CursorType = adOpenKeyset
RS.LockType = adLockOptimistic
RS.ActiveConnection = “UID=;PWD=;DSN=TestDB;”
RS.Open
第二步，把要存儲(chǔ)的圖片轉(zhuǎn)換成二進(jìn)制長文件存入數(shù)據(jù)庫中，操作過程如下
RS.AddNew
DataFile = 1
Open strPathPicture For Binary Access Read As DataFile
FileLen = LOF(DataFile) ‘ 文件中數(shù)據(jù)長度
If FileLen = 0 Then : Close DataFile : RS.Close : Exit Sub
Chunks = FileLen \ ChunkSize
Fragment = FileLen Mod ChunkSize
ReDim Chunk(Fragment)
Get DataFile, , Chunk()
RS!MyPhoto.AppendChunk Chunk()
ReDim Chunk(ChunkSize)
For i = 1 To Chunks
Get DataFile, , Chunk()
RS!MyPhoto.AppendChunk Chunk()
Next i
Close DataFile
第三步，更新紀(jì)錄后，關(guān)閉數(shù)據(jù)庫，就完成了數(shù)據(jù)圖片到數(shù)據(jù)庫的存儲(chǔ)。
RS.Update
RS.Close
Set RS = Nothing
兩種方法在使用方面各有所長，讀者可以針對(duì)自己的情況做出合理的選擇。
VB如何連接ACCESS數(shù)據(jù)庫
由于VB本身并不帶有可以訪問數(shù)據(jù)庫的類,所以我們需要引用一個(gè)包含能訪問數(shù)并慎據(jù)庫的類來使盯派用數(shù)據(jù)庫.這里我們采用ADODB,相比DAO和能訪問數(shù)據(jù)庫的API來說,它比DAO更靈活,更強(qiáng)大;而比起API,它更簡單易用,更適合初學(xué)者.而Access數(shù)據(jù)庫比起SQL,也相對(duì)簡單了很多,且能夠滿足中小型應(yīng)用程序的需要,所以我們在使用數(shù)據(jù)庫時(shí),選擇了Access.
就像使用文本文件來存儲(chǔ)數(shù)據(jù)一樣,我們需要先設(shè)計(jì)好數(shù)據(jù)結(jié)構(gòu),只不過在設(shè)計(jì)Access數(shù)據(jù)庫的結(jié)構(gòu)時(shí),我們需要用到其它的程序來進(jìn)行詳細(xì)的規(guī)劃.建議采用的程序是office中的Access或VB自帶的VISDATA.
當(dāng)數(shù)據(jù)庫設(shè)計(jì)好了以后,我們可以開始數(shù)據(jù)庫編程了.
首先,我們需要引用ADO.具體的方法是,在工程 — 引用 中,找到Microsoft ActiveX Data Object *.* Library,這里的*.*是指的時(shí)ADO的版本號(hào),一般來說,應(yīng)用程序或ActiveX控件都具有向下兼容性,所以我們盡可能選擇比較新的版本.以確保程序在能識(shí)別舊版本Access的同時(shí),也能識(shí)別較新版本的Access.
然后我們需要在程序中創(chuàng)建一個(gè)對(duì)象.就好比我們在窗體上添加一個(gè)FileBox才能看到文件名一樣,只有創(chuàng)建了ADO對(duì)象,我們才能夠訪問數(shù)據(jù)庫.常用的對(duì)象有兩個(gè),Connection和Recordset.
創(chuàng)建這兩個(gè)對(duì)象的具體方法是:
1.在引用后,使用New關(guān)鍵字,如
Private Conn As New ADODB.Connection
Private Reco As New ADODB.Recordset
2.在沒引用時(shí),用CreateObject創(chuàng)建對(duì)象:
Dim Conn,Reco
Set Conn = CreateObject(ADODB.Connection)
Set Reco = CreateObject(ADODB.Recordset)
創(chuàng)建了對(duì)象之后,下一步我們要做的就是打開數(shù)據(jù)庫了.
先看下面的代碼,可以成功的打開數(shù)據(jù)庫.
Conn.open Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Main.mdb
這句代碼打開了D盤中的Main.mdb這個(gè)數(shù)據(jù)庫.
Connection.Open方法的之一個(gè)參數(shù)是連接代碼,它將傳遞給系統(tǒng)的數(shù)據(jù)庫引擎.前半部分Provider=Microsoft.Jet.OLEDB.4.0,它表示了數(shù)據(jù)庫的類型.不同的數(shù)據(jù)庫可能會(huì)不同.后半句Source=d:\main.mdb它表示了數(shù)據(jù)庫所在的絕對(duì)路徑.
打開數(shù)據(jù)庫之后,還要打開表.假如數(shù)據(jù)庫中有一個(gè)表,表名為Users,字段有兩個(gè),一個(gè)為用戶名,一個(gè)為密碼.那么看以下代碼.
1.想返回Users中,為去年煙花的
Recordset.open Select 密碼 From Users Where 用戶名=’去年煙花’,Connection,1,1
之后我們就可以把用戶輸入的密碼進(jìn)行比較,看是否允許登錄.
If Recordset.eof and Recordset.bof then
Msgbox 用戶不存在!,16
Else
If PassWord =Recordset(密碼).value then
msgbox 登錄成功!,64
Else
msgbox 密碼錯(cuò)誤!,32
End If
End If
Recordset.Close
2.假設(shè)Admin已經(jīng)成功登錄系統(tǒng),我們想把所有的用凱蔽賀戶名和密碼都顯示出來
Recordset.open Select * From Users,Connection,1,1
這時(shí),表已經(jīng)被打開,我們就用以下代碼把它顯示出來.
Do whlie Not Recordset.eof
Print 用戶名:
Recordset(用戶名).value
密碼:
Recordset(密碼).value
Recordset.MoveNext
Loop
Recordset.Close
由以上代碼示例可以看出,打開表時(shí),可以只打開其中的一個(gè)字段,也可以打開所有.之一個(gè)參數(shù)是SQL語句.
Select From 表名
這里的條件可以省略.且字段名也可以用*來代替所有字段.
需要注意的是,如果你用(1)中的方法打開,那么(2)后面顯示的代碼就不能再用在(1)中.因?yàn)?1)里并沒有打開字段,所以這一句Recordset(密碼)就沒有值存在,還有可能出錯(cuò).
后面的條件,可以用=、、等運(yùn)算符.比如 Where ID
32.(這里假設(shè)為數(shù)字型.)
這是打開的部分.第二個(gè)很重要的部分就是查詢記錄.
數(shù)據(jù)庫它并不是把所有記錄全部放到一個(gè)變量中備用的.而是以當(dāng)前記錄的形式來返回一個(gè)值.所以我們想從中找到有用的信息,就必須要對(duì)信息進(jìn)行定位/篩選.
定位:
移動(dòng)到下一條 Recordset.MoveNext
移動(dòng)到上一條 Recordset.MovePrevious
移動(dòng)到最后一條 Recordset.MoveLast
移動(dòng)到之一條 Recordset.MoveFrist
移動(dòng)到某一條 Recordset.Move Number
篩選:
Recordset.Find 條件
如:
Private Sub Command1_Click()
Recordset.Find 用戶名=
text1.text
If Recordset.Eof
True Then
Msgbox 該用戶的密碼是:
Recordset(密碼).value,64
Else
Msgbox 未找到該用戶的資料!,16
End If
End Sub
MoveNext 只有當(dāng)Eof不為True時(shí),才可用,否則發(fā)生錯(cuò)誤.而MovePrevious剛是Bof不為True時(shí)….
而只要Eof 和 Bof中有一個(gè)不為真時(shí),也就是說只要有一條記錄時(shí),它就可以使用.
Find 方法中的條件和Open時(shí)的之一個(gè)參數(shù)中的條件表述方法是完全一致的.當(dāng)在已打開的記錄集中,找不到該記錄時(shí),Eof為True.找到則當(dāng)前的值就是符合條件的記錄.
第三個(gè)部分就是添加/修改記錄.
修改記錄很簡單,先按以上的方法找到相關(guān)記錄之后,給記錄賦值就可以了.
比如:
Recordset(密碼).value =
Recordset.Updata
需要注意的就是,在修改完成后,要調(diào)用Updata方法,這樣修改才能生效.
而添加記錄則可以用以下代碼來實(shí)現(xiàn):
Recordset.addnew
Recordset(用戶名).value = Admin
Recordset(密碼).value = Admin
Recordset.Updata
這里,先要調(diào)用Addnew方法,增加一條新記錄,然后對(duì)這個(gè)新記錄中的各字段賦值,最后再調(diào)用Updata方法.
到這里就差不多了,最后說一下上面提到的幾個(gè)方法.
Recordset.Open SQL語句,數(shù)據(jù)源,游標(biāo)類型,打開方法
SQL語句不用說了,就是Select那啥的,目的就是按要求從表中返回?cái)?shù)據(jù)
數(shù)據(jù)源就是一個(gè)打開之后的Connection對(duì)象.
填1就可以了
打開方法對(duì)應(yīng)了幾個(gè)常數(shù),具體哪幾個(gè)可以從對(duì)象瀏覽器里看。
對(duì)應(yīng)數(shù)值的意義:
1 只讀 2 獨(dú)占 3 可寫 4 自已可寫,別人可讀。
Connection.open 連接代碼,服務(wù)器用戶名,密碼。
關(guān)于vb 操作mdb數(shù)據(jù)庫的介紹到此就結(jié)束了，不知道你從中找到你需要的信息了嗎 ？如果你還想了解更多這方面的信息，記得收藏關(guān)注本站。
香港服務(wù)器選創(chuàng)新互聯(lián)，2H2G首月10元開通。
創(chuàng)新互聯(lián)（www.cdcxhl.com）互聯(lián)網(wǎng)服務(wù)提供商,擁有超過10年的服務(wù)器租用、服務(wù)器托管、云服務(wù)器、虛擬主機(jī)、網(wǎng)站系統(tǒng)開發(fā)經(jīng)驗(yàn)。專業(yè)提供云主機(jī)、虛擬主機(jī)、域名注冊、VPS主機(jī)、云服務(wù)器、香港云服務(wù)器、免備案服務(wù)器等。
本文標(biāo)題：VB操作MDB數(shù)據(jù)庫：快捷高效的數(shù)據(jù)處理(vb操作mdb數(shù)據(jù)庫)
鏈接分享：http://m.5511xx.com/article/dphhsdh.html
