vb.net數(shù)據(jù)庫調(diào)用 vba查詢數(shù)據(jù)庫

VB.NET通過調(diào)用模塊怎么建立access數(shù)據(jù)庫?

oledb的使用網(wǎng)上的確很多.\x0d\x0a如果只是查詢. 寫入. 刪除,我們常用的就是\x0d\x0aOleDbConnection '用于寫數(shù)據(jù)庫的連接\x0d\x0aOleDbCommand '用于數(shù)據(jù)的操作 接收SQL語句 并執(zhí)行\(zhòng)x0d\x0aOleDbDataReader '查詢了,我們就用這個(gè)類來讀取查詢的對(duì)象\x0d\x0a1).OleDbConnection \x0d\x0a dim conn as new OleDbConnection("Provider = Microsoft.Jet.OLEDB.4.0;Data Source =數(shù)據(jù)庫的路徑")'連接字符串一般就這樣 \x0d\x0a 查詢前在打開 \x0d\x0a conn.open\x0d\x0a 2).OleDbCommand \x0d\x0a dim cmd as new OleDbCommand ("SQL語句",conn)'SQL語句決定了你是查詢寫入還是更新刪除\x0d\x0a '''\x0d\x0a如果是查詢,你還要用到OleDbDataReader \x0d\x0a 這個(gè)是不用新建的不能用New \x0d\x0adim rd as OleDbDataReader=cmd.ExecuteReader'cmd.ExecuteReader 方法就是讀取查詢的內(nèi)容\x0d\x0acmd.ExecuteNonQuery用于執(zhí)行操作 返回變動(dòng)的條數(shù) ,一般用于 添加 刪除 更新 等其它操作\x0d\x0a \x0d\x0a其實(shí)就這些了,就是要學(xué)點(diǎn)SQL語句就行了.\x0d\x0a標(biāo)準(zhǔn)執(zhí)行過程就是\x0d\x0a Dim conn As New OleDbConnection("連接字符串")\x0d\x0a conn.Open()\x0d\x0a Dim cmd As New OleDbCommand("SQL語句", conn)\x0d\x0a '如果是寫入 更新 刪除 則\x0d\x0a cmd.ExecuteNonQuery()\x0d\x0a 否則\x0d\x0a Dim rd As OleDbDataReader = cmd.ExecuteReader\x0d\x0a \x0d\x0a If rd.Read Then\x0d\x0a Dim d As Object = rd.Item("字段名")\x0d\x0a End If\x0d\x0a 結(jié)束如果\x0d\x0a rd.Close()\x0d\x0a cmd.Dispose()\x0d\x0a conn.Close()\x0d\x0a \x0d\x0a上面要有 Imports System.Data.OleDb

創(chuàng)新互聯(lián)建站專注為客戶提供全方位的互聯(lián)網(wǎng)綜合服務(wù)，包含不限于網(wǎng)站制作、成都網(wǎng)站建設(shè)、綏棱網(wǎng)絡(luò)推廣、微信平臺(tái)小程序開發(fā)、綏棱網(wǎng)絡(luò)營銷、綏棱企業(yè)策劃、綏棱品牌公關(guān)、搜索引擎seo、人物專訪、企業(yè)宣傳片、企業(yè)代運(yùn)營等，從售前售中售后，我們都將竭誠為您服務(wù)，您的肯定，是我們最大的嘉獎(jiǎng)；創(chuàng)新互聯(lián)建站為所有大學(xué)生創(chuàng)業(yè)者提供綏棱建站搭建服務(wù)，24小時(shí)服務(wù)熱線：18980820575，官方網(wǎng)址：www.cdcxhl.com

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

在此本人使用ADO對(duì)象訪問ACCESS數(shù)據(jù)庫，但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ù)庫，其中表名為“表”,字段共有：學(xué)號(hào)，姓名，年齡，性別四個(gè)字段，接下來就是設(shè)計(jì)界面了(自己設(shè)計(jì))

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

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

Function Connection() As String

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

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

End Function

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

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ù)庫連接對(duì)象

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

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

下面是將數(shù)據(jù)庫表中的字段值顯示出來的一個(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ù)庫就這樣可以實(shí)現(xiàn)，訪問SQL也差不多，稍有不同，回答完畢，如還有問題請(qǐng)繼續(xù)和我聯(lián)系，本人是專使用VB+SQL/Delphi+SQL開發(fā)數(shù)據(jù)庫管理系統(tǒng)的程序員。

VB.net如何調(diào)用ACCESS數(shù)據(jù)庫中的數(shù)據(jù)

使用向?qū)гO(shè)置數(shù)據(jù)庫連接的好處是省去寫代碼的過程，弊端是不易更改連接

使用代碼連接的好處是需要編寫代碼，但容易更改和維護(hù)

如：數(shù)據(jù)庫的位置變化，直接更改代碼顯然容易一些

代碼：

imports System.data.oledb /*引用命名空間*/

dim cnstr = "provider=microsoft.jet.oledb.4.0,data source=Access數(shù)據(jù)庫文件位置" /*定義連接字符串*/

dim cn as oledbconnection = new oledbconnection(cnstr) /*定義連接*/

cn.open() /*打開連接*/

sqlstr="select... from... 或其他sql"

dim cmd as sqlcommand=new sqlcommand()

cmd.commandtext=sqlstr

cmd.connection=cn

/*以上是建立執(zhí)行語句*/

cmd.executenonquery() 不返回結(jié)果

cmd.executescalar() 返回單個(gè)結(jié)果

cmd.executereader() 返回結(jié)果集

/*以上是執(zhí)行sql語句的方法*/

cn.close() /*關(guān)閉連接*/

你要做用戶驗(yàn)證的話，先根據(jù)用戶名查詢對(duì)應(yīng)的密碼，再判斷用戶輸入的密碼和查詢結(jié)果是不是相同就可以了

用cmd.executescalar() 這個(gè)方法

網(wǎng)站標(biāo)題：vb.net數(shù)據(jù)庫調(diào)用 vba查詢數(shù)據(jù)庫
標(biāo)題來源：http://m.jiaotiyi.com/article/doiheog.html