使用VB语言建立MDB表SQL数据库教程 (vb 建立mdb表sql数据库)
VB语言是一种广泛使用的编程语言，特别适用于Windows平台下的软件开发。在VB语言中，建立MDB表SQL数据库的方法非常简单，下面将介绍具体的教程。
之一步：创建MDB表SQL数据库
需要在VB语言中创建一个MDB表SQL数据库，以便存储数据。可以用以下代码命令创建：
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数据库的名称，可以根据实际情况进行修改。表中包含了id、firstname、lastname三个字段，也可以根据需要进行修改。
第二步：插入数据
当MDB表SQL数据库创建完成后，可以向其中插入数据。以下是一个样例代码：
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(“lastname”) = “Doe”
rs.Update
其中，rs.Open将table1表中的所有数据读出，rs.AddNew表示新添加一条数据，rs.Update表示更新数据。
第三步：查询数据
查询MDB表SQL数据库数据，可以使用以下代码：
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(“lastname”).Value
rs.MoveNext
Loop
其中，rs.Open将table1表中的所有数据读出，rs.EOF表示读到数据的结束。rs.Fields(“id”).Value表示数据库中的id值，rs.Fields(“firstname”).Value表示数据库中的firstname值，rs.Fields(“lastname”).Value表示数据库中的lastname值。
第四步：修改数据
修改MDB表SQL数据库中的数据，可以使用以下代码：
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的数据读出，rs.Fields(“firstname”).Value修改数据库中的firstname值为Mary，rs.Update将修改的值保存到数据库中。
第五步：删除数据
从MDB表SQL数据库中删除数据，可以使用以下代码：
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的数据读出，rs.Delete将数据从数据库中删除。
使用VB语言建立MDB表SQL数据库可以方便地存储数据并对数据进行增、删、改、查操作。以上就是简单的教程，希望对大家有所帮助。
相关问题拓展阅读：
VB创建数据库表
我不是回答过你这个问题的答案了吗？ 采纳我的答案！
一、 创建数据库：
在DAO中用CreatDataBase方法可以根据用户需求动态的创建数据库。这一点在程序中是非常有用的。用户芹歼可以根据要求实时建立数据库。建立过程如下：
Private Sub Com_creat_Click()
On Error GoTo Err100
CreatDataBase “数据库名称.mdb” ，dbLangGeneral
Msgbox “数判首散据库建立完毕”
Exit Sub
Err100:
MsgBox “不能建立数据库! ” & vbCrLf & vbCrLf & Err.Description, vbInformation
End Sub
这样，数据库便在当前默认的路径下建立了。
二、 创建表与字段：
建立数据库后，则需要在该数据库中建立表，这要用到TableDef 对象。先定义一个TableDef类型的对象，然后用TableDef中Append方掘氏法将之追加到数据库当中去。并且同时定义一个Field对象，用CreatFiele的方法创建一个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 & “\数据库名称.mdb” ,0, False)
Set NewTable = DefDataBase.CreateTableDef(“表名”)
Set NewField = DefTable.CreateField( “字段名” , dbText ,6) ′创建一个字符型的字段，长度为6个字符
DefTableFields.Append NewField ′字段追加
DefDatabase.TableDefs.Append NewTable ′表追加
Msgbox ” 表建立完毕 “
Exit Sub
Err100:
MsgBox “对不起，不能建立表。请先再建表前建立数据库？”, 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
创建数据枣陆库：
set
f
=
dbengine.createdatabase(app.path
+
“\db.mdb”,
dblangchinesesimplified)’（仅适用于access）
创建表要用到sql语句，如果你有这方面的基础就会很容易做到的。
首先，连接到数据库：
set
db
=
opendatabase(app.path
+
“\db.mdb”)
然后执行创建表的sql语句：
db.execute
sqlstring’sqlstring是创建表的sql语粗谈句
如果你没有sql创建表的语句基础，建议先学一学，很简单的。
create
table
……
如果要q，用百度hi给我留言
1楼的，这叫朝三暮四。。。
vb 建立mdb表sql数据库的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb 建立mdb表sql数据库,使用VB语言建立MDB表SQL数据库教程,VB创建数据库表的信息别忘了在本站进行查找喔。
