空手建立Access数据库
程序图例
-
软件描述:包括源代码
描述:一个主要表单
私有子命令1_Click()
出错时转到错误100
定义表和字段。
Dim将数据库定义为数据库
Dim DefTable作为TableDef,DefField作为Field
Set DefDatabase = Workspaces(0)。OpenDatabase(App。路径& " \ v B-代码。MDB”,0,假)
set table = def database . createtabledef("中国")
dbBinary = 9
dbBoolean = 1
dbByte = 2
dbChar=18
dbDate=8
dbInteger=3
dbLong=4
dbMemo=12
dbText=10
将名称字段设置为8个字符。
Set DefField = DefTable。CreateField("Name ",dbText,8)
灵巧的。字段。追加定义字段
Set DefField = DefTable。CreateField("Sex ",dbText,2)
灵巧的。字段。追加定义字段
该字段允许为空
德夫菲尔德。AllowZeroLength = True
创建具有三个年龄字段的常量类型。
Set DefField = DefTable。CreateField("Age ",dbInteger,3)
字段追加
灵巧的。字段。追加定义字段
表格追加
DefDatabase。追加可定义表格
MsgBox“一切正常,‘中国’表已经建立!”,VB信息
出口接头
错误100:
MsgBox "抱歉,无法创建表格。请先设置VB-CODE数据库,然后再设置表?”,VB临界
末端接头
Private Sub cmdCreate_Click()
出错时转到错误100
建立一个名为VB-CODE的数据库。
创建数据库“VB代码”,dbLangGeneral
MsgBox“一切正常,数据库建立!”,VB信息
出口接头
错误100:
MsgBox "无法建立数据库!"& vbCrLf & vbCrLf &呃。描述,VB信息
末端接头
位律师回复
0条评论