1.先拉一個 OpenDialog1 , ADOConnection1 , ADOQuery1
2.拉一個 Button1 把事件寫在按鈕按下去的時候
& H, |" E- F: w# Z/ ^0 Y% a3 T
複製內容到剪貼板
代碼:
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;
/ l" m8 e4 D) z/ _# H% K% H& N- v這時候可以把讀出來的資料丟到 DBgrid 上顯示
但是會發現某些欄位是空白的 o_Oa
上網查一下 , 大概知道啥情況了
4 O( A. r9 v! O1 Y( D9 B0 \4 \1 }
csv檔個標準" z- g9 `9 u. p+ K5 r
應該是如果該欄為文字型態，用""
2 q9 e- d1 i3 v6 n如果為數字型態，就直接顯示' @2 ^1 M: b! S- T
並且第一列為Title , 所以底下的 a2 會被當作數值 , t12 就會被變成空白顯示 lol
! @, K9 N6 q, ]! s
複製內容到剪貼板
代碼:
"a1","a2","a3","a4"
"abc",123,"4,567","def"
"11",t12,"13","14"
"abc",123,"3,456","123"
/ _& R+ r; \( w0 B+ h( y看是要手動改掉 csv 還是另外寫程式加上 "" 吧 
