我如何新增一個欄位阿!! 市面的書大部分都只有寫新增值而已 我都找不太到耶!!?? 煩請大大幫忙!!謝謝...... 發表人 - john1379 於 2003/06/16 14:48:21

請多利用本站搜尋 可以使用SQL 語法，或是ADOX     請參考  如何新增欄位 ?  http://delphi.ktop.com.tw/topic.php?topic_id=18533    

john1379, 您好 請試試以下的方法。 (1)雙擊Dataset，出現如下圖。 (2)按滑鼠右鍵，選擇New Field，出現如下圖，完成其設定即可。 ================================= 涵養怒中氣。謹防順口言。留心忙裡錯。珍惜有時錢。 是非終日有，不聽自然無 天下本無事，庸人自擾之 發表人 - tech_state 於 2003/06/16 15:25:43

各位大大你好!! 我指的是在程式碼中的方式,而不是以在外部的方法開啟!! 例如:使用ADOTable1->Fields->Add();好像是這樣八!!但是我試不出來!! ??

john1379, 您好 其實ddy副站長提供的那篇連結資料就有了，雖然是Delphi但是不難啊！您有確實看過、測試過嗎？ 以下是我由help查到的資料，供您參考。  

if (!Table1->Exists) // Don't overwrite an existing table 
{
  Table1->Active = false; // The Table component must not be active
  // First, describe the type of table and give it a name
  Table1->DatabaseName = "BCDEMOS";
  Table1->TableType = ttParadox;
  Table1->TableName = "CustInfo";
  // Next, describe the fields in the table
  Table1->FieldDefs->Clear();
  TFieldDef *pNewDef = Table1->AddFieldDef(); 
  pNewDef->Name = "Field1";
  pNewDef->DataType = ftInteger;
  pNewDef->Required = true;
  pNewDef = Table1->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();
}
 

更正：上列紅色部分改為下面(Help檔提供的資料有誤，更正後的code我測試過了沒有問題) TFieldDef *pNewDef = Table1->FieldDefs->AddFieldDef(); pNewDef = Table1->FieldDefs->AddFieldDef(); ================================= 涵養怒中氣。謹防順口言。留心忙裡錯。珍惜有時錢。 是非終日有，不聽自然無 天下本無事，庸人自擾之 發表人 - tech_state 於 2003/06/16 16:34:12

john1379, 您好 請參考以下連結資料 http://delphi.ktop.com.tw/link.asp?TOPIC_ID=32427 ================================= 涵養怒中氣。謹防順口言。留心忙裡錯。珍惜有時錢。 是非終日有，不聽自然無 天下本無事，庸人自擾之