建立、改变及重构Access数据库

2018-06-17 17:15:16来源:未知 阅读 ()

新老客户大回馈,云服务器低至5折

由VB提供的DataManager对于开发人员来讲并不是一件强大的工具。对于那些没有装Access数据库的人来说,在开发时建立.改变或重构数据库,以及载入/重载表单都是一件痛苦的事。此外DataManager不能让我们打印数据库的结构。

让我们编一个小程序实现上述功能,然后工程结束后把它抛弃.

首先可以用一个以逗号分隔的文本文件来储存表结构,如下面这个人员表。

lPersonID,Long,,person'sID
sPersonFirstName,Text,20,person'sfirstname
sPersonLastName,Text,20,person'slastname
bIsAFunPerson,Boolean,,invitetoaparty?
iTypeOfJob,Integer,,0=None1=Manual2=Office3=programmeretc.
iAge,Integer,,person'sage

该表有六列,每列独占一行。每行中用逗号分隔下列各项:字段名.字段类型.字段长度(如果不是字符型字段,就留空,仅用逗号分隔)及字段描述。如果你想在字段描述中使用逗号,你可以不用逗号分隔各项,
换成Tab分隔。
一个通用程序能读取这些文件并根据它们建立起数据库。这种方法,连同一些通用的导入/导出程序能大大加快程序开发的速度。举例来说,你不能在DM中删除一个表的一列,但通过删除CSV文件中对一列的定义,然后重新运行构建数据库的程序,你就能轻松做到这一点。

如果你想打印出数据库的结构,方法也很简单:用Excel读CSV文件,再将其粘贴到Word中,这样你就可以打印出整个数据库的结构了。

下面是程序代码:

SubCreateTable(sDatabaseNameAsString,sCSVFileNameAsString,
sTableNameAsString)
DimiTempAsInteger
'将控制权交还给操作系统,使其在创建数据库的同时能运行其它程序-别让你的计算机闲着!
iTemp=DoEvents()
'创建一个300X3数组
ReDimsTables(300,3)AsString
DimsDataTypeLineAsString

'读取CSV文件,并将字段定义保存在数组中
CallReadTableDefinition(sCSVFileName,sTables())

DimtblAsNewTableDef
DimfldAsField

'打开数据库
DimdbPersonsAsdatabase
SetdbPersons=OpenDatabase(sDatabaseName&".MDB",True)



'记录下新的表单名
tbl.Name=sTableName

'增添第一个字段
Setfld=NewField
fld.Name=sTables(1,1)
fld.Type=GetFieldType((sTables(1,2)))
fld.Size=Val(sTables(1,3))
tbl.Fields.Appendfld


dbPersons.TableDefs.Appendtbl

'增加其它的字段
DimiNextColAsInteger
iNextCol=1
DoWhileTrue
Setfld=NewField
iNextCol=iNextCol 1
'到了表定义的底部则退出
IfsTables(iNextCol,1)="***END***"Then
ExitDo
EndIf
fld.Name=s->

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:用VB实现屏幕滚屏保护效果

下一篇:窗体迁移大法