Python语言技术文档

微信小程序技术文档

php语言技术文档

jsp语言技术文档

asp语言技术文档

C#/.NET语言技术文档

html5/css技术文档

javascript

点击排行

您现在的位置:首页 > 技术文档 > asp入门教程

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

来源:中文源码网    浏览:221 次    日期:2024-05-08 19:30:34
【下载文档:  asp中COM组件中如何连接数据库的代码.txt 】


asp中COM组件中如何连接数据库的代码
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

相关内容