引言: 各位前輩大家好 使用test.db 有4個Field(Data,NO,Qty,Money) 今日要新增二個Field,(Sqty[Number形態],Name[字串形態]) 可否用程式去判斷後,無欄位後再用程式去新增Test.db (Sqty,Name) 謝謝

引言:

引言: 各位前輩大家好 使用test.db 有4個Field(Data,NO,Qty,Money) 今日要新增二個Field,(Sqty[Number形態],Name[字串形態]) 可否用程式去判斷後,無欄位後再用程式去新增Test.db (Sqty,Name) 謝謝

Paradox ? Access ? 使用Paradox 謝謝 /* 使用中文很辛苦,中華男兒當自強 */ 發表人 - Mickey 於 2003/02/13 10:23:53

引言: 可下 SQL 指令 : alter table test add Sqty numeric(x,y) alter table test add Name char(z) /* 使用中文很辛苦,中華男兒當自強 */

   with table1 do begin
      open;
      if findfield('Sqty')=nil then begin
         close;
         Query1.Close;
         Query1.SQL.Text := 'alter table web1 add Sqty numeric(10,6)';
         Query1.ExecSQL;
      end;
      open;
      if findfield('Name')=nil then begin
         close;
         Query1.Close;
         Query1.SQL.Text := 'alter table web1 add Name char(10)';
         Query1.ExecSQL;
      end;
      open;
   end;

引言: Sample Code as following:

   with table1 do begin
      open;
      if findfield('Sqty')=nil then begin
         close;
         Query1.Close;
         Query1.SQL.Text := 'alter table web1 add Sqty numeric(10,6)';
         Query1.ExecSQL;
      end;
      open;
      if findfield('Name')=nil then begin
         close;
         Query1.Close;
         Query1.SQL.Text := 'alter table web1 add Name char(10)';
         Query1.ExecSQL;
      end;
      open;
   end;

/* Free 和 Create 一樣重要 */