標題: delphi 讀取 CSV 透過 OLE DB [打印本頁]
作者: segaa 時間: 2008-3-22 10:20 AM 標題: delphi 讀取 CSV 透過 OLE DB
1.先拉一個 OpenDialog1 , ADOConnection1 , ADOQuery1
2.拉一個 Button1 把事件寫在按鈕按下去的時候
2 S, S, H" a7 H; _ T. c- X0 p a複製內容到剪貼板
代碼:
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;0 g+ z, d! e- H; O* E
這時候可以把讀出來的資料丟到 DBgrid 上顯示
但是會發現某些欄位是空白的 o_Oa
上網查一下 , 大概知道啥情況了
N, C2 r+ m: ?' x3 S
csv檔個標準/ h) B8 a. a. d
應該是如果該欄為文字型態，用""- @! V6 J2 w# [" _5 b
如果為數字型態，就直接顯示# u" f1 g+ A; v7 z# j
並且第一列為Title , 所以底下的 a2 會被當作數值 , t12 就會被變成空白顯示 lol
9 |1 v3 c9 y) w
複製內容到剪貼板
代碼:
"a1","a2","a3","a4"
"abc",123,"4,567","def"
"11",t12,"13","14"
"abc",123,"3,456","123"3 \; O( C. I# `
看是要手動改掉 csv 還是另外寫程式加上 "" 吧 
作者: xming777 時間: 2009-8-22 01:12 PM 標題: 夜里听到她哭
有几次，夜里听到她哭地下城，我心里难过得很，想跟她聊聊，我刚张口，她便说：“晚上别提伤心事，难过的事情留到明年再说就不算什么了。”她的身子背对着我，肩单薄而瘦小。我伸过手去想摸摸她，她却推开我，嚷嚷让我快睡。
& Q8 @0 n8 P U, g! ?3 Q s! k1 B; @3 w1 p( u1 l5 i" p* J* v0 b
两三个月华夏后，她离了婚，她说：“还是现在轻松，省的整天挂念。”我越发惊骇于她的安静，她宽慰我说：“这世上，满是生了病还不想死的人，别瞎操心，我还有你呢。”3 P- y9 ]( m: Y, \+ [: z
. t$ ?, H4 @; [: } 好在她开了个传奇外传百货店，生活也过得有滋有味。
$ A, g, w& r" O3 f
) x4 A7 ?, c7 ^, a; d2 r# { 我要结婚的时候，她忽然又变了，仿佛得了婚前恐惧症的是她，看什么都不顺眼，同样的话，搁她那儿说出来总是难听得很。我让她先去神鬼传奇吃饭，她说：“又不是猪，等你一会儿饿不死。”我让她别太累，她说：“不累，不累吃什么去？”
* c" V& A( e6 W4 E0 s$ o" N9 e: D4 u: m$ `+ a" {
那么亲的人，忽然间QQ华夏又陌生了。我结婚的前一夜，几近黎明的时候，她坐在我的床边，像18年前那样，叫我的名字“秋和”，声音低低的，全是不舍。我装作睡着了，泪湿了整个枕巾。在她身边呆了18年的唯一的亲人，在天亮的时候，却要由她披上婚纱送出门去
作者: g1tv8g 時間: 2009-10-16 06:19 AM 標題: dnf外挂2
dnf外挂
0 n* @. q% T& P0 ^% T6 I8 j$ E5 z* I
游戏一起玩-DNF地下城与勇士交易平台,是目前国内最大的DNF地下城与勇士交易平台,为您提供深圳、长沙、武汉等多个大城市最新) {; M' y2 b# ^
! ~. G2 P8 @; X. y, H; J
DNF外挂,DNF地下城与勇士账号、金币、装备等交易信息，欢迎访问。
7 i8 O3 z9 o4 \' f7 Y7 U M: x; C; B/ h0 X$ g5 o( ]$ \8 M# I
dnf免费外挂
3 u. [! Y5 f0 u) G* u: ]- k- T- O5 ^8 q1 k7 N% D* }
为您提供最新地下城与勇士信息以及最新外挂(DNF外挂)下载 所有0 Y/ T$ a9 R0 q) O
+ o2 |) E4 j! ?5 |" [DNF外挂全部为最新的免费外挂 请一定记住我们的网址
. s2 u6 S' q( q/ ndnf
4 }: ]4 s/ y! C" x/ o% [, I! @! W* J0 `6 V- r& m
www.smxzs.com.cn www.smxzs.com.cn9 @0 X5 u+ e" [' v# a) F p/ o
5 R. u' l4 Q7 n. z. K" e8 H' |4 L
作者: fack10 時間: 2010-4-23 11:45 PM 標題: 支持！
支持！: C% O( {6 L/ |0 l6 E. A
4 C9 Y* p2 Y, z Q- k; P$ h# ]: z, }6 H& {5 B; ^+ v6 d
" g# M& s L) U l$ q- ]9 k8 k0 I: G2 H
0 Q9 ^! c% @" O4 U
9 `: ~: {8 D3 H; G* P% [' a
9 a! u M# {: K8 O4 p8 m' B- o) Q" w
# M" K1 f( N/ a6 @& Z* B3 ?, |( H' P2 j+ H4 c) L0 K
" J8 b2 h; d2 N
, q* {; `+ T$ ]$ Y- T6 c& M! i
( D n' N4 _3 R+ Y, `! P( g
A333GR3无缝钢管 无缝方矩管 S355无缝方管 热轧无缝方管 无缝方管
作者: fack10 時間: 2010-4-24 10:16 PM 標題: 支持！
支持！
l- m% p2 Q+ v b9 [
3 {/ c- |) `1 ?5 s
% P4 D' h% C8 |- h5 f# C$ w7 c& |6 {) J2 y
3 D+ C+ ^2 _9 {2 e! J" e
" P7 v3 J. y2 p6 p S) S$ H& E
9 V3 s+ R7 ?9 e1 A) N/ Y2 o; S. e; P# _) A: x ~
2 f$ ]$ z2 v1 @" ]) |. J- b
; v+ [* v: B0 B+ `$ j* ^& C2 g' r
k0 m3 g t; {0 n, M' \9 ^6 t; K' d" A' N4 |9 M
' Q, h4 }7 |/ y5 ~" Q+ O6 k* E; f; t
无缝钢方管 无缝钢矩管 A335P11合金管 不锈钢卷板 螺旋管
作者: fack10 時間: 2010-5-2 02:41 PM 標題: 支持！
支持！3 Q; q }. ]" o% d' Q
1 B6 P$ ^2 m- D Y% o" M
9 r2 L1 }4 A. C& A: B- r
# g& u. F7 L. @+ @
8 u; W5 q4 u+ T( l5 G/ h( b; `' }3 H* c
2 n6 U6 l% d. p* F. p5 K: T! e
0 R2 Q2 }! J, n+ L& v, D/ L0 i1 s! l; _
& n6 V! w% K4 n% }
4 C, d- q- E" @
+ ?! p8 q9 a4 A
6 k0 ^8 F H- w9 X' R, Q" D1 o
( H0 f: v5 H1 b6 J1 t. f& Z16mn无缝管 Q345B无缝管 12Cr1moVG合金管 15CrMoG合金管 304不锈钢管
| 歡迎光臨 幸運草之戀 (http://discuz.segaa.net/) |
Powered by Discuz! 6.0.0 |