引言: Q1：Copy過去的資料表(200303業績表)，剛好有重複的資料表，想做確認覆蓋的動作，如何編撰程式碼呢? Q2：想原本的資料表(業績)裡面的數值資料想留兩個資料欄位的數值， 例如：(日期、姓名、洗髮、染髮、剪髮、燙髮、總業績)，想留下(日期、姓名)的資料欄位，如何編撰程式碼呢?

引言: Q1：Copy過去的資料表(200303業績表)，剛好有重複的資料表，想做確認覆蓋的動作，如何編撰程式碼呢?

procedure button1Click(Sender : TObject);
begin
  ADOQuery1.SQL.Text := 'Select * from 業績表200303'
  try
    ADOQuery1.Active := true; // 若沒這個table會跳過下面 finally 之前的程式碼
    if MessageBox(Handle,'已有該月資料，覆寫?','覆寫資料',MB_YESNO   MB_ICONQUESTION) = MRNO then
      exit // 若不覆寫則離開程序
    else
    begin
      ADOQuery1.Active := false;
      ADOQuery1.SQL.Text := 'drop table 業績表200303'; // 覆寫則先刪掉原資料表
      ADOQuery1.ExecSQL;      
    end;
  finally
    ADOQuery1.Active := false;
    ADOQuery1.SQL.Text := 'select * into 業績表200303 from 業績';
    ADOQuery1.ExecSQL;
  end;
end;

引言: 可以Show出 完整的程式碼嗎?

procedure TFm_DataBaseManager.Btn_EasyBackupClick(Sender: TObject);
Var
  ToMonth:TDateTime;
  Salary_Date,ToDayDate,Temp_Date:String;
begin
  ToMonth:=Now;
  ToDayDate:=FormatDateTime('yyyymmdd',(ToMonth));
  Temp_Date:=Copy(ToDayDate,1,6);
  Salary_Date:='業績表_' Temp_Date;
  ADOQ_DataBase.SQL.Text := 'Select * from ' Salary_Date '';
  try
    ADOQ_DataBase.Active := true; // 若沒這個table會跳過下面 finally 之前的程式碼
    if MessageBox(Handle,'已有該月資料，覆寫?','覆寫資料',MB_YESNO   MB_ICONQUESTION) = MRNO then
      exit // 若不覆寫則離開程序
    else
    begin
      ADOQ_DataBase.Active := false;
      ADOQ_DataBase.SQL.Text := 'drop table ' Salary_Date ''; // 覆寫則先刪掉原資料表
      ADOQ_DataBase.ExecSQL;
    end;
  except
  end;
  ADOQ_DataBase.Active := false;
  ADOQ_DataBase.SQL.Text := 'select * into ' Salary_Date ' from 業績';
  ADOQ_DataBase.ExecSQL;  
end;

引言: 不用 try finally 而用 try except 可解決。 在 Delphi Run 時資料庫中無(業績表_2003)一樣會有 Error 但直接執行 exe 時不會。 若資料庫中有(業績表_2003)，選擇不要覆蓋，現不會顯示錯誤訊息

procedure TFm_DataBaseManager.Btn_EasyBackupClick(Sender: TObject);
Var
  ToMonth:TDateTime;
  Salary_Date,ToDayDate,Temp_Date:String;
begin
  ToMonth:=Now;
  ToDayDate:=FormatDateTime('yyyymmdd',(ToMonth));
  Temp_Date:=Copy(ToDayDate,1,6);
  Salary_Date:='業績表_' Temp_Date;
  ADOQ_DataBase.SQL.Text := 'Select * from ' Salary_Date '';
  try
    ADOQ_DataBase.Active := true; // 若沒這個table會跳過下面 finally 之前的程式碼
    if MessageBox(Handle,'已有該月資料，覆寫?','覆寫資料',MB_YESNO   MB_ICONQUESTION) = MRNO then
      exit // 若不覆寫則離開程序
    else
    begin
      ADOQ_DataBase.Active := false;
      ADOQ_DataBase.SQL.Text := 'drop table ' Salary_Date ''; // 覆寫則先刪掉原資料表
      ADOQ_DataBase.ExecSQL;
    end;
  except
  end;
  ADOQ_DataBase.Active := false;
  ADOQ_DataBase.SQL.Text := 'select * into ' Salary_Date ' from 業績';
  ADOQ_DataBase.ExecSQL;  
end;

請問一下~ 現在我也是遇到需要這樣程式，我也是copy 下來試試看了，不過沒有很順利，我的結果變成，if 沒資料表的話會copy 1個 table過去且顯示錯誤。 if 有資料表的話不會copy 沒顯示是否覆寫資料，也沒執行到下面的這行後面程式，就錯誤了~ if MessageBox(Handle,'已有該月資料，覆寫?','覆寫資料',MB_YESNO MB_ICONQUESTION) = MRNO then exit // 若不覆寫則離開程序 else begin ADOQ_DataBase.Active := false; ADOQ_DataBase.SQL.Text := 'drop table ' Salary_Date ''; // 覆寫則先刪掉原資料表 ADOQ_DataBase.ExecSQL; end; 加上我不會用try finally 而用 try except 的語法，messagebox 後面的MB_YESNO MB_ICONQUESTION) = MRNO 語法，慘 = = 也看不是很懂。 環境：D6 ACCESS ~