asp中的function在封装在VB中怎么用

答案:2 悬赏:0 手机版

解决时间 2021-02-09 16:03

提问者网友：欺烟
2021-02-09 10:57

我有一个asp的函数
Public Function Dball(Str,Tablename,Wheres)
Set Rs = Server.CreateObject("Adodb.Recordset")
Sql = "Select * From [" & Tablename & "]"
Rs.Open Sql, Conn, 2, 3
Rs.Addnew

For Each Key In Request.Form
Rs(Key) = Request.Form(Key)
Next

Rs.Update
Rs.Close
Set Rs = Nothing

我用VB封装的时候如果函数不带参数就没问题。如果函数带参数的话就会出现错误，提示
错误类型：
mydll (0x800A01A8)
Object required
调用的时候我这样调用的
Set Obj = Server.CreateObject("mydll.AspDll")
Cf = Obj.Dball("Select", "Yang_admin", "(yang_pass='"&MyPass&"' Or yang_safepass='"&MyPass&"') and id=1")
这样的函数封装在vb中应该怎么处理才能正常呢？

哦。后面还有一个end function

最佳答案

五星知识达人网友：长青诗
2021-02-09 11:33

conn有问题，没有这个对象
conn要在这个函数里初始化

全部回答

1楼网友：青灯有味
2021-02-09 12:54

我觉得很可能是你的参数没有定义数据类型有关，改一下： Public Function Dball(ByVal Str As String, ByVal Tablename As String, ByVal Wheres As String)

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息