使用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。内容未经允许不得转载,或转载时需注明来源: 创新互联