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

在ASP开发的时候，如果我们想用asp连接mysql数据库，会觉得这个问题很难，现在就让爱站技术频道小编给我们讲讲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

以上就是爱站技术频道小编给我们讲解asp中COM组件中如何连接数据库的代码，希望对大家有所帮助!大家赶紧行动起来吧！

原文链接:https://js.aizhan.com/develop/asp/9938.html
如有疑问请与原作者联系

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有