textfile轉入access的問題 |
缺席
|
akemi
一般會員 發表:4 回覆:7 積分:2 註冊:2008-10-17 發送簡訊給我 |
雖是老問題但還是踢到鐵板; 當textfile 要 post到 access 的tabl1時 , 出現
"運作必須使用更新查詢" .. procedure Tfrmimportpipe2.Button1Click(Sender: TObject); Var fromfile:textfile; str:string; s1,s2,s3 :string; begin //打開原始檔 Assignfile(fromfile,'c:\input.txt'); reset(fromfile); //寫入access DB中 WHILE not EOF(FROMFILE) DO begin ReadLn(fromfile,str); s1 := copy(str,1,10); s2 := copy(str,11,1); s3 := copy(str,12,10); begin adoquery1.Close; adoquery1.SQL.Clear; adoquery1.SQL.Add('select * from table1'); adoquery1.Open; adoquery1.Append; adoquery1.FieldByName('field1').asstring := s1; adoquery1.fieldbyname('field2').Asstring := s2; adoquery1.FieldByName('field3').AsString := s3; adoquery1.Post; end; end; closefile(fromfile); showmessage('轉檔作業完畢'); |
akemi
一般會員 發表:4 回覆:7 積分:2 註冊:2008-10-17 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |