国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > ASP > 正文

一個ACCESS數(shù)據(jù)庫訪問的類第1/3頁

2024-05-04 11:03:11
字體:
供稿:網(wǎng)友
大部分ASP應(yīng)用,都離不開對數(shù)據(jù)庫的訪問及操作,所以,對于數(shù)據(jù)庫部分的訪問操作,我們應(yīng)該單獨抽象出來,封裝成一個單獨的類。如果所用語言支持繼承,可以封裝一個這樣的類,然后在數(shù)據(jù)操作層繼承即可。下面是我寫的一個ACCESS數(shù)據(jù)庫訪問的類,針對ACCESS作了優(yōu)化,不過因為缺少足夠的應(yīng)用測試,可能仍然存在未知的bug及應(yīng)用限制,主要代碼如下:
<%
Class Oledb Private IDataPath
Private IConnectionString Private Conn
Private Cmd
Private Param
Private Rs Public Property Let DataPath(ByVal Value)
IDataPath = Value
IConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(IDataPath)
End Property Public Property Get DataPath()
DataPath = IDataPath
End Property Public Property Let ConnectionString(ByVal Value)
IConnectionString = Value
End Property Public Property Get ConnectionString()
ConnectionString = IConnectionString
End Property Public Function OpenConn()
If Conn.State = adStateClosed Then
Conn.Open ConnectionString
End If
Set OpenConn = Conn
End Function Public Function Insert(ByVal Sql, ByVal Values)
OpenConn()
Rs.Open Sql, Conn, 3, 3, adCmdText
Rs.AddNew
Dim i, l
l = UBound(Values)
For i = 1 To l + 1
Rs(i) = Values(i - 1)
Next
Rs.Update
Insert = Rs(0)
End Function Public Function Execute(ByVal Sql)
OpenConn()
Set Execute = Conn.Execute(Sql)
End Function Public Function ExecuteScalar(ByVal Sql)
Dim iRs : Set iRs = Execute(Sql)
If Not iRs.BOF Then ExecuteScalar = iRs(0)
End Function Public Function ExecuteNonQuery(ByVal Sql)
OpenConn()
Call Conn.Execute(Sql, ExecuteNonQuery)
End Function Public Function InsertSp(ByVal Sql, ByVal Params)
OpenConn()
Rs.Open Sql, Conn, 3, 3, adCmdStoredProc
Rs.AddNew
Dim i, l
l = UBound(Params)
For i = 1 To l + 1
Rs(i) = Params(i - 1)
Next
Rs.Update
InsertSp = Rs(0)
End Function Public Function ExecuteSp(ByVal SpName, ByVal Params)
With Cmd
Set .ActiveConnection = OpenConn()
.CommandText = SpName
.CommandType = &H0004
發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表
主站蜘蛛池模板: 梁山县| 四川省| 福清市| 双峰县| 嘉义县| 梨树县| 二连浩特市| 沙坪坝区| 宁安市| 咸阳市| 巨野县| 剑河县| 嘉黎县| 凤庆县| 朔州市| 滦南县| 周至县| 桑植县| 海兴县| 广南县| 大港区| 上蔡县| 察隅县| 绥化市| 巴彦县| 乃东县| 淳化县| 望谟县| 汉中市| 鹤壁市| 马山县| 越西县| 马关县| 资源县| 潮安县| 济阳县| 镇康县| 治多县| 墨江| 嫩江县| 嫩江县|