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 中实现对数据库的操作。