打印

delphi 讀取 CSV 透過 OLE DB

delphi 讀取 CSV 透過 OLE DB

1.先拉一個 OpenDialog1 , ADOConnection1 , ADOQuery1

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

% j6 q. r- V4 C" J& B

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


/ k% @8 t- m/ N  n) }$ _9 T. D# b

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

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

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

5 P6 V0 U# b6 x! ~9 L3 y2 \

csv檔個標準
( I  |7 L$ E; L' g) e& a( }應該是如果該欄為文字型態,用""$ O0 P& C/ j" Y
如果為數字型態,就直接顯示# F' C, ]' o# g6 e* e, S
並且第一列為Title , 所以底下的 a2 會被當作數值 ,  t12 就會被變成空白顯示 lol
& \: X  j% x; y: e

複製內容到剪貼板
代碼:

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


% \' M# D  C& G- s. [

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

TOP

夜里听到她哭

  有几次,夜里听到她哭地下城,我心里难过得很,想跟她聊聊,我刚张口,她便说:“晚上别提伤心事,难过的事情留到明年再说就不算什么了。”她的身子背对着我,肩单薄而瘦小。我伸过手去想摸摸她,她却推开我,嚷嚷让我快睡。/ E' w! [4 x0 [: ~" G% B- u
5 S) Z4 E7 x1 _+ Q4 u- k  R% y
  两三个月华夏后,她离了婚,她说:“还是现在轻松,省的整天挂念。”我越发惊骇于她的安静,她宽慰我说:“这世上,满是生了病还不想死的人,别瞎操心,我还有你呢。”
' w, y7 B- Z3 ?9 C: Z! x
* f, X( p. l4 f: ?8 E, m" h! q3 f% k  好在她开了个传奇外传百货店,生活也过得有滋有味。
9 u; l' G3 B; b# N
' H3 o6 s0 ]* m" i1 Y3 t$ q/ w  我要结婚的时候,她忽然又变了,仿佛得了婚前恐惧症的是她,看什么都不顺眼,同样的话,搁她那儿说出来总是难听得很。我让她先去神鬼传奇吃饭,她说:“又不是猪,等你一会儿饿不死。”我让她别太累,她说:“不累,不累吃什么去?”9 E( d* X# ?# b" S. \. f

4 Q- N& `* T6 \' E4 O# r+ p  那么亲的人,忽然间QQ华夏又陌生了。我结婚的前一夜,几近黎明的时候,她坐在我的床边,像18年前那样,叫我的名字“秋和”,声音低低的,全是不舍。我装作睡着了,泪湿了整个枕巾。在她身边呆了18年的唯一的亲人,在天亮的时候,却要由她披上婚纱送出门去

TOP

dnf外挂2

dnf外挂' M' u( j1 q. y1 Z% f3 J

( E& ?. q0 j+ J' X8 {% A2 \游戏一起玩-DNF地下城与勇士交易平台,是目前国内最大的DNF地下城与勇士交易平台,为您提供深圳、长沙、武汉等多个大城市最新4 H9 p3 u& K- q7 y4 `

, v' `0 W* R+ {; A/ m( X: hDNF外挂,DNF地下城与勇士账号、金币、装备等交易信息,欢迎访问。

9 n- p/ S' ^" k/ o7 c6 o5 }0 T
9 k  s2 M  t9 @9 h0 a- f- Kdnf免费外挂
. d. C& \; W) S' ~  D8 ?. E- e& ]; `5 E# K& m. Q! ], P4 k) h
为您提供最新地下城与勇士信息以及最新外挂(DNF外挂)下载 所有
' a" f5 J& j% j0 P' k  _  x9 k1 @5 V5 C$ F' \6 d: K  t$ y2 X
DNF外挂全部为最新的免费外挂 请一定记住我们的网址

2 ?$ X" Q6 u0 `dnf- t: t7 Z& J  G
& W' n! f) ?% v: B7 @8 u# F1 V
www.smxzs.com.cn   www.smxzs.com.cn- a4 ?3 f2 y+ M/ O, r9 @# b) S7 W1 l

5 L, R1 [, |" l5 y& C' P2 O

TOP

支持!

支持!7 Q$ Y% W1 h1 N; N3 p; `& t

" j7 r6 ^$ [) j* u- I/ G) l
  W" v: X) Z, h- l) `5 k4 [; [/ k6 Y3 }- I  V6 t; L
* @, H0 r5 f' l! M1 S* g  z! O
: {& C& G* x+ A$ t6 A! Y

4 F0 S9 S4 N4 d( b6 D0 q$ _  G  O) R4 J
+ `6 S. s, |' g$ @# s$ D

" }3 W. D8 c- F3 n$ s; _5 k
- c2 f+ h) X( q0 M
9 g/ g/ `6 D, P' V! |$ K6 `5 t" }- d: j% a

6 u7 E$ m# d+ q9 z' B- U& RA333GR3无缝钢管 无缝方矩管 S355无缝方管 热轧无缝方管 无缝方管

TOP

支持!

支持!# ]% W( C  U! l, E5 T( N3 I
# C' W& z2 X# q! t

3 q. ^2 @' f! J* w
& X7 Z$ }0 p7 f
4 q, I  j4 N" ?, h# ^
- J4 g: d. a2 G3 }
5 B0 B4 x8 ~# S; c9 F8 A
( x( }3 h! u) u! ?- ^
/ e3 G0 e% E  L" w, J2 m8 k/ y1 E# O0 s( S) v3 p, F6 g

) M- T6 A; L  D; v+ f3 U+ |4 m$ w0 j: i) ~" v; a

4 }! l+ H$ w: U6 Y! e9 H& `
' |9 l$ ^" a3 Y2 I5 [: j$ u无缝钢方管 无缝钢矩管 A335P11合金管 不锈钢卷板 螺旋管

TOP

支持!

支持!) J/ K# o1 _- @* t$ e+ b" S. a& j, |

- B1 S6 P* `2 a2 _5 n" ]+ C( _% k3 }
$ Q& s$ T$ a1 |. S9 I$ S* p$ @7 F- L% Z" |; p$ m% S
& ~' i1 f* b& g) [6 c2 m3 ~
& _: X3 p6 U) u* h

7 h3 i5 Z3 S7 d4 o7 }3 I7 t% `
  z! b) |1 M0 U& a
6 q7 F: ?4 o. N
- }5 V/ c% d  Z2 u9 a2 |/ L$ b
; H! M$ o8 ~* _% Y$ B$ _; O
* b, L, I, X0 `% q9 Q, n
% N" k# e4 _( P  ^1 V3 z, \
- s0 c, m: M# v  L. o2 H16mn无缝管 Q345B无缝管 12Cr1moVG合金管 15CrMoG合金管 304不锈钢管

TOP

發新話題