欢迎光临
我们一直在努力

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

打开VB,创建一个新的ActiveX Dll,将项目重命名为COMConnection,将类模块重命名为class,并在类代码中编写Option Explicit

公共函数GetConn(m_objConn作为连接)作为字符串
   
    On Error GoTo
   
    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"
   退出功能
   
这里是:
    GetConn=" open database is error.error id is" &安培; err.DescriptionEnd功能
然后编译
Asp用这种方式
<%
    dim obj,conn,msg
    set obj=server.create(" COMConnection.class")
    set conn=server.create(" adodb.connection")
    msg=obj.GetConn(conn)
    if msg=" OK"那么
        //在这里写代码,conn已打开数据库
   否则
        resposne.write msg   //错误,显示错误信息
   结束如果
%>

未经允许不得转载:美国主机评论博客 » 编写COM组件,将数据库链接的语句写成COM组件

分享到:更多 ()