Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > 综合其它

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

时 间:2008-06-25 14:59:55
作 者:umvsoft整理   ID:16  城市:江阴
摘 要:建立、改变及重构Access数据库

正 文:

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

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

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

lPersonID,Long,,person's ID

sPersonFirstName,Text,20,person's first name

sPersonLastName,Text,20,person's last name

bIsAFunPerson,Boolean,,invite to a party?

iTypeOfJob,Integer,,0=None 1=Manual 2=Office 3=programmer etc.

iAge,Integer,,person's age

该表有六列,每列独占一行。每行中用逗号分隔下列各项:字段名.字段类型.字段长度(如果不是字符型字段,就留空,仅用逗号分隔)及字段描述。如果你想在字段描述中使用逗号,你可以不用逗号分隔各项,

换成Tab分隔。

一个通用程序能读取这些文件并根据它们建立起数据库。这种方法,连同一些通用的导入/导出程序能大大加快程序开发的速度。举例 来说,你不能在DM中删除一个表的一列,但通过删除CSV文件中对一列的定义,然后重新运行构建数据库的程序,你就能轻松做到这一点。

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

下面是程序代码:

Sub CreateTable (sDatabaseName As String, sCSVFileName As String,

sTableName As String)

Dim iTemp As Integer

'将控制权交还给操作系统,使其在创建数据库的同时能运行其它程序-别让你的计算机闲着!

iTemp = DoEvents()

'创建一个300X3数组

ReDim sTables(300, 3) As String

Dim sDataTypeLine As String

' 读取CSV文件,并将字段定义保存在数组中

Call ReadTableDefinition(sCSVFileName, sTables())

Dim tbl As New TableDef

Dim fld As Field

'打开数据库

Dim dbPersons As database

Set dbPersons = OpenDatabase(sDatabaseName & ".MDB", True)

'记录下新的表单名

tbl.Name = sTableName

'增添第一个字段

Set fld = New Field

fld.Name = sTables(1, 1)

fld.Type = GetFieldType((sTables(1, 2)))

fld.Size = Val(sTables(1, 3))

tbl.Fields.Append fld

dbPersons.TableDefs.Append tbl

'增加其它的字段

Dim iNextCol As Integer

iNextCol = 1

Do While True

Set fld = New Field

iNextCol = iNextCol + 1

'到了表定义的底部则退出

If sTables(iNextCol, 1) = "***END***" Then

Exit Do

End If

fld.Name = s



Access软件网官方交流QQ群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助