欢迎来到代码驿站!

ASP代码

当前位置:首页 > 软件编程 > ASP代码

asp中COM组件中如何连接数据库的代码

时间:2021-07-06 10:10:43|栏目:ASP代码|点击:
VB- 工程 -引用 - ADO 2.0 ,建一个类DB,工程名设为 SQLCONN
以下是偶程序中的部分代码,大家有空可以试试
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中这样用

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

上一篇:经验几则

栏    目:ASP代码

下一篇:JavaScript面向对象的两种书写方法以及差别

本文标题:asp中COM组件中如何连接数据库的代码

本文地址:http://www.codeinn.net/misctech/153603.html

推荐教程

广告投放 | 联系我们 | 版权申明

重要申明:本站所有的文章、图片、评论等,均由网友发表或上传并维护或收集自网络,属个人行为,与本站立场无关。

如果侵犯了您的权利,请与我们联系,我们将在24小时内进行处理、任何非本站因素导致的法律后果,本站均不负任何责任。

联系QQ:914707363 | 邮箱:codeinn#126.com(#换成@)

Copyright © 2020 代码驿站 版权所有