最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
COM组件中如何连接数据库
时间:2008-01-12 编辑:简简单单 来源:一聚教程网
/* 原出处:江都资讯网 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
-
上一个: NT 下虚拟域名的实现
-
下一个: [摘]IIS 6 常见问题解答
相关文章
- java连接数据库(代码分享) 07-25
- 所有数据库连接方式的整理 05-20
- java怎么连接数据库 怎么解决的方法 02-17
- java怎么连接数据库?完整java开发中JDBC连接数据库代码和步骤 02-10
- NiceLabel怎样快速连接数据库打印条形码? 05-06
- java中jdbc连接 数据库代码 12-18