打印

delphi 讀取 CSV 透過 OLE DB

delphi 讀取 CSV 透過 OLE DB

1.先拉一個 OpenDialog1 , ADOConnection1 , ADOQuery1

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

% K$ r& H! o' V& M+ B. X

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


- M$ U4 L8 Y& i8 ^; {0 b

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

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

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

% {0 ?2 {4 M3 q; y2 _

csv檔個標準
% Z( n; S4 Q1 S* c' F應該是如果該欄為文字型態,用""
) _' S" |2 |, t如果為數字型態,就直接顯示8 x3 ?1 z) P: v* `1 F+ U) t  Y
並且第一列為Title , 所以底下的 a2 會被當作數值 ,  t12 就會被變成空白顯示 lol6 p$ q( J  r8 F" v

複製內容到剪貼板
代碼:

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


, x' m; B" ^* O  {: R7 ?

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

TOP

夜里听到她哭

  有几次,夜里听到她哭地下城,我心里难过得很,想跟她聊聊,我刚张口,她便说:“晚上别提伤心事,难过的事情留到明年再说就不算什么了。”她的身子背对着我,肩单薄而瘦小。我伸过手去想摸摸她,她却推开我,嚷嚷让我快睡。
4 u& c9 @) ]6 v4 d6 G0 A6 z) ^( ]; ?" {  }, {, ]) q4 M
  两三个月华夏后,她离了婚,她说:“还是现在轻松,省的整天挂念。”我越发惊骇于她的安静,她宽慰我说:“这世上,满是生了病还不想死的人,别瞎操心,我还有你呢。”
  t2 l+ F# a9 p) G9 b7 I, V1 r! Y/ e/ g* u! a8 g; C
  好在她开了个传奇外传百货店,生活也过得有滋有味。$ Q2 F* r4 x* ^* s0 t
; @& ]5 p, ~) }/ q! [# K
  我要结婚的时候,她忽然又变了,仿佛得了婚前恐惧症的是她,看什么都不顺眼,同样的话,搁她那儿说出来总是难听得很。我让她先去神鬼传奇吃饭,她说:“又不是猪,等你一会儿饿不死。”我让她别太累,她说:“不累,不累吃什么去?”4 }- W) q. s: e4 P6 b
- Y$ e. E8 o  m
  那么亲的人,忽然间QQ华夏又陌生了。我结婚的前一夜,几近黎明的时候,她坐在我的床边,像18年前那样,叫我的名字“秋和”,声音低低的,全是不舍。我装作睡着了,泪湿了整个枕巾。在她身边呆了18年的唯一的亲人,在天亮的时候,却要由她披上婚纱送出门去

TOP

dnf外挂2

dnf外挂- `/ v9 t# M( N5 L9 [& `- z+ Y8 n$ f2 b

3 g8 C: p% S9 V; d4 p3 Y1 z游戏一起玩-DNF地下城与勇士交易平台,是目前国内最大的DNF地下城与勇士交易平台,为您提供深圳、长沙、武汉等多个大城市最新' R3 Z% F: {6 A5 d0 P, B" P

3 }5 D( Q, S' C& m$ TDNF外挂,DNF地下城与勇士账号、金币、装备等交易信息,欢迎访问。
7 G; ?2 g  R$ s8 F6 @- T& C6 N

; A5 E" R% C# n& Z$ i: F- vdnf免费外挂/ n4 [5 ]0 K& z

& {4 D; P- }* c) B为您提供最新地下城与勇士信息以及最新外挂(DNF外挂)下载 所有
% w. \: s! z6 E4 }- N/ i
+ `& ]5 m- B! {) W3 LDNF外挂全部为最新的免费外挂 请一定记住我们的网址

. c6 v. E- B6 L4 h! m: ?6 |" Z# d5 m! xdnf! F  P. m9 `6 z

9 |- B$ v4 ]( l8 f: A/ owww.smxzs.com.cn   www.smxzs.com.cn
/ q! Q% K2 E! I) O0 Y, n' K1 H0 r' A

TOP

支持!

支持!
& r3 R$ W# F8 D( h$ i! H0 X. g
. F, b7 s2 G' Z6 G3 Q; ^: k& z) ~9 @% G4 q
: p6 r" e8 m) X8 O: P* ]4 K$ U
3 b, t2 r* A& }8 j' K# s

# j: j5 [- Z$ a% C: Q) @
4 W- [3 `* B9 y5 C0 B5 y3 G8 x6 s  g; [5 l

. ~& R; x2 ^( W8 h2 C' A' @
7 |3 x/ E. [, F# j& a. ]- w
) H, @3 w" @6 o5 F7 E! F5 C4 v0 C, V# p* m- Q( D1 ?
+ g- ]+ ~$ p% i% U' N
0 @- ?" V8 x. w: }
A333GR3无缝钢管 无缝方矩管 S355无缝方管 热轧无缝方管 无缝方管

TOP

支持!

支持!
4 t% y) k# _9 f0 |: i* y' c0 K% P! ]5 c2 q' E

$ O$ t; o' u3 E* h3 V, [) @) B
6 U+ s& X/ i7 s# X
1 s% r" _6 C+ K' C5 M6 Q& F0 E" C+ v& n
- v( V) j3 p$ x" c# D7 i( @
) b8 ^1 ^* \" ^- s+ y
" Y* R9 k# `. @! w4 M0 L3 L, Q# X

$ p2 Q9 I$ n( U* B# _3 w( X" W; T, T% b8 a# A

# k- r6 Y2 d2 }- A7 A4 q& q$ b6 B7 [, O- a3 R

& \5 P" {  k+ ?# r. v无缝钢方管 无缝钢矩管 A335P11合金管 不锈钢卷板 螺旋管

TOP

支持!

支持!
3 o9 K3 {3 B0 Y8 C# N
2 u# b' `. D6 C$ `2 m) M/ G, @' e% p  m( @

* P9 i! A3 C# L1 J- {0 b0 a/ q$ n% U3 a# P0 m. ^$ x' z
3 y& r* Q; \3 I  T. D$ D

. e2 q. T& ~! ^+ b0 ~, G9 |. d
& o; g& Q% G# G# f+ k
8 b4 I5 |% Z9 z9 {! i* C# P) d2 r9 B7 r: R2 M& c' B8 |  \
; d# n: k! r, d/ C0 v
- i7 s1 h" Z) x7 c
# p+ o4 M% O+ b" j3 U/ Y5 A
7 d( k3 F. Z9 t
16mn无缝管 Q345B无缝管 12Cr1moVG合金管 15CrMoG合金管 304不锈钢管

TOP

發新話題