COM组件中如何连接数据库


/* written by Jaron ,2003-05-10 */ 
/* 原出处:江都资讯网 http://www.jiangdu.net */ 
/* 转载请注明出处和保留此版权信息 */ 
/* 欢迎使用SiteManager网站管理系统 http://sitemanager.cnzone.net */

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 

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值