標題: delphi 讀取 CSV 透過 OLE DB [打印本頁]
作者: segaa 時間: 2008-3-22 10:20 AM 標題: delphi 讀取 CSV 透過 OLE DB
1.先拉一個 OpenDialog1 , ADOConnection1 , ADOQuery1
2.拉一個 Button1 把事件寫在按鈕按下去的時候
' z7 C6 G3 E4 j; U E- d( r3 }. I
複製內容到剪貼板
代碼:
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;4 x8 B6 } I$ K! \3 |& y
這時候可以把讀出來的資料丟到 DBgrid 上顯示
但是會發現某些欄位是空白的 o_Oa
上網查一下 , 大概知道啥情況了
+ a! P5 t; p0 l2 Q" ^; p1 R
csv檔個標準$ ]! j' ^+ e0 ]* L3 U+ q# y1 N
應該是如果該欄為文字型態，用""
$ e5 p6 T# C) f' I3 Z& m& v6 {如果為數字型態，就直接顯示* u l) p* S7 G K' a1 Z" g
並且第一列為Title , 所以底下的 a2 會被當作數值 , t12 就會被變成空白顯示 lol
1 n; i, R5 W& Y1 Y7 }
複製內容到剪貼板
代碼:
"a1","a2","a3","a4"
"abc",123,"4,567","def"
"11",t12,"13","14"
"abc",123,"3,456","123"9 k F% r1 C3 J2 K. q" b
看是要手動改掉 csv 還是另外寫程式加上 "" 吧 
作者: xming777 時間: 2009-8-22 01:12 PM 標題: 夜里听到她哭
有几次，夜里听到她哭地下城，我心里难过得很，想跟她聊聊，我刚张口，她便说：“晚上别提伤心事，难过的事情留到明年再说就不算什么了。”她的身子背对着我，肩单薄而瘦小。我伸过手去想摸摸她，她却推开我，嚷嚷让我快睡。
; W2 B7 ^# L# |. J( K! W
% w5 ~8 F% \' A+ C7 E C 两三个月华夏后，她离了婚，她说：“还是现在轻松，省的整天挂念。”我越发惊骇于她的安静，她宽慰我说：“这世上，满是生了病还不想死的人，别瞎操心，我还有你呢。”
: W- N6 U8 V' y4 `6 D( p
& H; A# I/ J8 s% x0 A1 n- W3 H# y 好在她开了个传奇外传百货店，生活也过得有滋有味。
3 B& ^ w8 X1 Z3 s
( y6 W% T. n- a) W2 h* k2 S 我要结婚的时候，她忽然又变了，仿佛得了婚前恐惧症的是她，看什么都不顺眼，同样的话，搁她那儿说出来总是难听得很。我让她先去神鬼传奇吃饭，她说：“又不是猪，等你一会儿饿不死。”我让她别太累，她说：“不累，不累吃什么去？”
: a- ?& G% _! y1 s; q7 N! d
$ n$ q' w9 B8 h0 d+ m# A 那么亲的人，忽然间QQ华夏又陌生了。我结婚的前一夜，几近黎明的时候，她坐在我的床边，像18年前那样，叫我的名字“秋和”，声音低低的，全是不舍。我装作睡着了，泪湿了整个枕巾。在她身边呆了18年的唯一的亲人，在天亮的时候，却要由她披上婚纱送出门去
作者: g1tv8g 時間: 2009-10-16 06:19 AM 標題: dnf外挂2
dnf外挂
( d; N* s1 Q+ A% K! J5 X2 X9 M
: h; ?7 f+ T" n- V7 p: k游戏一起玩-DNF地下城与勇士交易平台,是目前国内最大的DNF地下城与勇士交易平台,为您提供深圳、长沙、武汉等多个大城市最新! p1 ~5 t6 K; V+ f u
' f: g E; ?$ Q$ V5 H
DNF外挂,DNF地下城与勇士账号、金币、装备等交易信息，欢迎访问。 3 S7 m* B% y& `# y5 [- I
- U. \# r) d. N: U- Cdnf免费外挂
0 C' d% ?& m* t- ~ @
0 q4 r7 `" A+ |! R; e为您提供最新地下城与勇士信息以及最新外挂(DNF外挂)下载 所有( [1 F' {% a& Q$ B" R
* V# c) l& I$ X' ~/ u0 T, ~( ^DNF外挂全部为最新的免费外挂 请一定记住我们的网址
$ l: N/ X: c# ndnf
6 ]; B: |5 O: m* m, r5 W/ F2 D: p! K4 Y5 R$ e& c
www.smxzs.com.cn www.smxzs.com.cn
& H3 l6 r) T4 e7 G& T, b) H
0 [, ?, } ]% h% ^ @
作者: fack10 時間: 2010-4-23 11:45 PM 標題: 支持！
支持！
2 q* O; Q2 |4 o. x0 T$ E
) H+ ~$ i# |3 e5 }) V2 v% l. m4 j+ [! x$ v7 d) f
F" X! m1 _9 z: t
* o7 q ]& n; ~7 x
; c8 \$ O) f4 x) p2 ~3 J5 ^5 j
2 U# V8 J$ Y* o( b& i+ G7 M5 U+ n$ @! O. \
8 M7 `6 u/ _9 f' s2 V7 O1 o# e0 j% R( ], X7 n5 v" a5 V
: t% c- } q% F2 A. d9 @! o
% W+ G+ E1 c7 `" d; C7 z
; G, C7 P5 Q- X' Z
H5 t! J; [% i; U8 @8 r1 SA333GR3无缝钢管 无缝方矩管 S355无缝方管 热轧无缝方管 无缝方管
作者: fack10 時間: 2010-4-24 10:16 PM 標題: 支持！
支持！' K$ r7 Q& I0 w$ F! y
# u, k9 s& G/ i8 f3 P1 t
% |0 O ?' d! X$ Z5 A: R
/ d2 L8 \" D( O6 d! q
7 F; J# v% t+ r& I8 z- j3 A% P
) b" ]6 u% v& v* ~1 D/ _" m$ G4 D* X4 Z* \- Z( b
; T% h& C+ {+ b- V' D/ O- F$ `7 C$ _( M6 I! ^+ r8 M( ?1 D2 N
5 x8 q o8 @: B$ [9 @+ l5 J, G( `1 b3 z/ D# i6 V
, n$ C7 Z! _2 C; m4 j; {4 H
* {. t; b) m5 R- d: A( ?
; \ p5 [: \, b4 j. d
无缝钢方管 无缝钢矩管 A335P11合金管 不锈钢卷板 螺旋管
作者: fack10 時間: 2010-5-2 02:41 PM 標題: 支持！
支持！
' r8 s5 i( g' F# r# @) u/ n
8 d2 l' F% Y8 B$ ?5 ^& B$ h3 Q r% Y- \
- |* \3 {) u, o& ]
5 f, g! {7 h; ]$ m/ K* M
7 ]: \! \+ I6 U1 D3 q* f1 s& E0 u/ X2 D* f) e
P0 O5 C+ l; O/ j& l) O& w9 \7 i5 f) n, g2 J/ V- ?+ j
1 L8 I. T( l- I/ g5 ~
. S. R, ^+ Z7 x) G. H( B& e
' I) j) d+ ~ `( d( K
4 d3 u5 w% H8 ~, i& u8 a% I" o( s: v' K" D! E' B8 D" i; Y
16mn无缝管 Q345B无缝管 12Cr1moVG合金管 15CrMoG合金管 304不锈钢管
| 歡迎光臨 幸運草之戀 (http://discuz.segaa.net/) |
Powered by Discuz! 6.0.0 |