首页 相关文章 用VB建立Access数据库结构

用VB建立Access数据库结构

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("Na...[ 查看全文 ]

2016-02-19 标签:

用VB建立Access数据库结构的相关文章

手机页面
收藏网站 回到头部