vb.net建立數(shù)據(jù)庫 如何用vb建立數(shù)據(jù)庫

VB.NET創(chuàng)建sql數(shù)據(jù)庫問題

我們需要引用ADO.具體的方法是,在"工程" -- "引用" 中,找到"Microsoft ActiveX Data Object *.* Library",這里的"*.*"是指的時(shí)ADO的版本號(hào),一般來說,應(yīng)用程序或ActiveX控件都具有向下兼容性,所以我們盡可能選擇比較新的版本.以確保程序在能識(shí)別舊版本Access的同時(shí),也能識(shí)別較新版本的Access.

成都創(chuàng)新互聯(lián)是一家以網(wǎng)絡(luò)技術(shù)公司，為中小企業(yè)提供網(wǎng)站維護(hù)、成都網(wǎng)站設(shè)計(jì)、網(wǎng)站建設(shè)、網(wǎng)站備案、服務(wù)器租用、主機(jī)域名、軟件開發(fā)、小程序制作等企業(yè)互聯(lián)網(wǎng)相關(guān)業(yè)務(wù)，是一家有著豐富的互聯(lián)網(wǎng)運(yùn)營推廣經(jīng)驗(yàn)的科技公司，有著多年的網(wǎng)站建站經(jīng)驗(yàn)，致力于幫助中小企業(yè)在互聯(lián)網(wǎng)讓打出自已的品牌和口碑，讓企業(yè)在互聯(lián)網(wǎng)上打開一個(gè)面向全國乃至全球的業(yè)務(wù)窗口：建站溝通電話：13518219792

然后我們需要在程序中創(chuàng)建一個(gè)對(duì)象.就好比我們?cè)诖绑w上添加一個(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 表名 [Where 條件]

這里的條件可以省略.且字段名也可以用"*"來代替所有字段.

需要注意的是,如果你用(1)中的方法打開,那么(2)后面顯示的代碼就不能再用在(1)中.因?yàn)?1)里并沒有打開[用戶名]字段,所以這一句Recordset("密碼")就沒有值存在,還有可能出錯(cuò).

后面的條件,可以用"="、""、""等運(yùn)算符.比如 "Where ID 32".(這里假設(shè)[ID]為數(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 "條件"

如:[用方法(2)打開表之后]

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)記錄之后,給記錄賦值就可以了.

比如:[(修改密碼)按方法(1)打開表之后]

Recordset("密碼").value = "123456"

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ì)象.

去他媽的游標(biāo)類型,填1就可以了 [偷笑ing]

打開方法對(duì)應(yīng)了幾個(gè)常數(shù),具體哪幾個(gè)可以從對(duì)象瀏覽器里看.

對(duì)應(yīng)數(shù)值的意義:

1 只讀 2 獨(dú)占 3 可寫 4 自已可寫,別人可讀

Connection.open 連接代碼,服務(wù)器用戶名,密碼

這里的連接代碼就不在多說了,服務(wù)器用戶名,密碼只有在連接遠(yuǎn)程數(shù)據(jù)庫時(shí)才用到.

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

VB.NET如何生成ACCESS數(shù)據(jù)庫？并生成表。 VB.NET

我的需求就是先填寫好表和表中字段的名稱，然后點(diǎn)擊一個(gè)按鈕，就在指定的路徑生成一個(gè)ACCESS數(shù)據(jù)庫。而不是事先手動(dòng)創(chuàng)建。 請(qǐng)知道的各位附上完整代碼，本人剛接觸VB.NET，有些東西還不是很了解。謝謝。

當(dāng)前文章：vb.net建立數(shù)據(jù)庫 如何用vb建立數(shù)據(jù)庫
網(wǎng)頁地址：http://m.jiaotiyi.com/article/hiogej.html