標題: delphi 讀取 CSV 透過 OLE DB [打印本頁]
作者: segaa 時間: 2008-3-22 10:20 AM 標題: delphi 讀取 CSV 透過 OLE DB
1.先拉一個 OpenDialog1 , ADOConnection1 , ADOQuery1
2.拉一個 Button1 把事件寫在按鈕按下去的時候
) M" T- a6 {4 t. R" Y複製內容到剪貼板
代碼:
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;
. p5 }7 F% P2 F, r; ^5 F% F: B這時候可以把讀出來的資料丟到 DBgrid 上顯示
但是會發現某些欄位是空白的 o_Oa
上網查一下 , 大概知道啥情況了
# H' W, ]) n$ D0 ccsv檔個標準
8 q' r, C& y; M2 J: T# S" y" r應該是如果該欄為文字型態，用""( {' d% m( b. g% B3 n; K. ? G- p2 s
如果為數字型態，就直接顯示6 h4 j! w3 R( H" |" T2 H o
並且第一列為Title , 所以底下的 a2 會被當作數值 , t12 就會被變成空白顯示 lol
8 y" z6 Q! L& M; l
複製內容到剪貼板
代碼:
"a1","a2","a3","a4"
"abc",123,"4,567","def"
"11",t12,"13","14"
"abc",123,"3,456","123"0 i5 X Y3 Q0 T* P! y$ N
看是要手動改掉 csv 還是另外寫程式加上 "" 吧 
作者: xming777 時間: 2009-8-22 01:12 PM 標題: 夜里听到她哭
有几次，夜里听到她哭地下城，我心里难过得很，想跟她聊聊，我刚张口，她便说：“晚上别提伤心事，难过的事情留到明年再说就不算什么了。”她的身子背对着我，肩单薄而瘦小。我伸过手去想摸摸她，她却推开我，嚷嚷让我快睡。
4 f% w. N; M+ ?- R' r! K2 ?( j( Y0 |$ g
两三个月华夏后，她离了婚，她说：“还是现在轻松，省的整天挂念。”我越发惊骇于她的安静，她宽慰我说：“这世上，满是生了病还不想死的人，别瞎操心，我还有你呢。”
/ f, w" S7 {1 G0 t2 V* j5 R4 e$ c, p/ i8 E y2 a& `1 _
好在她开了个传奇外传百货店，生活也过得有滋有味。8 Y0 |7 m$ `% Q
9 x/ j I6 u7 y: l- z 我要结婚的时候，她忽然又变了，仿佛得了婚前恐惧症的是她，看什么都不顺眼，同样的话，搁她那儿说出来总是难听得很。我让她先去神鬼传奇吃饭，她说：“又不是猪，等你一会儿饿不死。”我让她别太累，她说：“不累，不累吃什么去？”6 Y# ?2 d Y' J: m( y3 {" ?! D
- L( R8 P9 b1 y, O7 f; B 那么亲的人，忽然间QQ华夏又陌生了。我结婚的前一夜，几近黎明的时候，她坐在我的床边，像18年前那样，叫我的名字“秋和”，声音低低的，全是不舍。我装作睡着了，泪湿了整个枕巾。在她身边呆了18年的唯一的亲人，在天亮的时候，却要由她披上婚纱送出门去
作者: g1tv8g 時間: 2009-10-16 06:19 AM 標題: dnf外挂2
dnf外挂
- B7 b: r9 c1 M! t1 G& ?1 a0 @' D
! T* ~- c9 v+ ?) _游戏一起玩-DNF地下城与勇士交易平台,是目前国内最大的DNF地下城与勇士交易平台,为您提供深圳、长沙、武汉等多个大城市最新/ I/ H. r4 l: V, j" h5 h
8 T, U! ]% m j4 T% M( Y5 ~6 @- ^3 f* X
DNF外挂,DNF地下城与勇士账号、金币、装备等交易信息，欢迎访问。
- l9 @0 \1 x) ]* U+ ?3 }0 V
0 ~! }2 L2 B2 ?dnf免费外挂
. u7 w. ?, e! j
2 |/ b: f' I' [- }0 ]' B9 A# A/ v' H为您提供最新地下城与勇士信息以及最新外挂(DNF外挂)下载 所有3 Q/ K8 c, P) b7 Y K
- h6 {! q x+ T" U0 ]( H
DNF外挂全部为最新的免费外挂 请一定记住我们的网址& W* {. A. P1 c3 w
dnf* u1 G6 P/ r, r4 E: |+ ?3 L
, B8 _0 m$ g" Y; r% Fwww.smxzs.com.cn www.smxzs.com.cn- r1 U& r/ Y, ?9 b/ ~6 T
8 y- o! x# V0 d) P2 \, G& g7 W
作者: fack10 時間: 2010-4-23 11:45 PM 標題: 支持！
支持！
& v0 T- `' o# f( W9 e3 t o$ R: ]
( m: e& g7 \: p% g' z
, y- @: x9 |0 {" \4 |( s ] |" }2 }' I9 n F. I
2 W, U. ^; o1 R: C3 N- B) Q& C+ j0 [6 I4 m* s
2 l4 q, [8 h; @8 j5 [% E& Z9 Y% p5 T/ E7 u" c: z
6 Z% x' n4 k8 E8 z0 D* c, Q3 p0 H) M( `; K; k/ f
3 i* S; h3 X9 S* R# \
- I9 D! l- S, b2 A
" S& C+ f' u7 ?
8 _* a5 q& ~4 HA333GR3无缝钢管 无缝方矩管 S355无缝方管 热轧无缝方管 无缝方管
作者: fack10 時間: 2010-4-24 10:16 PM 標題: 支持！
支持！: N0 A/ K5 c1 p& D% m
7 g& V" r, D9 Z- Y
6 c: N4 M( ]& D5 f! U; n" _2 s
4 d9 L' i! ^! x! M, O; f; c0 I: X" t4 P8 O
0 L' L2 @* p4 S# t) M+ M6 J/ l2 d; Y5 ^+ i* b |9 _! P. r
, Q. m: l5 U) X5 Z) i5 W- c; w; {: ?3 g& K
3 C- j- N: K U0 S! x# D& o- D q+ Y- N
) L# e2 ]6 o, c! i" E- n2 d
# M# _% d, @6 `5 o- {3 w5 t
6 P% {; B2 X1 _" B无缝钢方管 无缝钢矩管 A335P11合金管 不锈钢卷板 螺旋管
作者: fack10 時間: 2010-5-2 02:41 PM 標題: 支持！
支持！8 i: C7 f9 G) U: k, ~$ {/ ?
; `- ]+ u0 ^" b3 f$ p; |+ O! u+ ~4 X0 J1 b$ O4 s6 `& Z6 m( q
& ~3 i& k1 T! M* N$ O
4 U; p l, V& k) G% F5 ?
9 Z; m; _9 \, V$ {8 u1 F
7 R! \2 U8 c- n, T9 H& E2 @6 a0 ~, `( M" o' ^; ]$ K
# J9 q3 `9 M7 Z; w
, y+ l- n" B/ J/ e% i. F
/ H' x% p* b8 @6 f ?# E+ t2 A* B
6 b3 T0 U, |4 S P5 S; c6 G! b( Z. E4 Z- k; u {, ~& X8 O4 F: t X p! }: _: v
' I* }% x& D$ z9 W% m0 c9 ]; H2 z16mn无缝管 Q345B无缝管 12Cr1moVG合金管 15CrMoG合金管 304不锈钢管
| 歡迎光臨 幸運草之戀 (http://discuz.segaa.net/) |
Powered by Discuz! 6.0.0 |