在 Delphi 中用 FireDAC 連接 Excel

今天遇到一個(gè)問(wèn) delphi?相關(guān)問(wèn)題的,提問(wèn)者“只會(huì)ADO的連接方式”鸥滨,想知道“Delphi firedacquery如何連接EXCEL”嗦哆,由此產(chǎn)生了一點(diǎn)興趣,遂研究之婿滓,后記錄之老速,供同好參考。

通常凸主,在 Delphi?里編寫一個(gè)桌面數(shù)據(jù)庫(kù)應(yīng)用的步驟可以很簡(jiǎn)單橘券,拖曳4個(gè)控件即可:

- TADOConnect?控件,用于連接指定的數(shù)據(jù)庫(kù)(ADO?驅(qū)動(dòng))

- TADOTable?控件,用于指定提供數(shù)據(jù)的數(shù)據(jù)表旁舰,也常用 TADOQuery?控件

- TDataDource?控件锋华,用于在 數(shù)據(jù)集合(Table)??和?數(shù)據(jù)呈現(xiàn)(DBGrid)

- TDBGrid?控件,用于顯示數(shù)據(jù)集合中的數(shù)據(jù)

為了提供更好的用戶體驗(yàn)箭窜,可能還可以添加一個(gè)導(dǎo)航控件:?

- TDBNavigator?控件毯焕,用于對(duì)當(dāng)前數(shù)據(jù)集進(jìn)行添加記錄、刪除記錄等的操作

總體大概如下圖所示:

使用 FireDAC?組件建立數(shù)據(jù)庫(kù)與此過(guò)程類似磺樱,現(xiàn)將步驟記錄如下:

1芥丧、在工程中分別添加如下控件:

- TFDConnection?用于建立與數(shù)據(jù)源的連接

- TFDQuery? 用于指定數(shù)據(jù)庫(kù)中的數(shù)據(jù)表

- TDataSource?用于建立?數(shù)據(jù)表?與?數(shù)據(jù)顯示?之間的橋梁

- TDBGrid?用于顯示數(shù)據(jù)

建立完成如下圖(與 ADO?方式并無(wú)大的區(qū)別):

2、雙擊 FDConnction1?圖標(biāo)坊罢,進(jìn)入 FireDAC connection Editor?界面:

FireDAC?預(yù)提供了多種數(shù)據(jù)庫(kù)支持,如:IBM DB2 Server擅耽、Microsoft SQL Server活孩、MySQL Server、Oracle Server乖仇、Microsoft Access Database?等憾儒,其中沒(méi)有 ADO,但提供了 ODBC乃沙,因此起趾,可以選擇使用 ODBC?方式來(lái)連接 Excel。

將 Driver ID?設(shè)置為 ODBC警儒,如下圖:

雖然現(xiàn)在就可以在表格填選各項(xiàng)設(shè)置训裆,但推薦 點(diǎn)擊 Wizard?按鈕,使用 FireDAC?提供的向?qū)Чδ軄?lái)完成設(shè)置:

最終生成的設(shè)置如下圖:

3蜀铲、連接 FDConntion?和?FDQuery边琉,雙擊 FDQuery?圖標(biāo),進(jìn)入 FireDAC Query Editor:

編寫 SQL?語(yǔ)句:

select * from [sheet1$]

在此记劝,有點(diǎn)需要提示的是:

?Excel?文件的工作簿中变姨,通常會(huì)包含多個(gè)工作表(相當(dāng)于數(shù)據(jù)庫(kù)中的表),與通常 SQL?語(yǔ)句 Select 數(shù)據(jù)表名稱表示方法不同厌丑,選擇 Exce?的某個(gè) Sheet定欧,其表示方法如下:

[ sheet名$]

寫完 SQL?語(yǔ)句后,可以點(diǎn)擊 Excute?按鈕怒竿,測(cè)試一下砍鸠,如果正確,會(huì)在下方的 RecordSet?頁(yè)中顯示出 SQL?命令所獲取的數(shù)據(jù)結(jié)果:

至此耕驰,用 FireDAC?連接 Excel?的關(guān)鍵部分基本完成睦番,再將 FDQuery?與 DataSoure?和 DBGrid?連接起來(lái)即可。

最后編輯于
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請(qǐng)聯(lián)系作者
  • 序言:七十年代末,一起剝皮案震驚了整個(gè)濱河市托嚣,隨后出現(xiàn)的幾起案子巩检,更是在濱河造成了極大的恐慌,老刑警劉巖示启,帶你破解...
    沈念sama閱讀 217,542評(píng)論 6 504
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件兢哭,死亡現(xiàn)場(chǎng)離奇詭異,居然都是意外死亡夫嗓,警方通過(guò)查閱死者的電腦和手機(jī)迟螺,發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 92,822評(píng)論 3 394
  • 文/潘曉璐 我一進(jìn)店門,熙熙樓的掌柜王于貴愁眉苦臉地迎上來(lái)舍咖,“玉大人矩父,你說(shuō)我怎么就攤上這事∨琶梗” “怎么了窍株?”我有些...
    開(kāi)封第一講書人閱讀 163,912評(píng)論 0 354
  • 文/不壞的土叔 我叫張陵,是天一觀的道長(zhǎng)攻柠。 經(jīng)常有香客問(wèn)我球订,道長(zhǎng)致讥,這世上最難降的妖魔是什么捶朵? 我笑而不...
    開(kāi)封第一講書人閱讀 58,449評(píng)論 1 293
  • 正文 為了忘掉前任胡野,我火速辦了婚禮幕侠,結(jié)果婚禮上涌韩,老公的妹妹穿的比我還像新娘瘪匿。我一直安慰自己莹菱,他們只是感情好鞭呕,可當(dāng)我...
    茶點(diǎn)故事閱讀 67,500評(píng)論 6 392
  • 文/花漫 我一把揭開(kāi)白布苟耻。 她就那樣靜靜地躺著士八,像睡著了一般。 火紅的嫁衣襯著肌膚如雪梁呈。 梳的紋絲不亂的頭發(fā)上婚度,一...
    開(kāi)封第一講書人閱讀 51,370評(píng)論 1 302
  • 那天,我揣著相機(jī)與錄音官卡,去河邊找鬼蝗茁。 笑死,一個(gè)胖子當(dāng)著我的面吹牛寻咒,可吹牛的內(nèi)容都是我干的哮翘。 我是一名探鬼主播,決...
    沈念sama閱讀 40,193評(píng)論 3 418
  • 文/蒼蘭香墨 我猛地睜開(kāi)眼毛秘,長(zhǎng)吁一口氣:“原來(lái)是場(chǎng)噩夢(mèng)啊……” “哼饭寺!你這毒婦竟也來(lái)了阻课?” 一聲冷哼從身側(cè)響起,我...
    開(kāi)封第一講書人閱讀 39,074評(píng)論 0 276
  • 序言:老撾萬(wàn)榮一對(duì)情侶失蹤艰匙,失蹤者是張志新(化名)和其女友劉穎限煞,沒(méi)想到半個(gè)月后,有當(dāng)?shù)厝嗽跇?shù)林里發(fā)現(xiàn)了一具尸體员凝,經(jīng)...
    沈念sama閱讀 45,505評(píng)論 1 314
  • 正文 獨(dú)居荒郊野嶺守林人離奇死亡署驻,尸身上長(zhǎng)有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點(diǎn)故事閱讀 37,722評(píng)論 3 335
  • 正文 我和宋清朗相戀三年,在試婚紗的時(shí)候發(fā)現(xiàn)自己被綠了健霹。 大學(xué)時(shí)的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片旺上。...
    茶點(diǎn)故事閱讀 39,841評(píng)論 1 348
  • 序言:一個(gè)原本活蹦亂跳的男人離奇死亡,死狀恐怖糖埋,靈堂內(nèi)的尸體忽然破棺而出宣吱,到底是詐尸還是另有隱情,我是刑警寧澤瞳别,帶...
    沈念sama閱讀 35,569評(píng)論 5 345
  • 正文 年R本政府宣布征候,位于F島的核電站,受9級(jí)特大地震影響洒试,放射性物質(zhì)發(fā)生泄漏。R本人自食惡果不足惜朴上,卻給世界環(huán)境...
    茶點(diǎn)故事閱讀 41,168評(píng)論 3 328
  • 文/蒙蒙 一垒棋、第九天 我趴在偏房一處隱蔽的房頂上張望。 院中可真熱鬧痪宰,春花似錦叼架、人聲如沸。這莊子的主人今日做“春日...
    開(kāi)封第一講書人閱讀 31,783評(píng)論 0 22
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽(yáng)。三九已至具练,卻和暖如春乍构,著一層夾襖步出監(jiān)牢的瞬間,已是汗流浹背扛点。 一陣腳步聲響...
    開(kāi)封第一講書人閱讀 32,918評(píng)論 1 269
  • 我被黑心中介騙來(lái)泰國(guó)打工哥遮, 沒(méi)想到剛下飛機(jī)就差點(diǎn)兒被人妖公主榨干…… 1. 我叫王不留,地道東北人陵究。 一個(gè)月前我還...
    沈念sama閱讀 47,962評(píng)論 2 370
  • 正文 我出身青樓眠饮,卻偏偏與公主長(zhǎng)得像,于是被迫代替她去往敵國(guó)和親铜邮。 傳聞我的和親對(duì)象是個(gè)殘疾皇子仪召,可洞房花燭夜當(dāng)晚...
    茶點(diǎn)故事閱讀 44,781評(píng)論 2 354

推薦閱讀更多精彩內(nèi)容