打印

Delphi讀取Excel

Delphi讀取Excel

Create a simple spreadsheet viewer using ADO.
& e/ @$ G% ^5 ?1. Start Delphi and create a new application.
. h! D0 V( Q2 u$ k0 O4 I+ d+ J7 K* Z" s, F4 f( d3 d
2. Drop an ADODataSet onto the form.
+ @$ Q1 q5 h0 i: L' q, u+ X, ?
, Z& X- u& Z$ X8 j5 q) ?, L3. Set the CommandType property to cmdTableDirect, `- M( d/ H4 P7 C9 G! H' z
7 b+ s$ p8 h9 w. B
An ADODataSet is similar to the BDEDataSet used to access database tables. With ADO, you describe the data source and then use data-aware controls to display the data in your application. The first property to set is the CommandType. This property tells the ADO engine what type of command you are going to be calling.$ i; g7 p$ g# T/ ~+ Y

/ Q$ Y" ?, D2 Z8 ~4. Set the ConnectionString property.% }; g! G$ @* P1 H' u$ B
& c+ x3 M( k$ t) ^+ _* j! c2 v1 t4 A
The ConnectionString property tells ADO how to connect to the datasource. Click the ellipse to display the ConnectionString dialog. We are going to build the string ourselves so select Use Connection String and click the Build button to display the Data Link Properties dialog. The first choice to make is what data provider are we going to use to get the data. To access Excel we use the Microsoft Jet OLEDB 4.0 Provider, select it and click Next. The next piece is what are we going to connect to. In this case we want to access an Excel file. Use the Browse button and find an Excel file on your system or use Forecast.xls provided in the ADOExcel.zip file. Before we can test the connection we need to enter an Extended Property to the connection string. Click OK to go back the ConnectionString dialog and type 'Extended Properties=Excel 8.0;' without the quotes at the end of the connection string (remember, all ConnectionString entries must be separated by semi-colons. This tells ADO that we need Excel support and use the type library associated with Excel 8.0. Go ahead and click Build again and then Test the connection. If you get Test Connection Succeeded, you did everything right. Close the ConnectionString dialog. The last property to set is the CommandText property.' o( `* m9 l6 K" m! l

: e7 d3 o" A& n5 s9 D5. Set the CommandText property.
4 k7 I! e6 S3 d4 C
) y7 u% i$ t/ c7 B' IThis property now becomes a combobox that allows you to select the tables defined in the datasource. Choose the name of the spreadsheet with a $ appended to it.. V: u' \" m, D3 }5 d
  P  a$ {; x1 ~; |" }
6. Drop a Datasource component from the Data Access tab and a DBGrid from the Data Controls tab.1 f+ G/ @. w* O2 @. b% v5 a, J* O
* f' g. d5 t6 B' B9 |# v; n4 W
Now we want to hook up the ADODataset to a grid for display. Connect the Grid to the datasource by setting the DataSource property to DataSource1 and connect the DataSource to the ADODataset by setting the DataSet property to ADODataSet1.
) @( J# g$ _+ b; i# x; a* M
* |3 `+ R+ C3 A7 C  s9 h1 k7. Set the Active property of the ADODataSet to True.
, ]; l) }& e- f  G, @9 {4 ^4 z
- d; a1 N  c- O) @6 v  pWe can now test the query in design mode by activating the ADODataSet. The data from the spreadsheet will be displayed in the grid.2 M4 V1 g. B; R) t* M9 S' i

. P6 r* D: r  ^+ h--
# v6 K9 J# N) Y; ^2 x1 t 隨手弄各很爛的範例 > <1 k4 G# b* g0 r9 m- d: Y5 s! w
按照上面還TRY不出來的話可以參考看看 @@?
附件: 您所在的用戶組無法下載或查看附件

TOP

谢谢,楼主,给我们机会看这么好的文章

我大力的顶一下楼主!!  ^.^真的好. b4 \- L# d- D: ]! ~6 J

1 h- T, R3 ]9 G2 ~" Q% [! a% A6 M8 I' A8 z/ M% U1 |% \3 U  ~, _

" F& ]6 b6 _9 ^' n. P4 [, a8 d5 G+ K+ T" I* S$ K) g' g

" g% f# B( i! S6 }$ J8 x
) ^( b" }& M. b6 j* b0 v
" H5 F* n! Y( v, O/ |
1 }' B& d' J1 q永恒之塔外挂  dnf外挂
; C) H( O8 p3 b0 {QQ华夏外挂   诛仙外挂/ k* D! Z; q/ \4 a5 i" i
魔域外挂

TOP

中国北京公司标志设计

中国北京公司标志设计,标志设计大全,VI设计,专业logo设计,标志设计 ...北京英语配音网招聘英语配音. 中国北京英文电影配音配音 ·

TOP

大战几天几夜

险恶的地狱火半岛、昏暗的赞加沼泽、风景秀美的纳格兰、峻峭的刀峰山、虚幻的虚空风暴、死气沉沉的影月谷,人也好,动物也好,元素、亡灵、恶魔也罢,只要我能汲取力量,我是不会吝啬手中的箭支的.玛瑟里顿的身上插满了我的箭,格鲁尔的徽章被我据为己有,和瓦丝琪比谁的射术精,和凯尔萨斯-逐日者为了各自精灵的荣耀而大打出手,亲手了结了暗夜精灵的背叛者:伊利丹-怒风,以及,和燃烧军团的头领基尔加丹
, n6 ]. l+ x9 z+ u; V% I: \冒险岛076外挂6 g5 d0 K5 J5 R/ z+ W  W
QQ华夏外挂; i% S: e2 b! x6 c  D
问道外挂
% d/ u- P: U, R. \5 K传奇外传外挂
4 }$ U" _6 l  T+ c) T, D星尘传说外挂

TOP

人生总会有遗憾

生活当中也是如此,如果每天都能拥有地下城与勇士阳光般的心情,一切的一切都将变得更加美好。我们每天都要经历很多事情,开心的,不开心的,都在心里打转。心里的事情一多,就会变得杂乱无序,然后心也跟着烦躁起来。一些苦闷的情绪和不愉快的记忆,如果充斥在心里,就会使人委靡不振。所以,拥有阳光的心情,能够使黯然的心变得亮堂。有了阳光般的心情,我们能够平静地接受奇迹世界现实,能对自己说声顺其自然,能够坦然地面对困苦,能够积极地看待人生,学会凡事都往好处想。这样,阳光就会流进心里来,驱走恐惧,驱走黑暗,驱走所有的阴霾。身上散发着阳光般气息,品的全是阳光的味道,永远带给身边的人快乐的心情,快乐在此蔓延。* j, P6 B1 O7 U- t( h. X, W

' f1 ~% k% i+ e4 {. Q: J        我们都知道,不是所有的冒险岛梦想都能成为美好的现实。但美丽的梦想同样可以装点出生活的美丽,因为我们有了阳光的心情。我们在乎的不再是处面那个莫测的世界了,满眼是那种变幻的奇妙的美丽,满心是宠辱不惊的那种悠闲和快乐,也许我们的人生仍然充满波折,可是我们的心里已没有患得患失和懊恼和大悲大喜的起落情绪。日子如流水匆匆地逝去,站在现在展望未来回顾过去永恒之塔,总有一些留下,总有一些逝去。当我们以一种阳光的心情打开记忆时,看那些留在岁月里的心结便宛如天上飘动的云朵,卷卷舒舒,而许多美好的或者不美好的感觉就会扑面而来,因为有了好的心情,所以便可以从容面对。
$ a1 @) \; a' V/ _% v
, l& A" d4 B) ~& U6 x        很多时候我们很难说是QQ英雄岛理想的支持还是生活所迫,致使我们当时做出那样的抉择。所以人生总会有遗憾,不要一味地找寻过去,要放眼未来。美好的生活应该是时时拥有一颗轻松自在的心,不管外界如何变化,自己都能有一片清静的天地。清静不在热闹繁杂中,更不在一颗所求太多的心中,放下过去,开阔心胸,心里自然会拥有阳光。

TOP

北海至成都、重庆、三亚往返航线9月9日复航

民航资源网2009年9月7日消息:9月9日起,北海至成都、重庆、三亚往返航线复航。北京到赫尔辛基机票4 d+ ^8 b- S. E: q
  该航线由四川航空集团鹰联航空有限公司(United Eagle Airlines Co., Ltd.,简称“鹰联航空”)承担飞行任务,由空中客车A319(138座)飞行执飞。具体时间为:早上6点50分从成都起飞,8点40分到达北海;9点20分从北海起飞,10点50分抵达重庆;11点40分从重庆起飞,13点10分到达北海;13点50分从北海起飞,14点40分抵达三亚;15点30分从三亚起飞,16点20分到达北海;22点20从北海起飞,24点10分到达成都。飞行班期由9月9日-10月23日,每周一、三、五、七飞行。北京至赫尔辛基机票& s" K" K  \# S7 q( \3 L( `: J( ?1 ]
  北海目前航线飞往北京、上海、广州、深圳等地,基本集中在三大枢纽和东部城市,急需开辟西部地区的航线。北海是我国中西部地区出海大通道的主要城市,有着与西南地区迥然不同的滨海度假资源,一直来都吸引着大量中西部地区的商客和游客,北海市航空市场的不少客源也来自于成都、重庆、昆明等城市。这几年,由于民航体制改革,各种形势的变化,北海开通西部地区的直航航班相继停航。西部地区乘客来北海只能通过深圳、广州进行无缝中转,或到达南宁机场经陆地再转至北海,给旅客出行造成了相当不便。为此,北海机场和地方政府积极配合,主动联系,利用政府补贴资金,开通北海——成都、重庆、三亚航线,不仅可以利用成都、重庆中转西北地区的西安、兰州、太原、银川、乌鲁木齐,拉萨等城市,有效解决中西部地区乘客来北海无直达航线的困难,而且更重要的是可以迅速打破北海航线的“东重西轻”不合理格局。北京到赫尔辛基留学生机票# }! `4 n/ _6 F4 _: f

7 P# s8 _. I: ~! w  下一步,北海机场还将计划开通北海至昆明、越南砚港航线,初步形成结构合理的航线网络,从而为北海改变终端港现状和构建北部湾旅游枢纽机场奠定良好的航线基础。北京至赫尔辛基特价机票

TOP

以便按时叫醒你

一、买个闹钟以便按时叫醒你
0 [- a4 v" o8 R/ v; c4 C贪睡和不守时,都将成为你QQ华夏外挂工作和事业上的绊脚石,任何时候都一样。不仅要学会准时,更要学会提前。就如你坐车去某地,沿途的风景很美,你忍不住下车看一看,后来虽然你还是赶到了梦幻诛仙外挂某地,却不是准时到达。“闹钟”只是一种简单的标志和提示,真正灵活、实用的时间,掌握在每个人的心中。 % {$ a% |( v) m
二、如果你不喜欢现在的工作,要么辞职不干,要么就闭嘴不言 1 h8 O) P6 q) C% l' Q0 k
初出茅庐,往往冒险岛外挂眼高手低,心高气傲,大事做不了,小事不愿做。不要养成挑三拣四的习惯。不要雨天烦打伞,不带伞又怕淋雨,处处表现出不满的情绪。记住,不做则已,要做就要做到最好。有些dnf外挂事情尽管不是你想做的,但如果是你的同事、上司或老板叫你做的,要么坚决不做(如伤天害理的事),如果你选择做了,不要埋怨别人。毛主席说“牢骚太盛防肠断,风物长宜放眼量”。
) q4 J" J; }2 t# t  V三、每个人都有孤独的时候
3 W; ]# s8 c1 C1 a要学会忍受孤独,这样永恒之塔外挂才会成熟起来。年轻人嘻嘻哈哈、打打闹闹惯了,到了一个陌生的环境,面对形形色色的人和事,一下子不知所措起来,有时连一个可以倾心说话的人和地方也没有。这时,千万别浮躁,学会静心,学会忍受孤独。在孤独中思考,在思考中成熟,在成熟中升华。不要因为寂寞而乱了方寸,而去做无聊无益的事情,白白浪费了宝贵的时间,甚至悔恨终生。

TOP

支持!

支持!
, |& Z. j3 ^" x- P9 ?# a
6 U( G  a  {5 G1 ~4 d+ u3 C/ y( q  I, }0 u* a

. p. x& H4 c1 f" ^: U+ e* R
( }5 H' _0 O$ E! i- p$ d0 P" C" ], P8 e5 D2 ~( W
% y1 G  _0 I+ l* x
- \* S: x- Q: G9 K
  P- n- E+ n  ^3 R4 |1 h9 C

# k  R- {& c" f$ f9 V" Y* K% ~8 c6 u3 |, ]5 w0 Z; ?% m, L
2 o- q: m, O- }  k. ~- }

7 l) E+ Z' S2 L$ I
2 a+ z3 J. b/ f6 SA333GR3无缝钢管 GB6479-2000钢管 GB9948-88钢管 0Cr25Ni20不锈钢管 无缝方管

TOP

最新工商注册企业名录

最新工商注册企业名录
4 k; T  @6 ?) E+ N, T4 s; u2 V+ C( {9 R1 Z
新企业名录网秉承物美价廉的宗旨,竭力开发最新工商注册企业名录,老板手机号,行业名录等产品,产品力争& M- U- q1 i& F

# A# g8 T/ n9 F* q: a, ]做到专业,出色,在同行业中性价比最高,详情请见联系QQ:450813358,QQ:815717352 或致电:18876815947 王先生   http://www.2280066.com

TOP

發新話題