建站
咨詢
售后
建站咨詢
新聞中心
VB語(yǔ)言是一種廣泛使用的編程語(yǔ)言，特別適用于Windows平臺(tái)下的軟件開(kāi)發(fā)。在VB語(yǔ)言中，建立MDB表SQL數(shù)據(jù)庫(kù)的方法非常簡(jiǎn)單，下面將介紹具體的教程。
成都創(chuàng)新互聯(lián)-專業(yè)網(wǎng)站定制、快速模板網(wǎng)站建設(shè)、高性價(jià)比揚(yáng)州網(wǎng)站開(kāi)發(fā)、企業(yè)建站全套包干低至880元,成熟完善的模板庫(kù),直接使用。一站式揚(yáng)州網(wǎng)站制作公司更省心,省錢(qián),快速模板網(wǎng)站建設(shè)找我們，業(yè)務(wù)覆蓋揚(yáng)州地區(qū)。費(fèi)用合理售后完善，十載實(shí)體公司更值得信賴。
之一步：創(chuàng)建MDB表SQL數(shù)據(jù)庫(kù)
需要在VB語(yǔ)言中創(chuàng)建一個(gè)MDB表SQL數(shù)據(jù)庫(kù)，以便存儲(chǔ)數(shù)據(jù)?？梢杂靡韵麓a命令創(chuàng)建：
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
con.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\test.mdb;Persist Security Info=False”
Set rs = con.Execute(“CREATE TABLE table1 (id INT, firstname CHAR, lastname CHAR)”)
其中，test.mdb是MDB表SQL數(shù)據(jù)庫(kù)的名稱，可以根據(jù)實(shí)際情況進(jìn)行修改。表中包含了id、firstname、lastname三個(gè)字段，也可以根據(jù)需要進(jìn)行修改。
第二步：插入數(shù)據(jù)
當(dāng)MDB表SQL數(shù)據(jù)庫(kù)創(chuàng)建完成后，可以向其中插入數(shù)據(jù)。以下是一個(gè)樣例代碼：
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
con.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\test.mdb;Persist Security Info=False”
rs.Open “SELECT * FROM table1”, con, adOpenDynamic, adLockOptimistic
rs.AddNew
rs(“id”) = 1
rs(“firstname”) = “John”
rs(“l(fā)astname”) = “Doe”
rs.Update
其中，rs.Open將table1表中的所有數(shù)據(jù)讀出，rs.AddNew表示新添加一條數(shù)據(jù)，rs.Update表示更新數(shù)據(jù)。
第三步：查詢數(shù)據(jù)
查詢MDB表SQL數(shù)據(jù)庫(kù)數(shù)據(jù)，可以使用以下代碼：
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
con.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\test.mdb;Persist Security Info=False”
rs.Open “SELECT * FROM table1”, con, adOpenDynamic, adLockOptimistic
Do While Not rs.EOF
Debug.Print rs.Fields(“id”).Value, rs.Fields(“firstname”).Value, rs.Fields(“l(fā)astname”).Value
rs.MoveNext
Loop
其中，rs.Open將table1表中的所有數(shù)據(jù)讀出，rs.EOF表示讀到數(shù)據(jù)的結(jié)束。rs.Fields(“id”).Value表示數(shù)據(jù)庫(kù)中的id值，rs.Fields(“firstname”).Value表示數(shù)據(jù)庫(kù)中的firstname值，rs.Fields(“l(fā)astname”).Value表示數(shù)據(jù)庫(kù)中的lastname值。
第四步：修改數(shù)據(jù)
修改MDB表SQL數(shù)據(jù)庫(kù)中的數(shù)據(jù)，可以使用以下代碼：
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
con.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\test.mdb;Persist Security Info=False”
rs.Open “SELECT * FROM table1 WHERE id=1”, con, adOpenDynamic, adLockOptimistic
rs.Fields(“firstname”).Value = “Mary”
rs.Update
其中，rs.Open將table1表中id=1的數(shù)據(jù)讀出，rs.Fields(“firstname”).Value修改數(shù)據(jù)庫(kù)中的firstname值為Mary，rs.Update將修改的值保存到數(shù)據(jù)庫(kù)中。
第五步：刪除數(shù)據(jù)
從MDB表SQL數(shù)據(jù)庫(kù)中刪除數(shù)據(jù)，可以使用以下代碼：
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
con.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\test.mdb;Persist Security Info=False”
rs.Open “SELECT * FROM table1 WHERE id=1”, con, adOpenDynamic, adLockOptimistic
rs.Delete
其中，rs.Open將table1表中id=1的數(shù)據(jù)讀出，rs.Delete將數(shù)據(jù)從數(shù)據(jù)庫(kù)中刪除。
使用VB語(yǔ)言建立MDB表SQL數(shù)據(jù)庫(kù)可以方便地存儲(chǔ)數(shù)據(jù)并對(duì)數(shù)據(jù)進(jìn)行增、刪、改、查操作。以上就是簡(jiǎn)單的教程，希望對(duì)大家有所幫助。
相關(guān)問(wèn)題拓展閱讀：
- VB創(chuàng)建數(shù)據(jù)庫(kù)表
VB創(chuàng)建數(shù)據(jù)庫(kù)表
我不是回答過(guò)你這個(gè)問(wèn)題的答案了嗎？ 采納我的答案！
一、 創(chuàng)建數(shù)據(jù)庫(kù)：
在DAO中用CreatDataBase方法可以根據(jù)用戶需求動(dòng)態(tài)的創(chuàng)建數(shù)據(jù)庫(kù)。這一點(diǎn)在程序中是非常有用的。用戶芹殲可以根據(jù)要求實(shí)時(shí)建立數(shù)據(jù)庫(kù)。建立過(guò)程如下：
Private Sub Com_creat_Click()
On Error GoTo Err100
CreatDataBase “數(shù)據(jù)庫(kù)名稱.mdb” ，dbLangGeneral
Msgbox “數(shù)判首散據(jù)庫(kù)建立完畢”
Exit Sub
Err100:
MsgBox “不能建立數(shù)據(jù)庫(kù)! ” & vbCrLf & vbCrLf & Err.Description, vbInformation
End Sub
這樣，數(shù)據(jù)庫(kù)便在當(dāng)前默認(rèn)的路徑下建立了。
二、 創(chuàng)建表與字段：
建立數(shù)據(jù)庫(kù)后，則需要在該數(shù)據(jù)庫(kù)中建立表，這要用到TableDef 對(duì)象。先定義一個(gè)TableDef類型的對(duì)象，然后用TableDef中Append方掘氏法將之追加到數(shù)據(jù)庫(kù)當(dāng)中去。并且同時(shí)定義一個(gè)Field對(duì)象，用CreatFiele的方法創(chuàng)建一個(gè)Field對(duì)象，向表中添加字段。例如:
Private Sub Com_table_Click()
On Error GoTo Err100
Dim Defdb As DataBase
Dim NewTable As TableDef
Dim NewField As Field
Set Defdb = Workspaces(0).OpenDatabase (App.path & “\數(shù)據(jù)庫(kù)名稱.mdb” ,0, False)
Set NewTable = DefDataBase.CreateTableDef(“表名”)
Set NewField = DefTable.CreateField( “字段名” , dbText ,6) ′創(chuàng)建一個(gè)字符型的字段，長(zhǎng)度為6個(gè)字符
DefTableFields.Append NewField ′字段追加
DefDatabase.TableDefs.Append NewTable ′表追加
Msgbox ” 表建立完畢 “
Exit Sub
Err100:
MsgBox “對(duì)不起，不能建立表。請(qǐng)先再建表前建立數(shù)據(jù)庫(kù)？”, vbCritical
End Sub
代頃皮輪碼很簡(jiǎn)雀信單，一看就能明白！
‘引用對(duì)象庫(kù) Microsoft ActiveX Data Objects 2.5 Library
Private Sub Form_Load()
Dim myDB As DAO.Database
Set myDB = DAO.Workspaces(0).CreateDatabase(“握告mydb.mdb”, dbLangGeneral)
Dim str_SQL As String
str_SQL = “Create Table NewTable1(Field1 Text(10),Field2 Short)”
myDB.Execute str_SQL
str_SQL = “Create Table NewTable2(Field1 Text(10),Field2 Short)”
myDB.Execute str_SQL
myDB.Close
End Sub
引用：巖巖碰microsoft
dao
3.6
object
library
創(chuàng)建數(shù)據(jù)棗陸庫(kù)：
set
f
=
dbengine.createdatabase(app.path
+
“\db.mdb”,
dblangchinesesimplified)’（僅適用于access）
創(chuàng)建表要用到sql語(yǔ)句，如果你有這方面的基礎(chǔ)就會(huì)很容易做到的。
首先，連接到數(shù)據(jù)庫(kù)：
set
db
=
opendatabase(app.path
+
“\db.mdb”)
然后執(zhí)行創(chuàng)建表的sql語(yǔ)句：
db.execute
sqlstring’sqlstring是創(chuàng)建表的sql語(yǔ)粗談句
如果你沒(méi)有sql創(chuàng)建表的語(yǔ)句基礎(chǔ)，建議先學(xué)一學(xué)，很簡(jiǎn)單的。
create
table
……
如果要q，用百度hi給我留言
1樓的，這叫朝三暮四。。。
vb 建立mdb表sql數(shù)據(jù)庫(kù)的介紹就聊到這里吧，感謝你花時(shí)間閱讀本站內(nèi)容，更多關(guān)于vb 建立mdb表sql數(shù)據(jù)庫(kù),使用VB語(yǔ)言建立MDB表SQL數(shù)據(jù)庫(kù)教程,VB創(chuàng)建數(shù)據(jù)庫(kù)表的信息別忘了在本站進(jìn)行查找喔。
香港服務(wù)器選創(chuàng)新互聯(lián)，2H2G首月10元開(kāi)通。
創(chuàng)新互聯(lián)（www.cdcxhl.com）互聯(lián)網(wǎng)服務(wù)提供商,擁有超過(guò)10年的服務(wù)器租用、服務(wù)器托管、云服務(wù)器、虛擬主機(jī)、網(wǎng)站系統(tǒng)開(kāi)發(fā)經(jīng)驗(yàn)。專業(yè)提供云主機(jī)、虛擬主機(jī)、域名注冊(cè)、VPS主機(jī)、云服務(wù)器、香港云服務(wù)器、免備案服務(wù)器等。
當(dāng)前文章：使用VB語(yǔ)言建立MDB表SQL數(shù)據(jù)庫(kù)教程(vb建立mdb表sql數(shù)據(jù)庫(kù))
本文網(wǎng)址：http://www.dlmjj.cn/article/cdipego.html
