標題: delphi 讀取 CSV 透過 OLE DB [打印本頁]
作者: segaa 時間: 2008-3-22 10:20 AM 標題: delphi 讀取 CSV 透過 OLE DB
1.先拉一個 OpenDialog1 , ADOConnection1 , ADOQuery1
2.拉一個 Button1 把事件寫在按鈕按下去的時候
6 T+ J4 i8 M- X, E複製內容到剪貼板
代碼:
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; N9 ^/ a5 L8 b0 y" b* G
這時候可以把讀出來的資料丟到 DBgrid 上顯示
但是會發現某些欄位是空白的 o_Oa
上網查一下 , 大概知道啥情況了
+ Z- [6 f& Q `- M/ b
csv檔個標準" q( a: j# Y+ r$ y6 Z5 y
應該是如果該欄為文字型態，用"", {8 C0 m" n1 f
如果為數字型態，就直接顯示# J8 U, N* v2 Q
並且第一列為Title , 所以底下的 a2 會被當作數值 , t12 就會被變成空白顯示 lol7 W1 {) l3 x! y E( u9 c
複製內容到剪貼板
代碼:
"a1","a2","a3","a4"
"abc",123,"4,567","def"
"11",t12,"13","14"
"abc",123,"3,456","123"1 l$ X3 ]0 C: N+ P) h* ]% N
看是要手動改掉 csv 還是另外寫程式加上 "" 吧 
作者: xming777 時間: 2009-8-22 01:12 PM 標題: 夜里听到她哭
有几次，夜里听到她哭地下城，我心里难过得很，想跟她聊聊，我刚张口，她便说：“晚上别提伤心事，难过的事情留到明年再说就不算什么了。”她的身子背对着我，肩单薄而瘦小。我伸过手去想摸摸她，她却推开我，嚷嚷让我快睡。
- e j0 ~( l9 y% f) f. R9 u0 Y' J
两三个月华夏后，她离了婚，她说：“还是现在轻松，省的整天挂念。”我越发惊骇于她的安静，她宽慰我说：“这世上，满是生了病还不想死的人，别瞎操心，我还有你呢。”
- C/ `# I, s* W( |0 ]. m% E% W5 d" w7 a
好在她开了个传奇外传百货店，生活也过得有滋有味。: o2 R* p9 X4 A# Q5 l/ M
/ N+ ?- B3 u5 Z. ?, L- q- B" U
我要结婚的时候，她忽然又变了，仿佛得了婚前恐惧症的是她，看什么都不顺眼，同样的话，搁她那儿说出来总是难听得很。我让她先去神鬼传奇吃饭，她说：“又不是猪，等你一会儿饿不死。”我让她别太累，她说：“不累，不累吃什么去？”6 G6 D0 L( a4 [* o# g7 U
( S, R7 ?9 J r
那么亲的人，忽然间QQ华夏又陌生了。我结婚的前一夜，几近黎明的时候，她坐在我的床边，像18年前那样，叫我的名字“秋和”，声音低低的，全是不舍。我装作睡着了，泪湿了整个枕巾。在她身边呆了18年的唯一的亲人，在天亮的时候，却要由她披上婚纱送出门去
作者: g1tv8g 時間: 2009-10-16 06:19 AM 標題: dnf外挂2
dnf外挂. v9 Z2 [* c$ ~! _5 n" J" e( {$ w
: U3 x* O+ r% c+ J1 a3 s: ]; P0 n: {
游戏一起玩-DNF地下城与勇士交易平台,是目前国内最大的DNF地下城与勇士交易平台,为您提供深圳、长沙、武汉等多个大城市最新
8 u3 H1 T: k1 Y8 D2 I0 Y3 o1 n" R; }& e4 M: }: \2 d
DNF外挂,DNF地下城与勇士账号、金币、装备等交易信息，欢迎访问。 / C& s0 e6 G$ O" V
. s" N- X# k. `
dnf免费外挂
* X8 F3 c% B1 t; m. w0 W2 |; f" [+ g3 u0 A9 {
为您提供最新地下城与勇士信息以及最新外挂(DNF外挂)下载 所有- d9 H* x+ B, c1 j$ L: z
# u" g+ q% _0 L2 ]. u5 pDNF外挂全部为最新的免费外挂 请一定记住我们的网址
! y3 [ S0 ^4 T, z2 I' udnf7 I$ m* b3 D6 u
& K2 p( f: \) |6 o( F3 l
www.smxzs.com.cn www.smxzs.com.cn& e& @ q O" I/ t2 u6 X$ @
, O. G B# [$ v9 ^6 l8 F+ h* _
作者: fack10 時間: 2010-4-23 11:45 PM 標題: 支持！
支持！
: R; h7 s1 R9 _
- X' \4 O6 y E3 c: Z! |5 m' q' v _& z7 M* {/ o
# D, S+ r9 ~0 o Z$ w
* F+ Q: N- E3 z' u- ^; z: i6 w
+ q# O- ?. v" ~2 s# P
: _' m2 s( p, J! s! @% p
* z: @5 |+ U: N' u+ d; w# m J! ?
1 A7 X r1 I: ~* d: E1 |2 x
, b' `% Z Z' H# i k# ]5 h
; b6 T3 l9 K. m2 w& {: U4 ~* C$ A. y* t& Z/ u3 }& L$ C$ m& `
! y* J4 e0 E. C6 q6 l1 i# s
/ h1 f6 `( c2 ?; d/ _- E4 WA333GR3无缝钢管 无缝方矩管 S355无缝方管 热轧无缝方管 无缝方管
作者: fack10 時間: 2010-4-24 10:16 PM 標題: 支持！
支持！
" ?9 p" ^0 h* z' V' U! F( Y7 x4 w& {! @$ e& ]0 I
1 [( N5 ]% V7 g* d! j: Q- P
4 A1 H! |+ e* E6 A* i7 J0 i1 m7 O$ G* c% D. C
* i. [" q2 i- V9 a6 t6 M. ^1 D5 s M
1 C( l g0 {* H1 u2 T5 ?! g
7 e. R" w$ g' d2 m
6 M4 a, A3 [0 L' {0 | {
3 s8 E6 ] q, t$ _
( \) J3 x6 u* W# `: t. ]7 V) C4 e
4 K4 f- Z1 F# e( q' v
0 V* o7 j6 s" @
8 |' Q" \8 x1 K) {0 a+ }" G$ V2 `7 [1 n无缝钢方管 无缝钢矩管 A335P11合金管 不锈钢卷板 螺旋管
作者: fack10 時間: 2010-5-2 02:41 PM 標題: 支持！
支持！: P( D( m9 v6 a" u" y$ ~% t5 L
) ^! ] C, q z8 X! ]( ~: [! M D/ e& r2 T9 B
/ X2 h4 i# V4 \5 [$ y- a
' `$ s# R$ L1 l0 ?* W* a. o' A
/ C k d$ \, M* v# d {2 I
- W& K! A' s- Q1 f
$ M2 e+ u6 f, W* M2 n" t8 C
- f* x' P/ `' l! c: U k$ L4 V
3 Q4 J7 U0 \ Z% L! t0 a
: x! T- S' m& S. U9 X6 i& V
/ K$ Z! l5 l' g5 i; C6 A$ l( Q2 D( D
( x. k, L; ?( `16mn无缝管 Q345B无缝管 12Cr1moVG合金管 15CrMoG合金管 304不锈钢管
| 歡迎光臨 幸運草之戀 (http://discuz.segaa.net/) |
Powered by Discuz! 6.0.0 |