使用VB语言建立MDB表SQL数据库教程(vb建立mdb表sql数据库)

VB语言是一种广泛使用的编程语言，特别适用于Windows平台下的软件开发。在VB语言中，建立MDB表SQL数据库的方法非常简单，下面将介绍具体的教程。

成都创新互联-专业网站定制、快速模板网站建设、高性价比扬州网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式扬州网站制作公司更省心,省钱,快速模板网站建设找我们，业务覆盖扬州地区。费用合理售后完善，十载实体公司更值得信赖。

之一步：创建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创建数据库表

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创建数据库表的信息别忘了在本站进行查找喔。

香港服务器选创新互联，2H2G首月10元开通。
创新互联（www.cdcxhl.com）互联网服务提供商,拥有超过10年的服务器租用、服务器托管、云服务器、虚拟主机、网站系统开发经验。专业提供云主机、虚拟主机、域名注册、VPS主机、云服务器、香港云服务器、免备案服务器等。

名称栏目：使用VB语言建立MDB表SQL数据库教程(vb建立mdb表sql数据库)
链接地址：http://www.shufengxianlan.com/qtweb/news8/67808.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联