相信大家都知道用Database Desktop去新增db or dbf 但是如果希望用程式去新增 而不是手動去createㄋ 希望大大們教一下 謝謝

whatzup, 您好 請試試以下的code。(由Help檔查得)  

Table1->Active = false; // The Table component must not be active    Table1->DatabaseName = "BCDEMOS";
Table1->TableType = ttParadox;    Table1->TableName = "CustInfo";    if (!Table1->Exists) // Don't overwrite an existing table     {      // describe the fields in the table      Table1->FieldDefs->Clear();
  TFieldDef *pNewDef = Table1->FieldDefs->AddFieldDef();
  pNewDef->Name = "Field1";
  pNewDef->DataType = ftInteger;      pNewDef->Required = true;      pNewDef = Table1->FieldDefs->AddFieldDef();      pNewDef->Name = "Field2";
  pNewDef->DataType = ftString;      pNewDef->Size = 30;      // Next, describe any indexes      Table1->IndexDefs->Clear();
  /* the 1st index has no name because it is a Paradox primary key */
  Table1->IndexDefs->Add("","Field1", TIndexOptions() <IndexDefs->Add("Fld2Index","Field2", TIndexOptions() << ixCaseInsensitive);      // Now that we have specified what we want, create the table      Table1->CreateTable();
}
 

================================= 涵養怒中氣。謹防順口言。留心忙裡錯。珍惜有時錢。 是非終日有，不聽自然無 天下本無事，庸人自擾之

我的方法 1.還是先用 DESKTOP 建立我要的 TABLE 雛形 2.利用下面的工具將 DB 轉成程式碼 (DELPHI / BCB) http://delphi.ktop.com.tw/topic.php?topic_id=18792 3.貼到程式中

謝謝兩位版主大大所提供的方法 我先用第一個方式試試看 不行的話再用第二個 感恩阿 可是我想問一下tech_state大大 請教一下為什麼我找不到您所提供的Help呢 其實我在post問題前我都會先去CBC help找找 如果找不到才問 請問有什麼小技巧嗎 謝謝

whatzup, 您好 看到您的問題， 直覺的想到CreateTable， 所以就查了一下Help， 結果就得到上面的Code。    至於小技巧， 我比較認為是個人習慣吧！ 我習慣先試試自己想的對不對， 如果不對再直接查詢元件。 例如：您的問題， 我直覺的想到CreateTable， 所以就先查看看， 如果Help中查不到CreateTable的資料， 再查詢TTable元件的所有資料， 然後逐個查看TTable元件的Properties, Methods, Events...等等， 看看有哪些資料是類似或適用的。    以上為個人習慣用法， 歡迎會員朋友們提供您查詢Help的技巧或習慣。    ================================= 涵養怒中氣。謹防順口言。留心忙裡錯。珍惜有時錢。 是非終日有，不聽自然無 天下本無事，庸人自擾之

謝謝tech_state版主大大的賜教 因為我接觸BCB並不久 所以一些Help功能並不太會運作 不過聽了您的見解 倒是學到不少 阿哩阿豆 ^^