Excel 試算表經 TAdvStringGrid 再 寫入 Access的問題 |
尚未結案
|
菲力仔
一般會員 發表:1 回覆:4 積分:1 註冊:2003-03-28 發送簡訊給我 |
我嘗試將一整張的 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))) 有問題的資料, 確定沒有放錯月份和日子 ~_~ |
James
高階會員 發表:10 回覆:290 積分:220 註冊:2002-07-25 發送簡訊給我 |
|
菲力仔
一般會員 發表:1 回覆:4 積分:1 註冊:2003-03-28 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |