Cannot pass parentheses when calling function

This is my asp code used to call the function
<%
     Dim user    
     set user = CreateObject("survey.dbConnect")
     user.displayData("SD","Sekolah","BJC0000")          
%>

Thi sis my function is used to create dll file

Public Function displayData(Optional db As String, Optional tb As String, Optional userName As String)
   
    Dim sqlQry As String
   
    getConnection (db)
    sqlQry = "select *from " & tb & " where kod = " & userName
    Set objRs = New ADODB.Recordset
    objRs.Open sqlQry, objConn
    objRs.MoveFirst
    lastModify = objRs("LastModify")
    address = objRs("Alamat")
    ...
    objRs.Close
    Set objRs = Nothing
   
End Function

here the question is i want pass the "SD", "Sekolah" and "BJC0000" into the function the error occurs.

Error Type:
Microsoft VBScript compilation (0x800A0414)
Cannot use parentheses when calling a Sub
/index.asp, line 15, column 36
user.displayData("SD","Sekolah","BJC0000")
-----------------------------------^
MaxToAsked:
Who is Participating?
 
robbertConnect With a Mentor Commented:
> Public Function displayData(Optional db As String, Optional tb As String, Optional userName As String)

If you don't state "ByVal", explicitely:

Public Function displayData(Optional ByVal db As String, Optional ByVal tb As String, Optional ByVal userName As String)

any parameters are assumed to be ByRef (that's the default). - Using ByRef, the data type must match, and the only data type VBScript/ASP knows is Variant.

Use ByVal, or, if you're passing parameters back by using ByRef, declare "As Variant":

Public Function displayData(Optional ByRef db As Variant, Optional ByRef tb As Variant, Optional ByRef userName As Variant)

-- Definitely, and try to grade "A" if this helped you. Thanks.
0
 
chops123Commented:
Apart from the function call,your instance creation syntax is also incorrect

Try this

Dim retVal
set user = Server.CreateObject("survey.dbConnect")
retVal = user.displayData("SD","Sekolah","BJC0000")    

'When you call a function,a value will be returned and therefore you need to collect that value and when creating an instance of an active-x component on the server,you need to use server.createobject

Regards
KC

0
 
sanjaykattimaniCommented:
alternately you can call the function like this, when you dont want the out put of the function.

user.displayData "SD","Sekolah","BJC0000"
0
Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

 
chops123Commented:
In that case you need not have a function,it would do with a subroutine

KC
0
 
MaxToAuthor Commented:
To KC :

from your comment, i change it like this

<%
 set user
 Dim retVal
 set user = Server.CreateObject("survey.dbConnect")
 retVal = user.displayData("SD", "Sekolah", "JBC0000")
%>

Error Type:
Server object, ASP 0177 (0x800401F3)
Invalid ProgID. For additional information specific to this message please visit the Microsoft Online Support site located at: http://www.microsoft.com/contentredirect.asp.
/index.asp, line 13 ( set user = Server.CreateObject("survey.dbConnect")
)
0
 
chops123Commented:
Have you registered your DLL file on the server ? This error is usually encountered when the Active-X DLL is not registered.

do this: Assuming the path of your dll is in C:\winnt\system32. Click start->Run

regsvr32 c:\winnt\system32\myDLL.dll

KC
0
 
MaxToAuthor Commented:
sorry friends thanks for everybody help. This problem i had solved. so i will close this question if got chance next time i will give you people the mark and good grade.
0
 
robbertCommented:
Next time a good grade? - Hope you'll be able to explain some reasoning then, or even post any comment (for clarification).

This current situation with this question is unsatisfactory.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.