青青子衿, 悠悠我心, 但为君故, 沉吟至今
« 操作系统的十则高级应用技巧三种禁用FileSystemObject组件的方法 »

编写COM组件,将数据库链接的语句写成COM组件

打开VB,新建ActiveX Dll,将工程改名为COMConnection,类模块改名为class,在class的代码里写

Option Explicit


Public Function GetConn(m_objConn As Connection) As String
   
    On Error GoTo here
   
    Dim m_szConnstr As String
   
    m_szConnstr = "Provider=SQLOLEDB.1;Data Source=192.168.0.101;User ID=sa;Password=;Initial Catalog=aaa"
   
    m_objConn.Open m_szConnstr
   
    GetConn = "OK"
    Exit Function
   
here:
    GetConn = "open database is error.error id is " & err.Description

End Function


然后编译
Asp里这样用
<%
    dim obj,conn,msg
    set obj=server.create("COMConnection.class")
    set conn=server.create("adodb.connection")
    msg=obj.GetConn(conn)
    if msg="OK" then
        //这里写代码,conn已经打开数据库了
    else
        resposne.write msg   //出错了,显示出错信息
    end if
%>



  除非注明,月光博客文章均为原创,转载请以链接形式标明本文地址

  本文地址:http://www.williamlong.info/archives/88.html
  • 文章排行:
  • 1.nckggood
  • 这COM组件要在主机上注册吗?还是直接上传到服务器上就能用.
  • 2006/11/13 15:56:44   支持(12)反对(7) 回复

发表评论:

 请勿发送垃圾信息、广告、推广信息或链接,这样的信息将会被直接删除。

订阅博客

  • 订阅我的博客:订阅我的博客
  • 关注新浪微博:关注新浪微博
  • 关注腾讯微博:关注腾讯微博
  • 关注认证空间:关注QQ空间
  • 通过电子邮件订阅
  • 通过QQ邮件订阅

站内搜索

热文排行


月度排行

本站采用创作共用版权协议, 要求署名、非商业用途和相同方式共享. 转载本站内容必须也遵循“署名-非商业用途-相同方式共享”的创作共用协议.
This site is licensed under a Creative Commons Attribution-NonCommercial-ShareAlike 3.0 License.