用VB创建Access数据库结构|雨林木风下载站

Microsoft Office Access是由微软发布的关系数据库管理系统。它结合了 MicrosoftJet Database Engine 和图形用户界面两项特点，是 Microsoft Office 的系统程序之一。Microsoft Office Access是微软把数据库引擎的图形用户界面和软件开发工具结合在一起的一个数据库管理系统。它是微软OFFICE的一个成员, 在包括专业版和更高版本的office版本里面被单独出售。2018年9月25日,最新的微软Office Access 2019在微软Office 2019里发布。

　　PrivateSubCommand1_Click()

　　OnErrorGoToErr100

　　'定义表与字段

　　DimDefDatabaseAsDatabase

　　DimDefTableAsTableDef,DefFieldAsField

　　SetDefDatabase=Workspaces(0).OpenDatabase(App.Path&"vbeden.mdb",0,False)

　　SetDefTable=DefDatabase.CreateTableDef("VB编程乐园")

　　'dbBinary=9

　　'dbBoolean=1

　　'dbByte=2

　　'dbChar=18

　　'dbDate=8

　　'dbInteger=3

　　'dbLong=4

　　'dbMemo=12

　　'dbText=10

　　'建立Name字段为8个字符型

　　SetDefField=DefTable.CreateField("Name",dbText,8)

　　DefTable.Fields.AppendDefField

　　SetDefField=DefTable.CreateField("Sex",dbText,2)

　　DefTable.Fields.AppendDefField

　　'该字段允许为空

　　DefField.AllowZeroLength=True

　　'建立Age字段为3个的常整型

　　SetDefField=DefTable.CreateField("Age",dbInteger,3)

　　'字段追加

　　DefTable.Fields.AppendDefField

　　'表追加

　　DefDatabase.TableDefs.AppendDefTable

　　MsgBox"VB编程乐园数据库建立完成!",vbInformation

　　ExitSub

　　Err100:

　　MsgBox"对不起，不能建立表。请先再建表前建立VBEden数据库?",vbCritical

　　EndSub

　　PrivateSubcmdCreate_Click()

　　OnErrorGoToErr100

　　'建立名为VBEDEN的数据库

　　CreateDatabase"VB-CODE",dbLangGeneral

　　MsgBox"数据库建立完成!",vbInformation

　　ExitSub

　　Err100:

　　MsgBox"不能建立数据库!"&vbCrLf&vbCrLf&Err.Description,vbInformation

　　EndSub->

Microsoft Access在很多地方得到广泛使用，例如小型企业，大公司的部门。

温馨提示：喜欢本站的话，请收藏一下本站！

当前位置:雨林木风下载站 > 办公软件教程 > 详细页面

用VB创建Access数据库结构

本类教程下载

系统下载排行