COM组件中如何连接数据库

原创 2003年07月14日 16:18:00

/* 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

COM组件学习

COM组件是以Win32动态链接库(dll)或可执行的形式发布的可执行代码组成的。动态链接库本身并不能满足对于组件架构的需求。为了满足这些需求。组件还必须是封装的。 com组件是完全与语言无关的。 ...
  • xiaominggunchuqu
  • xiaominggunchuqu
  • 2017年05月15日 14:05
  • 482

python调用windows下的com组件

最近弄com,测试用js 或者c++、c#等,感觉很不方便,一来是需要编译,二来c++之流还要引用库,很不爽,于是用 python搞了一把,发现很容易,写完就可以立马运行,随时可以修改。记录于此,以后...
  • muroachanf
  • muroachanf
  • 2014年03月26日 12:47
  • 3480

在网页中使用COM组件(或activex控件)中的一些常见问题

在网页中使用COM组件(或activex控件)中的一些常见问题1. 在页面中插入控件 **2. 使用控件中的事件**方法1:function ok(){ } do...
  • sinat_34909640
  • sinat_34909640
  • 2016年11月22日 10:28
  • 393

Windows如何注册Com组件

1.先了解什么是Com组件 Com组件百科地址:https://baike.baidu.com/item/COM组件/3351509?fr=aladdin 2.64的window系统注册和32系统...
  • ahou2468
  • ahou2468
  • 2017年12月25日 10:43
  • 257

python中使用Com组件说明

使用COM文件中的Client中的makepy.py生成COM组件库对话框,双击生成相应的文件 调用 时如下 以前弄了好几天不成功,重装系统后这么容易就成功了。以前在浪费时间吗 from ...
  • gucunlin
  • gucunlin
  • 2017年09月07日 16:27
  • 240

【VS开发】这就是COM组件

[实例]这就是COM组件 时间 2012-02-21 10:49:15  CSDN博客 原文  http://blog.csdn.net/btwsmile/article/details/72...
  • LG1259156776
  • LG1259156776
  • 2016年04月09日 21:42
  • 2692

怎样用DELPHI调用COM组件

在Delphi中的话,创建一个工程后,菜单Project下有一个Import   Type   Library选项,     点击进入,选择你用VC编写的dll的Type   Library,将其创建...
  • lee576
  • lee576
  • 2007年11月27日 15:34
  • 7712

COM组件注册

一个COM组件在使用前必须首先注册。所谓“注册”,也就是向系统注册表的相应位置写入一些数据。这些数据可以完成guid与Dll的绝对路径的一一对应,也就是说可以帮助程序通过guid找到Dll的位置。 ...
  • CNHK1225
  • CNHK1225
  • 2015年06月12日 11:44
  • 1719

如何使用第三方COM组件

如何使用第三方COM组件已经有了第三方的COM组件(如OCX,DLL,TLB),该如何使用呢?最简单的方法就是:了解组件建议使用OleView.exe程序来详细了解组件包含什么样的接口和方法。找不到,...
  • igame
  • igame
  • 2007年10月18日 14:31
  • 4130

如何使用VB创建一个COM组件????

转载:     看看这对你有没有帮助。         终于试验成功了!     我在原本只有win2000   professional   的机器上又安装了一个win2000   server,并...
  • annywudy_tt
  • annywudy_tt
  • 2010年05月24日 17:22
  • 825
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:COM组件中如何连接数据库
举报原因:
原因补充:

(最多只允许输入30个字)