阿克苏信息港
故事
当前位置:首页 > 故事

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

发布时间:2019-04-11 01:27:19 编辑:笔名

打开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_en m_szConnstr

GetConn = OK

Exit Function

here:

GetConn = open database is ror id is scription

End Function

然后编译

Asp里这样用

%

dim obj,conn热浸塑钢管
,msg

set obj=eate( ass )

set conn=eate( nnection )

msg=tConn(conn)

if msg= OK then

//这里写代码,conn已经打开数据库了

else

ite msg //出错了,显示出错信息

end if

%

(*)

验证(*)