Go Premium for a chance to win a PS4. Enter to Win

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 537
  • Last Modified:

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")
-----------------------------------^
0
MaxTo
Asked:
MaxTo
  • 3
  • 2
  • 2
  • +1
1 Solution
 
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
 
chops123Commented:
In that case you need not have a function,it would do with a subroutine

KC
0
Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
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
 
robbertCommented:
> 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
 
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

Featured Post

VIDEO: THE CONCERTO CLOUD FOR HEALTHCARE

Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.

  • 3
  • 2
  • 2
  • +1
Tackle projects and never again get stuck behind a technical roadblock.
Join Now