Asp連接資料庫﹐與大家共享﹐希望有所幫助﹗
<%
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
%>