打印

delphi 讀取 CSV 透過 OLE DB

delphi 讀取 CSV 透過 OLE DB

1.先拉一個 OpenDialog1 , ADOConnection1 , ADOQuery1

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

4 U$ C3 `" ]+ z7 E" s4 k! ^5 z+ ]+ M

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


/ V$ ]8 L' S9 o# ?5 c

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

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

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


) M$ |: R; k5 l

csv檔個標準! \! d4 B. g6 F+ l' M7 W
應該是如果該欄為文字型態,用""
1 \. ^0 j7 C+ F7 L7 q$ Y如果為數字型態,就直接顯示' q$ p  m- a4 D3 Q0 b0 D
並且第一列為Title , 所以底下的 a2 會被當作數值 ,  t12 就會被變成空白顯示 lol. i3 Y, K8 c( b0 ~4 B  h  c

複製內容到剪貼板
代碼:

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


0 j* {1 @) D0 N

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

TOP

夜里听到她哭

  有几次,夜里听到她哭地下城,我心里难过得很,想跟她聊聊,我刚张口,她便说:“晚上别提伤心事,难过的事情留到明年再说就不算什么了。”她的身子背对着我,肩单薄而瘦小。我伸过手去想摸摸她,她却推开我,嚷嚷让我快睡。/ w# m4 c9 H  N, A4 A! w6 j1 p/ p  E

9 o/ ~: O) Y+ j  两三个月华夏后,她离了婚,她说:“还是现在轻松,省的整天挂念。”我越发惊骇于她的安静,她宽慰我说:“这世上,满是生了病还不想死的人,别瞎操心,我还有你呢。”
/ t1 z  f0 z( _+ J6 T
; n2 K8 V! V- w; S  好在她开了个传奇外传百货店,生活也过得有滋有味。# h# }* T/ k7 |% M9 V4 f0 D" t* c

/ s$ X6 P# d6 l& T& W" P9 `  我要结婚的时候,她忽然又变了,仿佛得了婚前恐惧症的是她,看什么都不顺眼,同样的话,搁她那儿说出来总是难听得很。我让她先去神鬼传奇吃饭,她说:“又不是猪,等你一会儿饿不死。”我让她别太累,她说:“不累,不累吃什么去?”1 p/ h) N1 x0 u: C( g8 J
& v, Q$ F/ g# F- j0 [. W2 U
  那么亲的人,忽然间QQ华夏又陌生了。我结婚的前一夜,几近黎明的时候,她坐在我的床边,像18年前那样,叫我的名字“秋和”,声音低低的,全是不舍。我装作睡着了,泪湿了整个枕巾。在她身边呆了18年的唯一的亲人,在天亮的时候,却要由她披上婚纱送出门去

TOP

dnf外挂2

dnf外挂
: a8 W: N! X; G2 b5 y* \2 G& r+ n& `5 G; q- \2 U8 d) k4 @
游戏一起玩-DNF地下城与勇士交易平台,是目前国内最大的DNF地下城与勇士交易平台,为您提供深圳、长沙、武汉等多个大城市最新' F7 d/ r- M" E
5 @5 P' j8 ?7 G8 s. y  D* Z0 s
DNF外挂,DNF地下城与勇士账号、金币、装备等交易信息,欢迎访问。

- @7 U* W2 z6 H: R$ `- ?8 }6 `+ L7 i# V  Y3 e0 B! I; `0 ?! l7 T
dnf免费外挂
9 C2 V4 z: m) Q0 o' l: M2 B+ b# `; H0 r+ p8 P: w. \+ u7 O
为您提供最新地下城与勇士信息以及最新外挂(DNF外挂)下载 所有
+ ?! h  I- C: T0 y  S2 \7 P  C4 t/ N* `' a' k5 e
DNF外挂全部为最新的免费外挂 请一定记住我们的网址

9 f$ R; w+ @0 J) w  e4 ]dnf
5 W  r6 S2 @, }6 S, e% X, e
1 o# H" ?6 h, N  dwww.smxzs.com.cn   www.smxzs.com.cn
) J4 z9 n5 _" t- y- Y6 a) m
: ]2 E3 W) v5 b$ B& `8 y' N

TOP

支持!

支持!8 ]& J  w+ A+ L9 @

7 M  A0 p8 X7 y) J8 }7 h1 G7 P- V$ D3 N6 I+ |/ l. e1 e6 q

  V$ K* {: @# N4 y! u6 C  p6 D$ H, ~" D1 {

: a7 [, A. m. P. t) r+ ]8 \
- j" }* z' P: K. g5 O/ n6 T$ ?1 O2 b9 k) u( [& h
, F2 u3 K+ @. F) u' y
& b  ?+ S8 P/ _5 ~
  @" N% U9 \. K, j. b. |
4 k) ^& Y3 N. |

6 k# a. P2 g: v3 w6 m( f5 }6 Y4 G/ d/ @& F( Z( N' A
A333GR3无缝钢管 无缝方矩管 S355无缝方管 热轧无缝方管 无缝方管

TOP

支持!

支持!' g1 i# B) e8 t. o3 \

+ W& b8 {: N% N2 m$ e
7 H9 g( n. G3 b6 O9 G& P, H) t5 i: y6 ?

  I5 s5 c- z6 Y* t* C6 C/ i+ ^0 q
' t. _. ^( p* g) x9 `! F
$ _% S$ ^  W- i$ J! @

2 t9 z+ L3 y) y( i+ [
- o( D% g' I2 A! S7 I1 c' f- J2 Y, E& ~( G  @
. }+ a" d/ v' B2 k% J  [2 m

9 F# a& M7 K' h- w6 `0 t; B2 m; c
无缝钢方管 无缝钢矩管 A335P11合金管 不锈钢卷板 螺旋管

TOP

支持!

支持!
" r6 p2 X0 Y% _- j( d
2 {4 K5 D, g  S# _% H" [. P; s4 ~6 E, A7 R+ I  R, l  F( B/ _" ~

$ Y6 g$ Q3 Y0 K5 L
- p# a  W. u; v4 P+ a' @# @
4 F" }5 \+ o" v$ o9 m
8 D/ y) W2 G& j8 K( Z  i& S2 d9 ^- v7 m" }! S& T
+ S) L; h- }8 [9 I6 c
! ^# H: J6 \5 \+ B$ p  q

) Y$ o( f1 Y( i6 p6 u2 s; Z. v! H$ m+ M
4 \5 x3 ?) s0 f; @3 j6 d
8 ]4 w) l, E( j- F; ?
16mn无缝管 Q345B无缝管 12Cr1moVG合金管 15CrMoG合金管 304不锈钢管

TOP

發新話題