给你个例子:
' 連接 Oracle 資料庫
Function HjConnOra(HjSvr_Name,HjDb_Uid,HjDb_Pwd)
Uid_Pwd=HjDb_Uid & "/" & HjDb_Pwd
set HjDbOraSession=CreateObject("OracleInProcServer.XOraSession")
set HjDbOra=HjDbOraSession.DbOpenDatabase(HjSvr_Name,Uid_Pwd,0)
' 打開記錄集示例
' sql= "select * from table_name"
' Set HjOradynaset=HjDbOra.DbCreateDynaset(sql,0)
End Function
' 連接 Oracle 資料庫 利用Ole Db
Function HjConn_Ora(HjSvr_Name,HjDb_Uid,HjDb_Pwd)
Set HjConnDb=Server.CreateObject("ADODB.CONNECTION")
HjStrConn="Provider=MSDataShape;Data Provider=msdaora; Data Source="
HjStrConn=HjStrConn & HjSvr_Name & "; User Id="
HjStrConn=HjStrConn & HjDb_Uid & "; Password="
HjStrConn=HjStrConn & HjDb_Pwd
HjConnDb.Open HjStrConn
' 打開記錄集示例
' HjStrSql="select * from table_name"
' Set HjRsDb=Server.CreateObject("ADODB.RECORDSET")
' HjRsDb.Open HjStrSql,HjConnDb
End Function