VB 連接Oracle

VB6.0可通過(guò)Adodc數(shù)據(jù)訪問(wèn)控件的屬性頁(yè)進(jìn)行連接Oracle數(shù)據(jù)庫(kù)。

創(chuàng)新互聯(lián)建站長(zhǎng)期為1000+客戶(hù)提供的網(wǎng)站建設(shè)服務(wù)，團(tuán)隊(duì)從業(yè)經(jīng)驗(yàn)10年，關(guān)注不同地域、不同群體，并針對(duì)不同對(duì)象提供差異化的產(chǎn)品和服務(wù)；打造開(kāi)放共贏平臺(tái)，與合作伙伴共同營(yíng)造健康的互聯(lián)網(wǎng)生態(tài)環(huán)境。為許昌企業(yè)提供專(zhuān)業(yè)的網(wǎng)站建設(shè)、成都網(wǎng)站設(shè)計(jì)，許昌網(wǎng)站改版等技術(shù)服務(wù)。擁有十載豐富建站經(jīng)驗(yàn)和眾多成功案例,為您定制開(kāi)發(fā)。

1）建立數(shù)據(jù)工程，在窗體添加Adodc數(shù)據(jù)訪問(wèn)控件。鼠標(biāo)選中Adodc控件-右鍵-Adodc屬性-使用連接字符串-生成。

2）選Microsoft OLE DB Provider For Oracle，下一步。

3）根據(jù)數(shù)據(jù)鏈接屬性對(duì)話(huà)框填寫(xiě)所需內(nèi)容，測(cè)試連接。點(diǎn)確定，最終在Adodc屬性頁(yè)獲得連接字符串，復(fù)制該字符串，即可作為Adodc數(shù)據(jù)訪問(wèn)控件直接使用，或在代碼中用于Adodc控件或ADO數(shù)據(jù)訪問(wèn)對(duì)象。

delphi如何連接oracle數(shù)據(jù)庫(kù)

Delphi作為強(qiáng)大的數(shù)據(jù)庫(kù)前端開(kāi)發(fā)工具，提供了很多數(shù)據(jù)庫(kù)存取方式的封裝控件。對(duì)于Oracle的數(shù)據(jù)存取控件，不管何種數(shù)據(jù)庫(kù)引擎，一般都會(huì)封裝一個(gè)Connection作為數(shù)據(jù)集的連接控件，因此只要設(shè)定Connection的相關(guān)屬性即可，其它dataset控件,如query,table等只要指定此Connection即可，客戶(hù)端應(yīng)用程序要連接到Oracle的Schema，一般都需要安裝Oracle Client，并使用Net Manager設(shè)置客戶(hù)端可以訪問(wèn)的Oracle Database Server的主機(jī)名稱(chēng)及存取協(xié)議、Port等信息。可以使用以下的方式連接

dbExpress：dbExpress比較適合連接SQL的數(shù)據(jù)庫(kù)，據(jù)說(shuō)效率挺高的。放置一個(gè)dbExpress頁(yè)簽下的SQLConnection，在此控件上點(diǎn)擊鼠標(biāo)右鍵，選擇“Edit Connection Properities”功能，并依下圖設(shè)置即可。其中Database欄位要設(shè)置為Oracle Client中設(shè)置的服務(wù)名，如果需要記住密碼，而不用每次連接的時(shí)候輸入密碼，請(qǐng)將 LoginPrompt屬性設(shè)置為False，設(shè)置OK后即可測(cè)試將Connected:=True看看是否成功，其它數(shù)據(jù)處理控件請(qǐng)選擇相應(yīng)dbExpress頁(yè)簽下的控件即可。

BDE：BDE應(yīng)該來(lái)說(shuō)是Borland自己的數(shù)據(jù)庫(kù)引擎了，效率也是相當(dāng)不錯(cuò)的。當(dāng)然也是支持Oracle連接的。使用BDE頁(yè)簽下的database控件，設(shè)置方法參考下圖所示：

ADO：ADO是Microsoft所支持的數(shù)據(jù)庫(kù)連接技術(shù)，大有一統(tǒng)windows客戶(hù)端數(shù)據(jù)存取引擎的意思，在.net平臺(tái)，推出了ADO.NET，更好地支持了XML。DELPHI有對(duì)ADO做了一些封裝，使用ADOConnection，通過(guò)向?qū)гO(shè)置它的ConnectionString即可，可以參考下圖所示：

ODBC：ODBC是最傳統(tǒng)的鏈接方法了，效率相對(duì)來(lái)說(shuō)稍微低一些，不過(guò)通用性也更強(qiáng)，不建議使用這種方法。使用前需要先到ODBC設(shè)置中增加一個(gè)數(shù)據(jù)源名稱(chēng)DSN,然后再透過(guò)ADO或者BDE組件來(lái)實(shí)現(xiàn)數(shù)據(jù)的存取?？梢詤⒖既缦聢D片設(shè)置：

不使用控件，比如使用原生的ADO組件，不太建議這種方法，既然Delphi已經(jīng)做了封裝，何必又要回到原始狀態(tài)呢。以上連接方法都需要安裝Oracle Client軟件，但是Oracle官方的Client太過(guò)龐大，安裝非常不便，目前網(wǎng)上有人發(fā)布一個(gè)精簡(jiǎn)版的Oracle Client軟件，比較小，可以滿(mǎn)足連接Oracle的需要，可以去下載這個(gè)軟件，而不用去安裝復(fù)雜的官方版本。

下載ODAC控件，此控件不需要安裝Oracle Client，而是使用OCI的方式透過(guò)TCP/IP協(xié)議直接連接到Oracle Server，可以將程序做成瘦客戶(hù)端，程序分發(fā)的時(shí)候比較方便。此控件支持Delphi的大部分版本以及C++Builder以及kylix以及.net，而且提供源代碼，有興趣的可以研究一下。具體安裝使用方法請(qǐng)參考控件的相關(guān)說(shuō)明以及幫助文檔。

vba 如何引用oracle 10g 的控件 oracle data control ？ 請(qǐng)?jiān)敿?xì)些說(shuō)明下，謝了！

VBA連接oracle數(shù)據(jù)庫(kù)

小 'システム共通変數(shù)

Public ORA_SE As Object 'Oracleのセッションオブジェクト

Public ORA_DB As Object 'Oracleの接続オブジェクト

'******************************************************************************

' ????????名 : Ora_Connect

' 概要 : Oracle接続

' ?????? : なし

' 說(shuō)明 :Oracleへの接続を行う

'******************************************************************************

'Public Sub Ora_Connect()

Public Function Ora_Connect()

Dim rt As Integer

On Error GoTo err

Set ORA_SE = CreateObject("OracleInProcServer.XOraSession")

'Set ORA_DB = ORA_SE.OpenDatabase("數(shù)據(jù)庫(kù)連接詞", "用戶(hù)名/密碼", 0)

Set ORA_DB = ORA_SE.OpenDatabase("combcm", "combcm/combcm", 0)

Exit Function

err:

End Function

'******************************************************************************

' ????????名 : Ora_DisConnect

' 概要 : Oracle切斷

' ?????? : なし

' 說(shuō)明 : Oracleの切斷を行う

'******************************************************************************

'Public Sub Ora_DisConnect()

Public Function Ora_DisConnect()

Set ORA_SE = Nothing

Set ORA_DB = Nothing

End Function

Public Function getData()

'該當(dāng)なし

If OraDynaset.EOF = True Then

Set OraDynaset = Nothing

Exit Function

Else

'2004/03/06 add rec_cntを2して2行目から書(shū)き出す

'rec_cnt = 2

'Do While Not OraDynaset.EOF

'For row_cnt = 0 To OraDynaset.Fields.Count - 1

' Cells(rec_cnt, row_cnt + 1).Value = OraDynaset(row_cnt).Value

'Next row_cnt

'2004/11/26 クリップボードを介した方法でスピードアップ対応。

'從數(shù)據(jù)庫(kù)中取出數(shù)據(jù)

OraDynaset.CopyToClipboard

Cells(2, 1).Select

ActiveSheet.Paste

rec_cnt = OraDynaset.RecordCount

'OraDynaset.DbMoveNext

'rec_cnt = rec_cnt + 1

'Loop

End If

end function

delphi10 如何鏈接 oracle數(shù)據(jù)庫(kù) 是否有控件

Delphi連接Oracle數(shù)據(jù)庫(kù)的三種方式 Oracle是以高級(jí)結(jié)構(gòu)化查詢(xún)語(yǔ)言(SQL)為基礎(chǔ)的大型關(guān)系數(shù)據(jù)庫(kù)，是目前最流行的客戶(hù)/服務(wù)器(CLIENT/SERVER)體系結(jié)構(gòu)的數(shù)據(jù)庫(kù)之一，目前被廣泛應(yīng)用于各類(lèi)型企業(yè)的信息化管理中。數(shù)據(jù)庫(kù)支持是Delphi7.0開(kāi)發(fā)環(huán)境的一個(gè)重要特性，很多程序員在數(shù)據(jù)庫(kù)應(yīng)用程序開(kāi)發(fā)中都采用Delphi7.0作為開(kāi)發(fā)工具，來(lái)實(shí)現(xiàn)對(duì)數(shù)據(jù)庫(kù)的訪問(wèn)和控制。Delphi數(shù)據(jù)庫(kù)應(yīng)用程序是通過(guò)數(shù)據(jù)庫(kù)引擎來(lái)訪問(wèn)它們引用的數(shù)據(jù)源的。本文概括性的介紹在Windows XP環(huán)境中Delphi7.0連接Oracle數(shù)據(jù)庫(kù)的3種方式，它們分別是BDE、ADO、DbExpress。

這3種方式都需要安裝Oracle客戶(hù)端并配置tnsnames.ora文件。將Oracle客戶(hù)端安裝到本地計(jì)算機(jī)，打開(kāi)c:\oracle\…\network\admin\tnsnames.ora文件，按照所要訪問(wèn)的數(shù)據(jù)庫(kù)的配置，添加下面的內(nèi)容

TEST =(DESCRIPTION =

(ADDRESS_LIST =

(ADDRESS = (PROTOCOL = TCP)(HOST = 172.16.2.134)(PORT = 1521)) )

(CONNECT_DATA =(SID = test) )

)

其中HOST，PORT，SID的值與所訪問(wèn)的數(shù)據(jù)庫(kù)配置有關(guān)。

1傳統(tǒng)的BDE

BDE(Borland Database Engine)使用別名引用數(shù)據(jù)庫(kù)文件或目錄，需要在客戶(hù)的計(jì)算機(jī)上與應(yīng)用程序一起安裝BDE。連接步驟：

1.1 安裝BDE。在Delphi7.0的安裝盤(pán)中含有BDE安裝程序，按照默認(rèn)方式安裝的計(jì)算機(jī)，并配置好所要訪問(wèn)的Oracle數(shù)據(jù)庫(kù)的別名，例如：test。

1.2 在Delphi7.0的程序中連接Oracle數(shù)據(jù)庫(kù)。將BDE選項(xiàng)卡中的TDatabase組件將放入應(yīng)用程序的主窗體，雙擊TDatabase，出現(xiàn)TDatabase組件編輯器，輸入數(shù)據(jù)庫(kù)別名、用戶(hù)名和密碼，點(diǎn)擊OK按鈕。在對(duì)象檢視器中將TDatabase組件的LoginPrompt屬性值設(shè)為False(避免出現(xiàn)登陸對(duì)話(huà)框，下同)，將TDatabase組件的Connected屬性值設(shè)為T(mén)rue，這樣就成功的連接到Oracle服務(wù)器了。

1.3 使用TTable組件訪問(wèn)數(shù)據(jù)。將TTable組件放置到應(yīng)用程序的主窗體，設(shè)置其DatabaseName屬性值為test，再放入TdataSource和TDBGrid組件，接下來(lái)的工作就與開(kāi)發(fā)本地?cái)?shù)據(jù)庫(kù)應(yīng)用程序相同了。

2 Microsoft的ADO

ADO(ActiveX Data Objects)是Microsoft的高級(jí)接口，基于Microsoft的數(shù)據(jù)訪問(wèn)OLEDB技術(shù)而實(shí)現(xiàn)。連接步驟：

2.1 在Delphi7.0的程序中連接Oracle數(shù)據(jù)庫(kù)。將ADO選項(xiàng)卡中的TADOConnection組件放入應(yīng)用程序的主窗體，雙擊TADOConnection，在出現(xiàn)的對(duì)話(huà)框中點(diǎn)選Use Connection String，在其下面的框中輸入：Provider=MSDAORA.1;User ID=test;Data Source=test;Persist Security Info=False，其中test為Oracle服務(wù)器名和用戶(hù)名。在對(duì)象檢視器中將TADOConnection組件的LoginPrompt屬性值設(shè)為False，將TADOConnection組件的Connected屬性值設(shè)為T(mén)rue，這樣就成功的連接到Oracle服務(wù)器了。

2.2 使用TADOCommand組件訪問(wèn)數(shù)據(jù)。將TADOCommand組件放置到應(yīng)用程序的主窗體，設(shè)置其Connec tion屬性值為Connection1，點(diǎn)擊其CommandText屬性值，在出現(xiàn)的對(duì)話(huà)框中輸入SQL查詢(xún)語(yǔ)句（本文以查詢(xún)數(shù)據(jù)為例），再放入TdataSource和TDBGrid組件，接下來(lái)的工作就與開(kāi)發(fā)本地型數(shù)據(jù)庫(kù)應(yīng)用程序相同了。

3 新一代夸平臺(tái)的數(shù)據(jù)庫(kù)訪問(wèn)引擎DbExpress

DbExpress是一組新的組件，技術(shù)和驅(qū)動(dòng)程序，具備了夸平臺(tái)的能力，讓程序員能夠開(kāi)發(fā)出更有效率的數(shù)據(jù)庫(kù)應(yīng)用程序，因此會(huì)成為以后Delphi和Kylix的核心數(shù)據(jù)訪問(wèn)技術(shù)。連接步驟：

3.1 在Delphi7.0的程序中連接Oracle數(shù)據(jù)庫(kù)。將 dbExpress選項(xiàng)卡中的TSQLConnection組件放入應(yīng)用程序的主窗體，雙擊TQLConnection，出現(xiàn)TSQLConnection組件編輯器，選擇Oracle作為Driver Name，輸入數(shù)據(jù)庫(kù)名稱(chēng)、用戶(hù)名和密碼，點(diǎn)擊OK按鈕。在對(duì)象檢視器中將TSQLConnection組件的LoginPrompt屬性值設(shè)為False，將TSQLConnection組件的Connected屬性值設(shè)為T(mén)rue，這樣就成功的連接到Oracle服務(wù)器了。

3.2 使用TSQLDataSet組件訪問(wèn)數(shù)據(jù)。將TSQLDataSet組件放置到應(yīng)用程序的主窗體，設(shè)置其SQLConne ction屬性值為SQLConnection1，點(diǎn)擊其CommandText屬性值，在出現(xiàn)的對(duì)話(huà)框中輸入SQL查詢(xún)語(yǔ)句（本文以查詢(xún)數(shù)據(jù)為例），再放入TdataSource和TDBGrid組件，接下來(lái)的工作就與開(kāi)發(fā)本地?cái)?shù)據(jù)庫(kù)應(yīng)用程序相同了。

關(guān)于 oracle between and的用法！

oracle date等類(lèi)型是帶時(shí)間部分的，所以你這個(gè)2011-07-05 只是相當(dāng)于2011-07-05 00:00:00這個(gè)時(shí)刻，按你的寫(xiě)法大于這個(gè)時(shí)刻的是不會(huì)刪除的。如果你確實(shí)要?jiǎng)h除2011-07-05的建議你用以下寫(xiě)法：

delete from jf_syslog where inputtime =date'2011-07-01' and nputtimedate'2011-07-06'

如果不擔(dān)心2011-07-06 00:00:00的也可以

delete from jf_syslog where inputtime between date'2011-07-01' and date'2011-07-06'

如果效率可以接受，可以先轉(zhuǎn)換成字符串

delete from jf_syslog where to_char(inputtime,'yyyymmdd') between '20110701' and '20110705'

你可以考慮連接上一個(gè)固定的字符串這樣的，但是因?yàn)闀r(shí)間上是沒(méi)有24:00:00的，所以還是會(huì)有問(wèn)題的，不如直接在日期上加一天用

網(wǎng)頁(yè)標(biāo)題：oracle控件怎么用,oracle使用
當(dāng)前地址：http://vcdvsql.cn/article48/hsojhp.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供、外貿(mào)網(wǎng)站建設(shè)、網(wǎng)站內(nèi)鏈、手機(jī)網(wǎng)站建設(shè)、電子商務(wù)、面包屑導(dǎo)航

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶(hù)投稿、用戶(hù)轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話(huà)：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)