請問怎麼通過代碼新建新的資料庫呢？如VB中可以用: Dim dbsNorthwind As Database Dim tdfNew As TableDef Dim fldLoop As Field Dim prpLoop As Property Set dbsNorthwind = OpenDatabase("Northwind.mdb") Set tdfNew = dbsNorthwind.CreateTableDef("NewTableDef") With tdfNew .Fields.Append .CreateField("IntegerField", dbInteger) .Fields.Append .CreateField("DateField", dbDate) End With dbsNorthwind.TableDefs.Append tdfNew ..... Delphi中有沒有代碼可以直接資料庫而不用控件呢？ 交流.學習

------
交流.學習

1. 你可以在RunTime直接Create這些元件使用, 而不須Design Time加入這些元件 例如: 

db:TDatabase
begin
  db:=TDataBase.create(self); 
  ...
end;

這些元件也不過是些包裝好的Class, 方便使用, 為何不用 2. 如果你一定不要用這些元件, 也可以直接使用BDE的API--這些API全部是DBI... 的型態 如 DBICreateTable等等 可參考"BDE32.Hlp" (直接在Delphi help中查不到)