我嘗試將一整張的 Excel 試算表經 TAdvStringGrid 再 寫入 Access, 很奇怪的是, 我所有的資料是整個十一月份的, 日期的 Format 是 1/11/2004 , 但當寫入 Excel 後(經 ADO), 日數是十之前的全部自動轉成 一至十月, 即原本:    十一月一日 (1/11/2004) -> 十月十一日 (11/1/2004)    但日數是十之後的卻沒有問題 (所有資料是一次過 Import 及寫入 Database 的), 請問有沒有人知道原因呢, 我試過很多方法都不行, 整個程序已寫好了, 唯獨這一個問題困擾我幾天了    

  with Temp_ADO do
  begin
    SQL.Clear;
    SQL.Add('Insert Into AnalystActivity (DateFrom, DateTo, Company, Contact, Issue, Analyst_ID, Requester, ');
    SQL.Add('CM, TC, CVC, RTC, DOP, BVM, LM, SE, IB, OTH) Values ( ');
    SQL.Add('#'   FormatDateTime('d-M-yyyy',Temp_Date)   '#,#'   FormatDateTime('d-M-yyyy',Temp_Date)  
      '#,');
    SQL.Add(QuotedStr(Temp_Company)   ',');
    SQL.Add(QuotedStr(Temp_ClientName)   ',');
    SQL.Add(QuotedStr(Temp_Issue)   ',');
    SQL.Add(IntToStr(Temp_Analyst_ID)   ',');
    SQL.Add(QuotedStr(Temp_Requester)   ',');
    SQL.Add(BoolToStr(Temp_CM, True)   ',');
    SQL.Add(BoolToStr(Temp_TC, True)   ',');
    SQL.Add(BoolToStr(Temp_CVC, True)   ',');
    SQL.Add(BoolToStr(Temp_RTC, True)   ',');
    SQL.Add(BoolToStr(Temp_DOP, True)   ',');
    SQL.Add(BoolToStr(Temp_BVM, True)   ',');
    SQL.Add(BoolToStr(Temp_LM, True)   ',');
    SQL.Add(BoolToStr(Temp_SE, True)   ',');
    SQL.Add(BoolToStr(Temp_IB, True)   ',');
    SQL.Add(BoolToStr(Temp_OTH, True)   ')');
//    ShowMessage(SQL.Text);
    ExecSQL;

我試過用 ShowMessage, 出來的 Result 是 #01/11/2004# (這是我原本 Excel 之格式, Access Display 出來的 Column 格式也是 dd/mm/yyyy), 我也試過 ShowMessage(IntTStr(Dayof(TempDate))) 有問題的資料, 確定沒有放錯月份和日子 ~_~

試試看改成用 Parameter 的方式去傳值 ,應該就可以避開這樣的問題了 !!

今天試過了, 終於解決了這個問題, 但其實有點兒好奇想問, 為什麼會有這個情況出現的呢? 感謝幫忙