Asp連接資料庫﹐與大家共享﹐希望有所幫助﹗

haley_hj haley_hj 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
<%
Dim HjConnDb
' 連接 Microsoft Access 資料庫
Function HjConnAccess(HjDb_Name)
Set HjConnDb=Server.CreateObject("ADODB.CONNECTION")
HjStrConn="Provider=MSDataShape;Data Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
HjStrConn=HjStrConn & Server.MapPath(HjDb_Name)
HjConnDb.Open HjStrConn
' 打開記錄集示例
' HjStrSql="select * from table_name"
' Set HjRsDb=Server.CreateObject("ADODB.RECORDSET")
' HjRsDb.Open HjStrSql,HjConnDb
End Function

' 連接 Microsoft Sql Server 資料庫
Function HjConnSql(HjSvr_Name,HjDb_Name,HjDb_Uid,HjDb_Pwd)
Set HjConnDb=Server.CreateObject("ADODB.CONNECTION")
HjStrConn="Provider=MSDataShape;Data Provider=sqloledb; Data Source="
HjStrConn=HjStrConn & HjSvr_Name & "; Initial Catalog="
HjStrConn=HjStrConn & HjDb_Name & "; User id="
HjStrConn=HjStrConn & HjDb_Uid & "; Password="
HjStrConn=HjStrConn & HjDb_Pwd
HjConnDb.Open HjStrConn
' 連接 Microsoft Sql Server 資料庫
' HjConnDb.Open "Driver={SQL Server}; Server=HALEY; Database=YCDB; Uid=sa;Pwd=sa;"
' HjConnDb.Open "Provider=sqloledb;Data Source=HALEY;Initial Catalog=YCDB;User Id=sa;Password=sa;"
' HjConnDb.Open "Provider=MSDataShape;Data Provider=SQLOLEDB;Data Source=HALEY;Initial Catalog=YCDB;User Id=sa;Password=sa;"
' HjConnDb.Open "Remote Provider=MS Remote;Remote Server=http://172.24.15.228;Provider=MSDataShape;Data Provider=SQLOLEDB;Data Source=HALEY; Initial Catalog=YCDB; User ID=sa;Password=sa;"
' HjConnDb.Open "Remote Provider=MS Remote;Remote Server=http://172.24.15.228;Driver={SQL Server};Server=HALEY; Initial Catalog=YCDB; User ID=sa;Password=sa;"

' 打開記錄集示例
' HjStrSql="select * from table_name"
' Set HjRsDb=Server.CreateObject("ADODB.RECORDSET")
' HjRsDb.Open HjStrSql,HjConnDb
End Function

' 連接 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
%>
...全文

相关推荐

评论 3
收藏 已收藏
分享
返回顶部
haley_hj
ASP 28,401 成员 356,940 内容