"Sub or funtion not defined" is an error occured when run this code. Please help me to recover from this.

Question

1.00/5 (2 votes)

See more:

This is the code.

VB

Dim str As String
Private Sub submit_Click()
  str = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=hrms"
  Set con = New ADODB.Connection
  con.ConnectionString = str
  con.Open
  Set cmd = New ADODB.Command
  Set cmd.ActiveConnection = con
  cmd.CommandText = "sp_submit"
  cmd.CommandType = adCmdStoredProc
  cmd.Parameters.Append cmd.CreateParameter("@name", adVarChar, adParamInput, 25, RTrim(empname.Text))
  cmd.Parameters.Append cmd.CreateParameter("@address", adVarChar, adParamInput, 25, RTrim(address.Text))
  cmd.Parameters.Append cmd.CreateParameter("@email", adVarChar, adParamInput, 25, RTrim(email.Text))
  cmd.Execute
End Sub

Posted 19-Aug-12 20:13pm

abey e mathews

Updated 19-Aug-12 23:37pm

Joan M

v4

Add a Solution

Comments

Martijn Kok 20-Aug-12 2:25am

I have some assumptions to make because you don't supply much information about the error.

Is this VB from an Access application? I have seen this error there indicating that RTrim is an unknown function. If that is the case you might miss a reference to a DLL. Menu Extra -> Reference. In the list of references you might see a missing reference. Remove the refence an recreate it.

Not sure if this error might occure in Visual Basic 6.

Sergey Alexandrovich Kryukov 20-Aug-12 2:39am

Any special reason to mess with VB6, ever?
--SA

abey e mathews 20-Aug-12 2:57am

Client want vb6

Sergey Alexandrovich Kryukov 20-Aug-12 3:26am

What?! Client? Do such client ever pay..? :-)
--SA

abey e mathews 20-Aug-12 4:12am

Did you know?
if not dont comment

bbirajdar 20-Aug-12 5:57am

if not know vb6 ,then not code. start selling pizza instead...

abey e mathews 27-Aug-12 1:38am

Am not at all expert am just start to work in vb6.
If you are expert then tell the recovery.

bbirajdar 27-Aug-12 4:48am

Your original comment before editing was : Am not at all expert am just start to work in vb6. If you are expert then tell the recovery. If not then ....off

2 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Santhosh Kumar Jayaraman · Answer 1 · 2012-08-19T20:40:00

Declare the string inside sub

VB

Private Sub submit_Click()
Dim str As String
str = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=hrms"
Set con = New ADODB.Connection
con.ConnectionString = str
con.Open
Set cmd = New ADODB.Command
Set cmd.ActiveConnection = con
cmd.CommandText = "sp_submit"
cmd.CommandType = adCmdStoredProc
cmd.Parameters.Append cmd.CreateParameter("@name", adVarChar, adParamInput, 25, RTrim(empname.Text))
cmd.Parameters.Append cmd.CreateParameter("@address", adVarChar, adParamInput, 25, RTrim(address.Text))
cmd.Parameters.Append cmd.CreateParameter("@email", adVarChar, adParamInput, 25, RTrim(email.Text))
cmd.Execute
End Sub

Martijn Kok · Answer 2 · 2012-08-19T23:03:00

The eror "Sub or function not defined" happens when the compiler encounters a unknown method.

I have made a simple test with your code (with one minor adjustment because I needed to define a data source in de the connectionstring), and it executed as expected.

Next I added a fake method. And the "Sub or function not defined error ocured at the moment the compiler tried to compile the submit_Click sub. The code did break with the current line of executation (yellow) block on the submit_Click line. The unknown method had a darkblue background. You will probably see this as well. The blue marked method is the unknown method.

Next you'll need to know why the method is unknown. There shouldn't be any unknown methods in your code (as tested it worked ok). If you know which method is the unknown, you will need to ask yourself in which DLL this method is defined. In the menu goto Project -> Reference and check if the DLL is referenced by your project. If not add it and when you see the 'Missing Reference' message, unselect is, reopen the reference screen and add the reference again.

I hope this will help.

"Sub or funtion not defined" is an error occured when run this code. Please help me to recover from this.

2 solutions

Solution 1

Solution 2

Add your solution here

Preview 0