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

huangyj 2004-08-10 03:24:35
第一次利用ASP调用VB写的COM组件,本想利用这个组件的接口,返回多个结果给调用着,但是一直不成功,每次都是告知参数错误。
据说ASP调用的方法不能用函数的参数做为返回值,不知道是不是这么回事情?请知道的朋友解答,谢谢!
...全文
105 6 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
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按指,就是实现这个功能的。

28,409

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧