打印

delphi 讀取 CSV 透過 OLE DB

delphi 讀取 CSV 透過 OLE DB

1.先拉一個 OpenDialog1 , ADOConnection1 , ADOQuery1

2.拉一個 Button1 把事件寫在按鈕按下去的時候

. u4 ?3 q& ?  g) b

複製內容到剪貼板
代碼:
procedure TForm1.Button1Click(Sender: TObject);
begin

OpenDialog1.Execute;
if OpenDialog1.FileName <> '' then
begin

ADOConnection1.ConnectionString :=
'Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties="Text;HDR=YES;FMT=Delimited;CharacterSet=ANSI"ersist Security Info=False;'

+'Data Source='+ExtractFilePath(OpenDialog1.FileName) ;

ADOQuery1.SQL.Text := 'Select * from '+ ExtractFileName (OpenDialog1.FileName) ;
ADOQuery1.Open ;

end;

end;

) Q8 n7 W9 G5 ?& G' v6 V

這時候可以把讀出來的資料丟到 DBgrid 上顯示

但是會發現某些欄位是空白的 o_Oa

上網查一下 , 大概知道啥情況了

2 P: K6 G8 S. K# ]" n" }

csv檔個標準
. S/ n6 l1 S1 }& ^! f9 b6 m應該是如果該欄為文字型態,用""
" f0 I# x6 `' l0 H8 K# N如果為數字型態,就直接顯示" ]( \( b' ~: Z. `$ G; x. ]: b
並且第一列為Title , 所以底下的 a2 會被當作數值 ,  t12 就會被變成空白顯示 lol" X8 {9 Q2 k: W

複製內容到剪貼板
代碼:

"a1","a2","a3","a4"
"abc",123,"4,567","def"
"11",t12,"13","14"
"abc",123,"3,456","123"

, R& A5 A: K  D4 e# w) L

看是要手動改掉 csv 還是另外寫程式加上  "" 吧

TOP

發新話題