VB-工程-引用-ADO2.0,建一个类DB，工程名设为SQLCONN
以下是偶程序中的部分代码，大家有空可以试试
OptionExplicit
PublicstrErrorAsString
PublicConnAsNewADODB.Connection
PublicRsAsNewADODB.Recordset
PublicPropertyGetErrorString()AsString
ErrorString=strError
EndProperty
PublicFunctionConn_Open(strSQLServerName,strSQLDBUserName,strSQLDBPassword,strSQLDBName)
DimstrConAsString
SetConn=NewADODB.Connection
OnErrorGoToerrHandler:
strCon="Provider=SQLOLEDB;Server="&strSQLServerName&";UserID="&strSQLDBUserName&";Password="&strSQLDBPassword&";Database="&strSQLDBName&";"
Conn.OpenstrCon
errHandler:
strError="错误源："&Err.Source&vbCrLf&"描述："&Err.Description
ExitFunction
EndFunction
FunctionGetRootID(ByValClassID)
Dimquery
query="selectclass_ID,RootIDfromtblCategorywhereclass_id='"&ClassID&"'"
SetRs=Conn.Execute(query)
IfNot(Rs.EOFAndRs.BOF)Then
GetRootID=Rs("RootID")
Else
GetRootID=ClassID
EndIf
Rs.Close
SetRs=Nothing
EndFunction
编译后，在ASP中这样用
functionGetRootID(byvalid)'获取根类ID号
setS_DB=server.CreateObject("SQLCONN.DB")
S_DB.Conn_OpenstrSQLServerName,strSQLDBUserName,strSQLDBPassword,strSQLDBName
GetRootID=S_DB.GetRootID(id)
SetS_DB=nothing
endfunction
【asp中COM组件中如何连接数据库的代码】相关文章：