asp中COM组件中如何连接数据库的代码
VB 工程中引用 ADO 2.0 构建 DB 类的方法与应用示例
在工程实践中，数据库连接与操作是不可或缺的一环。在 VB 工程中，通过引用 ADO 2.0，我们可以轻松地实现对数据库的访问和操作。这里，我将构建一个名为 DB 的类，以帮助我们在 ASP 中更方便地实现数据库操作。
我们先了解一下这个 DB 类的主要结构和功能。类中包含了几个重要的部分：数据库连接（Conn）、记录集（Rs）、错误字符串（strError）以及几个关键函数。其中，Conn_Open 函数用于建立数据库连接，GetRootID 函数用于获取指定分类的根ID。
以下是 DB 类的主要代码示例：
```vbscript
Option Explicit
Public strError As String
Public Conn As New ADODB.Connection
Public Rs As New ADODB.Recordset
Public Property Get ErrorString() As String
ErrorString = strError
End Property
Public Function Conn_Open(strSQLServerName, strSQLDBUserName, strSQLDBPassword, strSQLDBName)
Dim strCon As String
Set Conn = New ADODB.Connection
On Error GoTo errHandler:
strCon = "Provider=SQLOLEDB;Server=" & strSQLServerName & ";User ID=" & strSQLDBUserName & ";Password=" & strSQLDBPassword & ";Database=" & strSQLDBName & ";"
Conn.Open strCon
errHandler:
strError = "错误源" & Err.Source & vbCrLf & "描述" & Err.Description
Exit Function
End Function
Function GetRootID(ByVal ClassID)
Dim query
query = "select class_ID,RootID from tblCategory where class_id='" & ClassID & "'"
Set Rs = Conn.Execute(query)
If Not (Rs.EOF And Rs.BOF) Then
GetRootID = Rs("RootID")
Else
GetRootID = ClassID
End If
Rs.Close
Set Rs = Nothing
End Function
```
在 ASP 中如何使用这个 DB 类呢？以下是一个简单的示例：
```vbscript
function GetRootID(byval id)
' 获取根类ID号
set S_DB = server.CreateObject("SQLCONN.DB")
S_DB.Conn_Open strSQLServerName, strSQLDBUserName, strSQLDBPassword, strSQLDBName
GetRootID = S_DB.GetRootID(id)
Set S_DB=nothing
end function
```
在这个示例中，我们首先创建了一个 DB 类的实例 S_DB，然后通过调用其 Conn_Open 函数建立数据库连接。接着，我们调用 GetRootID 函数获取指定分类的根ID。我们释放 S_DB 实例以节省资源。通过这种方式，我们可以轻松地在 ASP 中实现对数据库的操作。