1、首先,你得做一個(gè)oledbconnection對(duì)象,這個(gè)對(duì)象有個(gè)連接字符串的屬性,你需要設(shè)置
創(chuàng)新互聯(lián)建站自2013年創(chuàng)立以來(lái),先為自貢等服務(wù)建站,自貢等地企業(yè),進(jìn)行企業(yè)商務(wù)咨詢服務(wù)。為自貢企業(yè)網(wǎng)站制作PC+手機(jī)+微官網(wǎng)三網(wǎng)同步一站式服務(wù)解決您的所有建站問(wèn)題。
2、做一個(gè)oledbcommand對(duì)象,這個(gè)對(duì)象有個(gè)操作字符串(SQL語(yǔ)句)需要設(shè)置
3、打開(kāi)oledbconnection對(duì)象
4、執(zhí)行oledbcommand對(duì)象
5、關(guān)閉oledbconnection對(duì)象
程序結(jié)束,希望對(duì)你有幫助
在資源文件管理器中,找到數(shù)據(jù)庫(kù),屬性管理器中出現(xiàn)屬性,選擇不復(fù)制,或當(dāng)文件最新時(shí)才復(fù)制
在此本人使用ADO對(duì)象訪問(wèn)ACCESS數(shù)據(jù)庫(kù),但ADO對(duì)象在使用前你先要進(jìn)行添加,啟動(dòng)VB6后,單擊菜單“工程-引用”,打開(kāi)引用對(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è)字段,接下來(lái)就是設(shè)計(jì)界面了(自己設(shè)計(jì))
現(xiàn)在介紹如何使用代碼訪問(wè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查詢語(yǔ)言,這里為數(shù)據(jù)源,意思就是打開(kāi)數(shù)據(jù)庫(kù)“學(xué)生”中的表“表”
下面是將數(shù)據(jù)庫(kù)表中的字段值顯示出來(lái)的一個(gè)過(guò)程
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
要訪問(wèn)ACCESS數(shù)據(jù)庫(kù)就這樣可以實(shí)現(xiàn),訪問(wèn)SQL也差不多,稍有不同,回答完畢,如還有問(wèn)題請(qǐng)繼續(xù)和我聯(lián)系,本人是專使用VB+SQL/Delphi+SQL開(kāi)發(fā)數(shù)據(jù)庫(kù)管理系統(tǒng)的程序員。
imports system.data
imports system.data.oledb
private sub from_load(......)
dim myconnection as new oledbconnection _ ("provider=microsoft.jet.oledb.4.0;data source=AdminDB.mdb")
dim mydataset as new dataset()
dim myadapter as oledbdataadapter
myconnection.open()
myadapter=new oledbdataadapter("select * from AdminDB",myconnection)
myadapter.fill(mydataset,"AdminDB")
dim a as string
a=mydataset.tables("AdminDB").rows(0).item(1) '(讀取第1行第2列數(shù)據(jù))
myconnection.close()
end sub
建立數(shù)據(jù)集,綁定到窗口。不會(huì)的話,把要用的表從數(shù)據(jù)集拖到窗口,再刪除就行了
提取方法
數(shù)據(jù)及名稱.表格名稱.rows(2).item(3).tostring 就是了