没有合适的资源?快使用搜索试试~ 我知道了~
精彩编程与编程技巧-建立、改变及重构Access数据库...
需积分: 4 1 下载量 131 浏览量
2009-10-09
20:36:03
上传
评论
收藏 2KB TXT 举报
温馨提示
试读
3页
精彩编程与编程技巧-建立、改变及重构Access数据库 ...
资源推荐
资源详情
资源评论
建立、改变及重构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
由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
资源评论
求伯乐
- 粉丝: 22
- 资源: 3095
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功