在vb.net中如何查詢MDB數(shù)據(jù)庫(kù)的數(shù)據(jù)

以下是完整模塊

創(chuàng)新互聯(lián)公司主要從事成都網(wǎng)站設(shè)計(jì)、做網(wǎng)站、網(wǎng)頁設(shè)計(jì)、企業(yè)做網(wǎng)站、公司建網(wǎng)站等業(yè)務(wù)。立足成都服務(wù)寬城,十年網(wǎng)站建設(shè)經(jīng)驗(yàn),價(jià)格優(yōu)惠、服務(wù)專業(yè),歡迎來電咨詢建站服務(wù):028-86922220

Imports

System.Data

Imports

System.IO

Imports

System.Data.OleDb

Module

Module1

Public

cn

As

New

OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data

Source="

Application.StartupPath

"\mdb數(shù)據(jù)庫(kù)名字.mdb")

'定義連接

Public

DataBaseRST

As

Integer

'用來返回?cái)?shù)據(jù)庫(kù)執(zhí)行結(jié)果

Public

Function

DataModify(ByVal

str

As

String)

As

Boolean

'進(jìn)行數(shù)據(jù)庫(kù)修改操作

Dim

cmdinsert

As

New

OleDbCommand

Try

cmdinsert.CommandText

=

str

cmdinsert.Connection

=

cn

If

cn.State

=

ConnectionState.Closed

Then

cn.Open()

DataBaseRST

=

cmdinsert.ExecuteNonQuery()

'用來返回執(zhí)行的結(jié)果

cn.Close()

Return

True

Catch

ex

As

Exception

MessageBox.Show(Err.Description,

"Error",

MessageBoxButtons.OK,

MessageBoxIcon.Error)

Return

False

End

Try

End

Function

Public

Function

Search(ByVal

str

As

String,

ByVal

DGV

As

DataGridView)

As

Boolean

'查詢

str---查詢命令，DGV---DataGridView，用來顯示數(shù)據(jù)的控件

Dim

tb

As

New

DataTable

Try

Dim

ap

As

New

OleDb.OleDbDataAdapter(str,

cn)

ap.Fill(tb)

DGV.DataSource

=

tb

Return

True

Catch

ex

As

Exception

MessageBox.Show(Err.Description,

"Error",

MessageBoxButtons.OK,

MessageBoxIcon.Error)

Return

False

End

Try

End

Function

End

Module

'以下是調(diào)用方法

DataModify("

insert

into

aa

values

('1','2')")'-------這里是數(shù)據(jù)庫(kù)更新操作

Search("select

bb

from

aa",DataGridView1)'-----------這里是數(shù)據(jù)表查詢操作

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

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

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

3、打開oledbconnection對(duì)象

4、執(zhí)行oledbcommand對(duì)象

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

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

vb.net2008中怎樣調(diào)用資源文件中的MDB數(shù)據(jù)庫(kù)

在此本人使用ADO對(duì)象訪問ACCESS數(shù)據(jù)庫(kù)，但ADO對(duì)象在使用前你先要進(jìn)行添加，啟動(dòng)VB6后，單擊菜單“工程-引用”，打開引用對(duì)話框，選擇“Microsoft ActiveX Data Objects 2.0 Library”，將其勾選，（以2.0版本為例，實(shí)際可以選擇系統(tǒng)中的最高版本如本人的就是2.6版本），然后在當(dāng)前目錄下建立一個(gè)名為“學(xué)生”的ACCESS數(shù)據(jù)庫(kù)，其中表名為“表”,字段共有：學(xué)號(hào)，姓名，年齡，性別四個(gè)字段，接下來就是設(shè)計(jì)界面了(自己設(shè)計(jì))

現(xiàn)在介紹如何使用代碼訪問ACCESS數(shù)據(jù)庫(kù)：

在代碼窗口中編寫一個(gè)返回字符型的函數(shù)

Function Connection() As String

'數(shù)據(jù)庫(kù)的連接設(shè)置配置

Connection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" App.Path + "\學(xué)生.mdb"

End Function

該函數(shù)用于連接數(shù)據(jù)庫(kù)用

Private Form_Load()

Dim cnn As New ADODB.Connection

Dim Rst As New ADODB.Recordset

cnn.Open Connection

Set Rst = New ADODB.Recordset

Rst.Open "select * from 表", cnn, adOpenKeyset, adLockOptimistic

End Sub

注：

Dim cnn As New ADODB.Connection創(chuàng)建一個(gè)ADO數(shù)據(jù)庫(kù)連接對(duì)象

Dim Rst As New ADODB.Recordset為創(chuàng)建一個(gè)ADO數(shù)據(jù)庫(kù)記錄對(duì)象

select * from 表 是SQL查詢語言，這里為數(shù)據(jù)源，意思就是打開數(shù)據(jù)庫(kù)“學(xué)生”中的表“表”

下面是將數(shù)據(jù)庫(kù)表中的字段值顯示出來的一個(gè)過程

Sub View()

Dim i As Integer

For i = 0 To 2

Text1(i) = Rst.Fields(i)'text1為控件數(shù)組

Next

If (Rst.Fields(3) = True) Then

Text1(3) = "男"

Else

Text1(3) = "女"

End If

End Sub

要訪問ACCESS數(shù)據(jù)庫(kù)就這樣可以實(shí)現(xiàn)，訪問SQL也差不多，稍有不同，回答完畢，如還有問題請(qǐng)繼續(xù)和我聯(lián)系，本人是專使用VB+SQL/Delphi+SQL開發(fā)數(shù)據(jù)庫(kù)管理系統(tǒng)的程序員。

vb.net連接access數(shù)據(jù)庫(kù)問題

1，使用ADO connection對(duì)象

首先，要建立ADO引用，定義connection這個(gè)類，然后實(shí)例化對(duì)象。

代碼完成如下：

span?style="font-size:18px;"Dim?objCn?As?New?Connection,?objRs?As?New?Recordset????????

objCn.ConnectionString?=?"Provider=Microsoft.Jet.OLEDB.3.51;"??"Data?Source="??App.Path??"\實(shí)例01.mdb"

objCn.Open??

/span

2，使用ODBC數(shù)據(jù)源

首先，打開電腦上的ODBC數(shù)據(jù)源，建立關(guān)系。

步驟如下：

1），打開電腦上的ODBC數(shù)據(jù)源

如下圖所示：

? ? ? ? ?

2）點(diǎn)擊添加

3）命名

4）和數(shù)據(jù)庫(kù)源建立關(guān)系

5）用代碼實(shí)現(xiàn)連接

span?style="font-size:18px;"???????

dim?objCn?As?Connection??

Set?objCn?=?New?Connection??

objCn.Open?"DSN=實(shí)例2DSN"??

/span

3、ADO Data 控件創(chuàng)建連接

1）右擊data控件，選擇ADODC屬性

2）從三種連接資源中選擇一種。

使用data Link 文件：直接點(diǎn)擊瀏覽，找到包含連接字符串的.udl文件即可

使用ODBC數(shù)據(jù)源連接，單擊新建

選擇用戶數(shù)據(jù)庫(kù)，之后的操作跟2中步驟一樣。

使用連接字符串：?jiǎn)螕羯?/p>

測(cè)試連接

4、使用數(shù)據(jù)環(huán)境設(shè)計(jì)器創(chuàng)建數(shù)據(jù)庫(kù)連接

添加引用

右擊創(chuàng)建連接，在右擊想要連接的屬性，之后的操作跟data控件中使用字符串中的操作一致

用vb.net 怎樣建立一個(gè)mdb數(shù)據(jù)庫(kù)及一張表

首先在項(xiàng)目的VB.NET界面，使用菜單【項(xiàng)目】--【添加引用】--【COM】

選擇 ?Microsoft ADO Ext. 2.x for DDL and Security

然后單擊【確定】，完成引用。

完整代碼如下：

Imports?ADOX

Public?Class?Form1

Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click

'創(chuàng)建空的access數(shù)據(jù)庫(kù)文件--數(shù)據(jù)庫(kù)文件.mdb，密碼為123

Dim?Mycat?As?Catalog?=?New?Catalog()

Mycat.Create("Provider=Microsoft.Jet.OLEDB.4.0;Jet?OLEDB:Engine?Type=5;Data?Source=?數(shù)據(jù)庫(kù)文件.mdb;Jet?OLEDB:Database?Password=123")

'以下代碼創(chuàng)建一個(gè)名為“實(shí)驗(yàn)數(shù)據(jù)表”

Dim?MyTable?As?ADOX.Table?=?New?ADOX.Table?????????'定義新表

MyTable.Name?=?"實(shí)驗(yàn)數(shù)據(jù)表"????'表命名

'給表“實(shí)驗(yàn)數(shù)據(jù)表”?創(chuàng)建一個(gè)字符串字段，字段名“姓名”

MyTable.Columns.Append("姓名",?,?ADOX.DataTypeEnum.adWChar)

'給表“實(shí)驗(yàn)數(shù)據(jù)表”?創(chuàng)建一個(gè)整數(shù)字段，字段名“學(xué)號(hào)”

MyTable.Columns.Append("學(xué)號(hào)",?ADOX.DataTypeEnum.adInteger)????'追加一個(gè)數(shù)字型字段

'給字段“學(xué)號(hào)”創(chuàng)建一個(gè)主鍵“PimaryKey_Field”????????

MyTable.Keys.Append("學(xué)號(hào)",?ADOX.KeyTypeEnum.adKeyPrimary,?"學(xué)號(hào)")

Mycat.Tables.Append(MyTable)?'把所有的新字段追加到表

MyTable?=?Nothing

Mycat?=?Nothing

End?Sub

End?Class

VB.net 與ACCESS MDB 數(shù)據(jù)刷新問題

樓主您好。您的代碼缺少一句，所以它沒有時(shí)時(shí)更新。

添加：dbConnection.Close()

您只打開沒有關(guān)閉。所以第二次打開的還是第一次的數(shù)據(jù)集。

Function GetMDB_DataSource(ByVal sql As String) As DataTable

Dim DataAdapter As New OleDb.OleDbDataAdapter

Dim dtls As New DataTable

Dim dbConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Test.mdb;Persist Security Info=true"

Dim dbConnection As OleDb.OleDbConnection = New OleDb.OleDbConnection(dbConnectionString)

Try

dbConnection.Open()

DataAdapter.SelectCommand = New OleDb.OleDbCommand(sql, dbConnection)

DataAdapter.Fill(dtls)

dbConnection.Close()

Catch Ex As Exception

MsgBox(Err.Description, MsgBoxStyle.Critical, Err.Number)

Return New DataTable

End Try

Return dtls

End Function

希望對(duì)您有用！

網(wǎng)頁名稱：vb.netmdb模塊,vb類模塊
路徑分享：http://chinadenli.net/article14/hecjde.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供關(guān)鍵詞優(yōu)化、網(wǎng)站排名、手機(jī)網(wǎng)站建設(shè)、外貿(mào)建站、企業(yè)建站、品牌網(wǎng)站制作

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(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í)需注明來源： 創(chuàng)新互聯(lián)