|
由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
[电脑应用]用C＃动态创建Access数据库 [Web开发]asp 在线备份与恢复sqlserver数据库代码详解
[电脑应用]教你如何远程管理MSSQL数据库 [其他]关于数据库优化查询计划的方法总结
[电脑应用]Linux数据库大比拚 [JAVA开发]Java连接各种数据库的实例
[聊天工具]QQ IP数据库Build 0825 纯真版__天极Yesky [系统软件]利用crontab系统每天定时备份MySQL数据库
[系统软件]备份与恢复Windows2003的AD数据库 [常用软件]活用FlashGet数据库
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
