关于ASP调用VB写的COM组件的问题

huangyj 2004-08-10 03:24:35
第一次利用ASP调用VB写的COM组件,本想利用这个组件的接口,返回多个结果给调用着,但是一直不成功,每次都是告知参数错误。
据说ASP调用的方法不能用函数的参数做为返回值,不知道是不是这么回事情?请知道的朋友解答,谢谢!
...全文
82 点赞 收藏 6
写回复
6 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
huangyj 2004-08-10
谢谢
OnlyVB(边城浪子)
的指导!
回复
Jaron 2004-08-10
Function cms_html_Vote(Vote_string, voteid)
Dim strsql
If voteid = 0 Then
strsql = "select top 1 * from tblvote order by id desc"
Else
strsql = "select * from tblvote where id = '" & CInt(voteid) & "' order by id desc"
End If
Dim rs_cms_Vote As New ADODB.Recordset
Set rs_cms_Vote = CreateObject("ADODB.Recordset")
rs_cms_Vote.Open strsql, Conn, 1, 1
If Not (rs_cms_Vote.EOF And rs_cms_Vote.BOF) Then
.........
end function
回复
Jaron 2004-08-10
要在工程-引用里加入 Microsoft ActiveX Data Object 2.x Library
Public Conn As New ADODB.Connection
Public rs As New ADODB.Recordset 'Create New Object
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
回复
huangyj 2004-08-10
哦,难怪!
我定义的是数据集,RecordSet
代码不在我机器上,等下找到贴上来。
回复
OnlyVB 2004-08-10
源码贴出来看看!
用vb写组件最值得注意的是:在vb中定义各变量的类型都为Variant,其它类型都会出错!
回复
cuixiping 2004-08-10
谁说不可以。ByVal按值, ByRef按指,就是实现这个功能的。
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2004-08-10 03:24
社区公告
暂无公告