oledb的使用網(wǎng)上的確很多.\x0d\x0a如果只是查詢. 寫入. 刪除,我們常用的就是\x0d\x0aOleDbConnection '用于寫數(shù)據(jù)庫的連接\x0d\x0aOleDbCommand '用于數(shù)據(jù)的操作 接收SQL語句 并執(zhí)行\(zhòng)x0d\x0aOleDbDataReader '查詢了,我們就用這個類來讀取查詢的對象\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 這個是不用新建的不能用New \x0d\x0adim rd as OleDbDataReader=cmd.ExecuteReader'cmd.ExecuteReader 方法就是讀取查詢的內(nèi)容\x0d\x0acmd.ExecuteNonQuery用于執(zhí)行操作 返回變動的條數(shù) ,一般用于 添加 刪除 更新 等其它操作\x0d\x0a \x0d\x0a其實就這些了,就是要學點SQL語句就行了.\x0d\x0a標準執(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ò)推廣、微信平臺小程序開發(fā)、綏棱網(wǎng)絡(luò)營銷、綏棱企業(yè)策劃、綏棱品牌公關(guān)、搜索引擎seo、人物專訪、企業(yè)宣傳片、企業(yè)代運營等,從售前售中售后,我們都將竭誠為您服務(wù),您的肯定,是我們最大的嘉獎;創(chuàng)新互聯(lián)建站為所有大學生創(chuàng)業(yè)者提供綏棱建站搭建服務(wù),24小時服務(wù)熱線:18980820575,官方網(wǎng)址:m.newbst.com
在此本人使用ADO對象訪問ACCESS數(shù)據(jù)庫,但ADO對象在使用前你先要進行添加,啟動VB6后,單擊菜單“工程-引用”,打開引用對話框,選擇“Microsoft ActiveX Data Objects 2.0 Library”,將其勾選,(以2.0版本為例,實際可以選擇系統(tǒng)中的最高版本如本人的就是2.6版本),然后在當前目錄下建立一個名為“學生”的ACCESS數(shù)據(jù)庫,其中表名為“表”,字段共有:學號,姓名,年齡,性別四個字段,接下來就是設(shè)計界面了(自己設(shè)計)
現(xiàn)在介紹如何使用代碼訪問ACCESS數(shù)據(jù)庫:
在代碼窗口中編寫一個返回字符型的函數(shù)
Function Connection() As String
'數(shù)據(jù)庫的連接設(shè)置配置
Connection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" App.Path + "\學生.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)建一個ADO數(shù)據(jù)庫連接對象
Dim Rst As New ADODB.Recordset為創(chuàng)建一個ADO數(shù)據(jù)庫記錄對象
select * from 表 是SQL查詢語言,這里為數(shù)據(jù)源,意思就是打開數(shù)據(jù)庫“學生”中的表“表”
下面是將數(shù)據(jù)庫表中的字段值顯示出來的一個過程
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ù)庫就這樣可以實現(xiàn),訪問SQL也差不多,稍有不同,回答完畢,如還有問題請繼續(xù)和我聯(lián)系,本人是專使用VB+SQL/Delphi+SQL開發(fā)數(shù)據(jù)庫管理系統(tǒng)的程序員。
使用向?qū)гO(shè)置數(shù)據(jù)庫連接的好處是省去寫代碼的過程,弊端是不易更改連接
使用代碼連接的好處是需要編寫代碼,但容易更改和維護
如:數(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() 返回單個結(jié)果
cmd.executereader() 返回結(jié)果集
/*以上是執(zhí)行sql語句的方法*/
cn.close() /*關(guān)閉連接*/
你要做用戶驗證的話,先根據(jù)用戶名查詢對應(yīng)的密碼,再判斷用戶輸入的密碼和查詢結(jié)果是不是相同就可以了
用cmd.executescalar() 這個方法
網(wǎng)頁標題:vb.net數(shù)據(jù)庫調(diào)用 vba查詢數(shù)據(jù)庫
URL標題:http://m.newbst.com/article6/doiheog.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供外貿(mào)網(wǎng)站建設(shè)、靜態(tài)網(wǎng)站、標簽優(yōu)化、Google、面包屑導(dǎo)航、做網(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)