建站
咨詢
售后
建站咨詢
新聞中心
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ù)鏈接屬性對(duì)話框填寫所需內(nèi)容，測試連接。點(diǎn)確定，最終在Adodc屬性頁獲得連接字符串，復(fù)制該字符串，即可作為Adodc數(shù)據(jù)訪問控件直接使用，或在代碼中用于Adodc控件或ADO數(shù)據(jù)訪問對(duì)象。
vb如何連接ORACLE數(shù)據(jù)庫？
利用ADO訪問Oracle數(shù)據(jù)庫：
cn.Open "DRIVER={Microsoft ODBC for Oracle};Server=OracleServer.world;Uid=用戶名;Pwd=密碼"
問個(gè)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ù)器錯(cuò)誤，您可以在網(wǎng)絡(luò)正常后繼續(xù)使用。",vbInformation???,???"錯(cuò)誤信息"
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
分享標(biāo)題：vb怎么連oracle,vb怎么連接oracle數(shù)據(jù)庫
網(wǎng)站路徑：http://www.ef60e0e.cn/article/hsisis.html
