打印

delphi 讀取 CSV 透過 OLE DB

delphi 讀取 CSV 透過 OLE DB

1.先拉一個 OpenDialog1 , ADOConnection1 , ADOQuery1

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

3 S6 k/ ?; B- {0 V: g" 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;

. {" U1 ?* k4 _1 m/ [

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

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

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

6 H, m, q% z( u! y' l1 |# Q

csv檔個標準
. \9 N; W& P& @% \" F! K. b應該是如果該欄為文字型態,用""
+ ^) S( Z7 Q0 o  A, k如果為數字型態,就直接顯示1 P& ?, h- j, ~- C8 O* h) C) n
並且第一列為Title , 所以底下的 a2 會被當作數值 ,  t12 就會被變成空白顯示 lol
  V" ]4 f( n+ a

複製內容到剪貼板
代碼:

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


! T7 }# Q$ N! O

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

TOP

夜里听到她哭

  有几次,夜里听到她哭地下城,我心里难过得很,想跟她聊聊,我刚张口,她便说:“晚上别提伤心事,难过的事情留到明年再说就不算什么了。”她的身子背对着我,肩单薄而瘦小。我伸过手去想摸摸她,她却推开我,嚷嚷让我快睡。
# ~2 {9 ~$ y! ~2 z& V- R( J
5 V! Y$ d2 I7 C' U1 M0 B  两三个月华夏后,她离了婚,她说:“还是现在轻松,省的整天挂念。”我越发惊骇于她的安静,她宽慰我说:“这世上,满是生了病还不想死的人,别瞎操心,我还有你呢。”
5 m! l0 Z7 H( _% W) B3 k& q0 }' H5 D2 ^. C2 w7 ?  a
  好在她开了个传奇外传百货店,生活也过得有滋有味。9 G. e; q6 g" {+ v

4 ^8 f( ^; [* z, R& @1 X  我要结婚的时候,她忽然又变了,仿佛得了婚前恐惧症的是她,看什么都不顺眼,同样的话,搁她那儿说出来总是难听得很。我让她先去神鬼传奇吃饭,她说:“又不是猪,等你一会儿饿不死。”我让她别太累,她说:“不累,不累吃什么去?”
2 r* E/ x/ Z- H4 G4 Y" r4 |8 l# R9 \/ e8 z
  那么亲的人,忽然间QQ华夏又陌生了。我结婚的前一夜,几近黎明的时候,她坐在我的床边,像18年前那样,叫我的名字“秋和”,声音低低的,全是不舍。我装作睡着了,泪湿了整个枕巾。在她身边呆了18年的唯一的亲人,在天亮的时候,却要由她披上婚纱送出门去

TOP

dnf外挂2

dnf外挂
5 a( o( [7 c* j& G! |
, G1 Y& O  j- b$ i6 r游戏一起玩-DNF地下城与勇士交易平台,是目前国内最大的DNF地下城与勇士交易平台,为您提供深圳、长沙、武汉等多个大城市最新; u# ]+ [* a0 T% b6 R" C9 z
! @) X5 _; p3 l0 x
DNF外挂,DNF地下城与勇士账号、金币、装备等交易信息,欢迎访问。

# Q4 n7 p, o7 w  i
# @/ h- b3 d. z$ I' _9 B& Ednf免费外挂
  R2 t7 ^5 y% n! y0 `! Z2 U9 Q
  {/ b& Q2 h# W3 R/ c0 d为您提供最新地下城与勇士信息以及最新外挂(DNF外挂)下载 所有
# R3 B" W8 P1 {$ F1 h* U' c! K/ m  S2 H0 e9 Z
DNF外挂全部为最新的免费外挂 请一定记住我们的网址

2 G) N  [( L4 ~, e+ J9 Odnf
: g, O5 |( M4 F+ ]% z% X1 v, @- m& }9 `% e
www.smxzs.com.cn   www.smxzs.com.cn- N( n0 B2 u% T% v

. X$ }- W3 V8 z+ z& V. G8 `

TOP

支持!

支持!
* r, M2 q, W# ?* F6 h* j, y( K. j+ V: k6 E8 R( S
+ [; n! t. u& V$ _9 w
: ~7 ?' C$ J" F* Y0 \

4 V; f0 q3 q5 i
1 r- U& E3 R  ^
3 U0 q% d# ?. [- ^* \6 Q5 C; M$ Q, O5 K1 ~1 y/ t

, T/ N# J) X1 r
# a1 ~% C9 J2 w2 l/ l) K( t2 `, k( x' |
: s; L- W! J9 T& k8 y
/ {' U, p7 R1 w4 r
  L. {5 x, m) l# n
A333GR3无缝钢管 无缝方矩管 S355无缝方管 热轧无缝方管 无缝方管

TOP

支持!

支持!1 a* _; k4 z" W) `# `, v
3 j1 N& h# q6 a. p' [( C. a
) M6 s5 l, P* e( h/ |9 @5 W+ c

8 k6 Y/ O$ j3 w8 i/ C! J% l0 t+ Z) H3 e* \$ E9 Y3 n

0 t2 r# A1 k/ L  {, I& Q' Z1 U& p
* J  K5 f* D  K: p! P$ S; F: g& N/ [& X& t  l

5 R, u1 \7 s5 `
+ {) v) i8 b6 r9 f/ M' a) |/ ]1 u. d

5 ?( [5 _5 f8 u. M3 X* x% `+ B" O2 N5 Q  s6 e$ J1 x4 s' P
) h5 a- i% S+ l1 M5 t
无缝钢方管 无缝钢矩管 A335P11合金管 不锈钢卷板 螺旋管

TOP

支持!

支持!: w: ]2 z0 E+ z( I4 O; }0 N3 V" t
7 x" j7 l. q9 ?' n0 _0 o+ M

6 m1 G" M& k1 ]2 e! E+ i# h: d# Y" f

& I# A) E/ o# p0 P
1 R! X' I8 U# [/ t9 {# V* T' v3 t9 ^, g) G# J

6 l, U8 N5 J& n5 B; {8 a5 k6 S# M: D9 ?  `6 ?

7 c, q+ e* R0 g% `5 f
: \0 }, M$ W8 q" y; a/ T1 u" |1 }8 x

3 r8 U4 J% T+ \6 @; @0 T7 Q$ h. j
. T% Y9 W9 O3 L2 N, H: n3 ~16mn无缝管 Q345B无缝管 12Cr1moVG合金管 15CrMoG合金管 304不锈钢管

TOP

發新話題