VB中怎么連接ORACLE數(shù)據(jù)庫？

--先連接數(shù)據(jù)庫，再打開記錄集，搞定。

目前成都創(chuàng)新互聯(lián)已為數(shù)千家的企業(yè)提供了網(wǎng)站建設(shè)、域名、虛擬空間、網(wǎng)站托管運(yùn)營、企業(yè)網(wǎng)站設(shè)計(jì)、隴西網(wǎng)站維護(hù)等服務(wù)，公司將堅(jiān)持客戶導(dǎo)向、應(yīng)用為本的策略，正道將秉承"和諧、參與、激情"的文化，與客戶和合作伙伴齊心協(xié)力一起成長，共同發(fā)展。

Dim conn_ora As New ADODB.Connection '用于連接ORACLE數(shù)據(jù)源的連接

conn_ora.ConnectionString = "Provider=MSDAORA.1;Password=111;User ID=system ;Data Source=orcl;Persist Security Info=True"

conn_ora.Open

Dim myrs_ora As New ADODB.Recordset '用于連接ORACLE數(shù)據(jù)庫的記錄集

myrs_ora.ActiveConnection = conn_ora.ConnectionString

myrs_ora.Open ("Select * From AAA")

另外,站長團(tuán)上有產(chǎn)品團(tuán)購,便宜有保證

VB 連接Oracle

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

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

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

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

vb如何連接ORACLE數(shù)據(jù)庫？

利用ADO訪問Oracle數(shù)據(jù)庫：

cn.Open "DRIVER={Microsoft ODBC for Oracle};Server=OracleServer.world;Uid=用戶名;Pwd=密碼"

問個VB連接遠(yuǎn)程Oracle數(shù)據(jù)庫的問題

VB6.0可通過Adodc數(shù)據(jù)訪問控件的屬性頁進(jìn)行連接Oracle數(shù)據(jù)庫。 1）建立數(shù)據(jù)工程，在窗體添加Adodc數(shù)據(jù)訪問控件。鼠標(biāo)選中Adodc控件-右鍵-Adodc屬性-使用連接字符串-生成。 2）選Microsoft OLE DB Provider For Oracle，下一步

vb連接oracle

打開數(shù)據(jù)庫

Public???Sub???OpenOraDB()

On???Error???GoTo???ToExit

OraDB_Open???=???False

Set???OraDB???=???New???ADODB.Connection

OraConstr???=???"Provider=OraOLEDB.Oracle.1;Password="??????strOraPWD??????";User???ID="??????strOraUser??????";Data???Source="??????OraDBNetName??????";Persist???Security???Info=False"

OraDB.CursorLocation???=???adUseServer

OraDB.Open???OraConstr

OraDB_Open???=???True

Exit???Sub

ToExit:

'MsgBox???"連接數(shù)據(jù)庫服務(wù)器錯誤，您可以在網(wǎng)絡(luò)正常后繼續(xù)使用。",vbInformation???,???"錯誤信息"

OraDB_Open???=???False

End???Sub

關(guān)閉數(shù)據(jù)庫

Public???Sub???CloseOraDB()

If???OraDB_Open???=???True???Then

If???(OraDB.State???=???adStateOpen)???Then

OraDB.Close

Set???OraDB???=???Nothing

OraDB_Open???=???False

End???If

End???If

End???Sub

打開數(shù)據(jù)集，寫入數(shù)據(jù)

Set???OraRS???=???New???ADODB.Recordset

OraRS.ActiveConnection???=???OraDB

OraRS.CursorLocation???=???adUseServer

OraRS.LockType???=???adLockBatchOptimistic

strOraRS???=???"select???*???from???"??????OraDBtablename

OraRS.Open???strOraRS,???OraDB,???adOpenStatic,???adLockOptimistic

OraRS.AddNew

OraRS.Fields("PID")???=???strOraPID

OraRS.Fields("pname")???=???strName").Value

OraRS.Fields("psex")???=???strPsex

OraRS.Update

關(guān)閉數(shù)據(jù)集

OraRS.Close

Set???OraRS???=???Nothing