如何用VB编写COM组件，将数据库链接的语句写成COM组件

关于如何用VB编写COM组件，将数据库链接的语句写成COM组件 这个疑惑，是在河南IT软件服务商中一个比较常见的疑惑了，那么怎样解决这个疑惑呢，继续阅读，接下来进行详细的介绍。

 打开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
%>

案例展示：智慧交通 充分运用新一代信息技术，对交通管理、交通运输、交通安全、公众出行等方面以及交通建设管理全过程进行管控支撑，使交通系统在区域、城市甚至更大的时空范围具备感知、互联、分析、预测、控制等能力，运用物联网、云计算、人工智能、移动互联网等技术完成交通运输相关产业的转型升级，将各种交通出行模式整合在统一的服务体系与平台中，实现交通出行链条的一体化，建立精准满足出行者需求和满足智慧城市治理要求的大交通一站式智慧交通全生态。