建站
咨詢
售后
建站咨詢
新聞中心
VB語言是一種廣泛使用的編程語言，特別適用于Windows平臺下的軟件開發(fā)。在VB語言中，建立MDB表SQL數(shù)據(jù)庫的方法非常簡單，下面將介紹具體的教程。
成都創(chuàng)新互聯(lián)-專業(yè)網(wǎng)站定制、快速模板網(wǎng)站建設(shè)、高性價比揚州網(wǎng)站開發(fā)、企業(yè)建站全套包干低至880元,成熟完善的模板庫,直接使用。一站式揚州網(wǎng)站制作公司更省心,省錢,快速模板網(wǎng)站建設(shè)找我們，業(yè)務(wù)覆蓋揚州地區(qū)。費用合理售后完善，十載實體公司更值得信賴。
之一步：創(chuàng)建MDB表SQL數(shù)據(jù)庫
需要在VB語言中創(chuàng)建一個MDB表SQL數(shù)據(jù)庫，以便存儲數(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ù)庫的名稱，可以根據(jù)實際情況進行修改。表中包含了id、firstname、lastname三個字段，也可以根據(jù)需要進行修改。
第二步：插入數(shù)據(jù)
當MDB表SQL數(shù)據(jù)庫創(chuàng)建完成后，可以向其中插入數(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
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ù)庫數(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ù)庫中的id值，rs.Fields(“firstname”).Value表示數(shù)據(jù)庫中的firstname值，rs.Fields(“l(fā)astname”).Value表示數(shù)據(jù)庫中的lastname值。
第四步：修改數(shù)據(jù)
修改MDB表SQL數(shù)據(jù)庫中的數(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ù)庫中的firstname值為Mary，rs.Update將修改的值保存到數(shù)據(jù)庫中。
第五步：刪除數(shù)據(jù)
從MDB表SQL數(shù)據(jù)庫中刪除數(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ù)庫中刪除。
使用VB語言建立MDB表SQL數(shù)據(jù)庫可以方便地存儲數(shù)據(jù)并對數(shù)據(jù)進行增、刪、改、查操作。以上就是簡單的教程，希望對大家有所幫助。
相關(guān)問題拓展閱讀：
- VB創(chuàng)建數(shù)據(jù)庫表
VB創(chuàng)建數(shù)據(jù)庫表
我不是回答過你這個問題的答案了嗎？ 采納我的答案！
一、 創(chuàng)建數(shù)據(jù)庫：
在DAO中用CreatDataBase方法可以根據(jù)用戶需求動態(tài)的創(chuàng)建數(shù)據(jù)庫。這一點在程序中是非常有用的。用戶芹殲可以根據(jù)要求實時建立數(shù)據(jù)庫。建立過程如下：
Private Sub Com_creat_Click()
On Error GoTo Err100
CreatDataBase “數(shù)據(jù)庫名稱.mdb” ，dbLangGeneral
Msgbox “數(shù)判首散據(jù)庫建立完畢”
Exit Sub
Err100:
MsgBox “不能建立數(shù)據(jù)庫! ” & vbCrLf & vbCrLf & Err.Description, vbInformation
End Sub
這樣，數(shù)據(jù)庫便在當前默認的路徑下建立了。
二、 創(chuàng)建表與字段：
建立數(shù)據(jù)庫后，則需要在該數(shù)據(jù)庫中建立表，這要用到TableDef 對象。先定義一個TableDef類型的對象，然后用TableDef中Append方掘氏法將之追加到數(shù)據(jù)庫當中去。并且同時定義一個Field對象，用CreatFiele的方法創(chuàng)建一個Field對象，向表中添加字段。例如:
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ù)庫名稱.mdb” ,0, False)
Set NewTable = DefDataBase.CreateTableDef(“表名”)
Set NewField = DefTable.CreateField( “字段名” , dbText ,6) ′創(chuàng)建一個字符型的字段，長度為6個字符
DefTableFields.Append NewField ′字段追加
DefDatabase.TableDefs.Append NewTable ′表追加
Msgbox ” 表建立完畢 “
Exit Sub
Err100:
MsgBox “對不起，不能建立表。請先再建表前建立數(shù)據(jù)庫？”, vbCritical
End Sub
代頃皮輪碼很簡雀信單，一看就能明白！
‘引用對象庫 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ù)棗陸庫：
set
f
=
dbengine.createdatabase(app.path
+
“\db.mdb”,
dblangchinesesimplified)’（僅適用于access）
創(chuàng)建表要用到sql語句，如果你有這方面的基礎(chǔ)就會很容易做到的。
首先，連接到數(shù)據(jù)庫：
set
db
=
opendatabase(app.path
+
“\db.mdb”)
然后執(zhí)行創(chuàng)建表的sql語句：
db.execute
sqlstring’sqlstring是創(chuàng)建表的sql語粗談句
如果你沒有sql創(chuàng)建表的語句基礎(chǔ)，建議先學一學，很簡單的。
create
table
……
如果要q，用百度hi給我留言
1樓的，這叫朝三暮四。。。
vb 建立mdb表sql數(shù)據(jù)庫的介紹就聊到這里吧，感謝你花時間閱讀本站內(nèi)容，更多關(guān)于vb 建立mdb表sql數(shù)據(jù)庫,使用VB語言建立MDB表SQL數(shù)據(jù)庫教程,VB創(chuàng)建數(shù)據(jù)庫表的信息別忘了在本站進行查找喔。
香港服務(wù)器選創(chuàng)新互聯(lián)，2H2G首月10元開通。
創(chuàng)新互聯(lián)（www.cdcxhl.com）互聯(lián)網(wǎng)服務(wù)提供商,擁有超過10年的服務(wù)器租用、服務(wù)器托管、云服務(wù)器、虛擬主機、網(wǎng)站系統(tǒng)開發(fā)經(jīng)驗。專業(yè)提供云主機、虛擬主機、域名注冊、VPS主機、云服務(wù)器、香港云服務(wù)器、免備案服務(wù)器等。
網(wǎng)站欄目：使用VB語言建立MDB表SQL數(shù)據(jù)庫教程(vb建立mdb表sql數(shù)據(jù)庫)
文章URL：http://m.fisionsoft.com.cn/article/cdipego.html
