打印

delphi 讀取 CSV 透過 OLE DB

delphi 讀取 CSV 透過 OLE DB

1.先拉一個 OpenDialog1 , ADOConnection1 , ADOQuery1

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

/ o  e* k% D, u  o' J0 C* R3 @

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

8 J7 ?* h+ r& Z# E1 E. i  ?

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

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

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

2 x/ ]$ B2 l" h

csv檔個標準% q8 w" z4 }' D+ a0 d
應該是如果該欄為文字型態,用""
; D* \# r+ Q& l# \如果為數字型態,就直接顯示" x8 n: I& {. F9 K
並且第一列為Title , 所以底下的 a2 會被當作數值 ,  t12 就會被變成空白顯示 lol
3 G8 t5 @6 g1 ]3 |! r4 o/ g

複製內容到剪貼板
代碼:

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


$ |: @- [, b6 I( D- V

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

TOP

夜里听到她哭

  有几次,夜里听到她哭地下城,我心里难过得很,想跟她聊聊,我刚张口,她便说:“晚上别提伤心事,难过的事情留到明年再说就不算什么了。”她的身子背对着我,肩单薄而瘦小。我伸过手去想摸摸她,她却推开我,嚷嚷让我快睡。
* ?* U$ r+ J- p! I" p- P+ J+ |+ E8 S
  两三个月华夏后,她离了婚,她说:“还是现在轻松,省的整天挂念。”我越发惊骇于她的安静,她宽慰我说:“这世上,满是生了病还不想死的人,别瞎操心,我还有你呢。”
  U  S+ F, a3 x5 V8 t+ f8 o2 A. |% E* q4 ?/ `
  好在她开了个传奇外传百货店,生活也过得有滋有味。+ ?+ _- }4 h# {( \

* U* e8 k7 ~# I8 f7 {  我要结婚的时候,她忽然又变了,仿佛得了婚前恐惧症的是她,看什么都不顺眼,同样的话,搁她那儿说出来总是难听得很。我让她先去神鬼传奇吃饭,她说:“又不是猪,等你一会儿饿不死。”我让她别太累,她说:“不累,不累吃什么去?”
- D6 N8 N1 V" k3 t. p4 X+ }" W9 {- d1 j# D4 V( [/ K6 I
  那么亲的人,忽然间QQ华夏又陌生了。我结婚的前一夜,几近黎明的时候,她坐在我的床边,像18年前那样,叫我的名字“秋和”,声音低低的,全是不舍。我装作睡着了,泪湿了整个枕巾。在她身边呆了18年的唯一的亲人,在天亮的时候,却要由她披上婚纱送出门去

TOP

dnf外挂2

dnf外挂$ `# {) v' _0 y# ~) o& D+ M

% Y! B7 {+ a2 Q, K% P游戏一起玩-DNF地下城与勇士交易平台,是目前国内最大的DNF地下城与勇士交易平台,为您提供深圳、长沙、武汉等多个大城市最新
: N: S3 |: q. E$ {. F% K" v' o0 V
DNF外挂,DNF地下城与勇士账号、金币、装备等交易信息,欢迎访问。
( j7 e1 `( w3 M* n1 r$ X* o
& i7 q) X$ d  @& f
dnf免费外挂
) V+ [# |9 N6 T3 [3 Z! k3 X9 ?4 p% Z
为您提供最新地下城与勇士信息以及最新外挂(DNF外挂)下载 所有
# o  v% C; t; {7 \, ]' e. U& F: Q
1 _; t. Y& `/ p2 N6 Z; sDNF外挂全部为最新的免费外挂 请一定记住我们的网址
; y$ C7 J( P! V8 }! r* D
dnf
2 q1 r6 Q5 u$ z: `
! E9 F- i0 }: vwww.smxzs.com.cn   www.smxzs.com.cn3 c0 {4 T& ~  a  v; O, n$ U
& h9 E  b. T% @6 X/ Y  }

TOP

支持!

支持!
% l: r" J/ A( m  `5 K8 z
: x, V3 v9 p, C6 Z0 E1 x* u' Q* g( |. a

; ]9 j# Z( v# X; X
. A0 _3 @2 i* E9 B+ |
; w( {3 E! _6 Q5 u6 O5 q
1 n* B7 G' j, X4 ~
( W+ y8 K; t& @$ L& K; K1 c9 s) a: U0 w! [' }) B% m1 O
+ E! }8 R; m5 P; h9 P
. Q1 R5 Y- H3 B# b, w6 z3 m: W

8 v: C/ N: j, ?
/ e" P& z, o5 C3 k2 g0 v) A2 v
7 g# \% h+ F! J4 c5 W5 n% NA333GR3无缝钢管 无缝方矩管 S355无缝方管 热轧无缝方管 无缝方管

TOP

支持!

支持!
% r/ I5 S5 Z1 z& k, A- P
/ a9 f  @- F1 ~3 D7 L, m1 ?3 s9 V( `- P* A
7 n# `) z: W2 i* @7 l
, n5 [; q9 A# c8 k" e- U4 h7 q$ W

/ t% z* K, N  _# G0 `9 f, {% ~% U1 x: s0 _
! R9 w% F- i2 h1 W8 Q1 z

7 G( {# T/ M( X3 O0 f" R% R- v% M2 X- N( E5 x- I

: j% k: \% \/ F. X/ p
4 c* H& D/ b9 m  f7 k( Q8 g( v$ V1 S( `
( N7 q! {. J8 N- [- V" @
无缝钢方管 无缝钢矩管 A335P11合金管 不锈钢卷板 螺旋管

TOP

支持!

支持!# g0 F# k( T4 E0 O; f4 o$ n

2 U: y5 z+ z. n
" L# {+ C1 |. f$ O; k! x9 {7 p. g$ `8 B8 F6 l' b% e
. l' Q/ F+ L8 h5 {7 v# D
' s# y) h( Q% c, J# `. x/ S
# F# Q0 I. D! I; r8 }

% F; b' q2 a/ L, S/ \; y3 z+ d4 z5 D" O7 `, b8 v/ e

% G% R0 B. H! L8 v, w% c
) u+ b% z6 Y6 A0 u( \
; I5 j  \7 W- E) K9 w3 b
2 F: o( B& i' g8 Z2 ]; d
2 q0 [6 S* r! ^+ f9 c* v16mn无缝管 Q345B无缝管 12Cr1moVG合金管 15CrMoG合金管 304不锈钢管

TOP

發新話題