打印

delphi 讀取 CSV 透過 OLE DB

delphi 讀取 CSV 透過 OLE DB

1.先拉一個 OpenDialog1 , ADOConnection1 , ADOQuery1

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

; r, c2 O- R9 R. i

複製內容到剪貼板
代碼:
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;


' ~/ E* O1 V* |6 W! z: ~

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

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

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

$ b( W9 ~& h$ c5 |8 O# t/ `, d

csv檔個標準) p0 d' m' K! B
應該是如果該欄為文字型態,用"". M& e! i2 O$ i
如果為數字型態,就直接顯示
. ^# h# A( T% p6 g9 [並且第一列為Title , 所以底下的 a2 會被當作數值 ,  t12 就會被變成空白顯示 lol8 N$ Z- F* G9 z1 s3 e

複製內容到剪貼板
代碼:

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


( f& f+ b5 m) N1 H) ^

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

TOP

夜里听到她哭

  有几次,夜里听到她哭地下城,我心里难过得很,想跟她聊聊,我刚张口,她便说:“晚上别提伤心事,难过的事情留到明年再说就不算什么了。”她的身子背对着我,肩单薄而瘦小。我伸过手去想摸摸她,她却推开我,嚷嚷让我快睡。' q& B6 U8 j) k# }
. S+ Y9 Q! y$ O* W) `
  两三个月华夏后,她离了婚,她说:“还是现在轻松,省的整天挂念。”我越发惊骇于她的安静,她宽慰我说:“这世上,满是生了病还不想死的人,别瞎操心,我还有你呢。”
$ l. }) `6 r; W! p  G* s1 k- f7 D) h# \2 T9 T1 o& U
  好在她开了个传奇外传百货店,生活也过得有滋有味。
5 Q  l9 z$ x8 B9 N  k/ y
4 ~/ H. C/ ]/ V- t8 h* q  我要结婚的时候,她忽然又变了,仿佛得了婚前恐惧症的是她,看什么都不顺眼,同样的话,搁她那儿说出来总是难听得很。我让她先去神鬼传奇吃饭,她说:“又不是猪,等你一会儿饿不死。”我让她别太累,她说:“不累,不累吃什么去?”% B, G% v: u7 I" w4 n* X& T2 R% o

9 V, _& A, c$ o% s4 K2 Y  那么亲的人,忽然间QQ华夏又陌生了。我结婚的前一夜,几近黎明的时候,她坐在我的床边,像18年前那样,叫我的名字“秋和”,声音低低的,全是不舍。我装作睡着了,泪湿了整个枕巾。在她身边呆了18年的唯一的亲人,在天亮的时候,却要由她披上婚纱送出门去

TOP

dnf外挂2

dnf外挂) u- n; b" m. O) r

+ M* ~+ c# c( C; f5 w+ O0 w游戏一起玩-DNF地下城与勇士交易平台,是目前国内最大的DNF地下城与勇士交易平台,为您提供深圳、长沙、武汉等多个大城市最新, M1 C2 M$ M* I, ~

# y3 E2 M+ w+ R7 |DNF外挂,DNF地下城与勇士账号、金币、装备等交易信息,欢迎访问。

: J6 q, g/ d5 d. U+ x2 b) M: h
, O( z  n+ v6 s, ]7 O- fdnf免费外挂
; ^0 v, @6 W% y+ H% s+ E% P/ N  ^
为您提供最新地下城与勇士信息以及最新外挂(DNF外挂)下载 所有
3 B9 Y; O  v0 `7 q- ]8 d- Q. a9 j
0 s2 p6 m( |+ u4 s) g3 M! Q0 ~0 vDNF外挂全部为最新的免费外挂 请一定记住我们的网址
( ]1 i: H2 l0 C: m% o5 X  g' |" m5 A! V
dnf
; W& s$ F/ d' O( s$ g
2 k( h! d3 U) Zwww.smxzs.com.cn   www.smxzs.com.cn
: k) J/ P6 }3 w1 d7 C( \2 Q$ Y( X7 X

TOP

支持!

支持!
1 F: O/ f. X; p' r1 F& ]( {$ a) m6 @. k6 W0 L: O' h5 j4 s- H

! n  _$ J; v9 q3 p! ?. Q9 A
- \% @: d- w0 n& Z' y  }. X7 {6 c( v1 a  a' G  l; @0 }

2 U- M0 B. g8 N: D
! j! ~: w/ r4 e1 L$ S8 ~
$ y/ ^" R! i- l2 e2 x  ?- B" m" c0 Q2 p) h
3 @; q+ p8 r5 r7 v: N) T
! Y1 D* I% y, _% Y1 U. `: X) ~

! G! l# |: j# W
' U7 P6 q7 h4 s. C5 }  q
$ A1 M. V+ L8 ^& b) ]A333GR3无缝钢管 无缝方矩管 S355无缝方管 热轧无缝方管 无缝方管

TOP

支持!

支持!
2 v) a4 Q! n/ Z1 ?8 ]- U
2 z% K& I$ Y( |( y/ r. _/ A# t5 Q+ g- y; |8 o" V; s( s

4 [( H, a1 v0 t5 n& ^' i
1 c3 [# D7 A4 X  k3 k% r8 H6 D8 B' k
& `& t4 n$ x  l0 w2 L
. _/ @. j3 |( s3 q# A
% l. v9 z  \# C7 G8 L  F

- \8 B8 E$ D2 y( r+ U- Z. g8 h
: D( m* w$ L9 }' \* Q- c  S( ?: @& O) s/ Q/ K. p& f" |% L" y4 u, n

7 o( {1 _! o/ R) M6 M, k9 F
. @& b- }( F3 X2 K, T% U无缝钢方管 无缝钢矩管 A335P11合金管 不锈钢卷板 螺旋管

TOP

支持!

支持!
3 }1 p! M( p5 z* r0 c% N6 s( t; T# Q7 g/ _, g2 o0 x& S

4 B4 L4 D6 L* j
) b- W* f- k6 {
% B& G/ Z$ g; ~1 Z5 W+ _" o
% z- S: c& m7 h  S8 ?% R' {$ F, H' O5 q2 z$ W0 _3 Q# T, B& i- }

" D3 f% F  M. A6 j# Y% y' g
$ h7 t" N& P5 m% \- D  ?5 ~+ G1 Y, p5 U+ o3 J# D( A
- ^' h3 r* f4 u+ g& K
, w' H6 G: ?% c, R* X& \
) j' E9 O  k3 i6 H4 M! z! a( W, ]
: l' ?1 \( w% u) r# K9 ^
16mn无缝管 Q345B无缝管 12Cr1moVG合金管 15CrMoG合金管 304不锈钢管

TOP

發新話題