由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中，這樣你就可以打印出整個數據庫的結構了。 下面是html' target='_blank'>程序代碼：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 本文作者:html教程
