Stored procedure not working

Question

1.00/5 (1 vote)

See more:

This is procedure I want to call

Private Sub Display()
       TxtName.Text = Ds.Tables("LEDG").Rows(Rc)("Name").ToString
       CmbGrp.Text = Ds.Tables("LEDG").Rows(Rc)("Grp").ToString
       TxtAdd1.Text = Ds.Tables("LEDG").Rows(Rc)("Add1").ToString
       TxtAdd2.Text = Ds.Tables("LEDG").Rows(Rc)("Add2").ToString
       CmbCity.Text = Ds.Tables("LEDG").Rows(Rc)("City").ToString
       TxtDist.Text = Ds.Tables("LEDG").Rows(Rc)("Dist").ToString
       TxtPIN.Text = Ds.Tables("LEDG").Rows(Rc)("Pincode").ToString
       DBState.Text = Ds.Tables("LEDG").Rows(Rc)("State").ToString
       TxtEmail.Text = Ds.Tables("LEDG").Rows(Rc)("Email").ToString
       TxtPhone.Text = Ds.Tables("LEDG").Rows(Rc)("Landline").ToString
       TxtMob.Text = Ds.Tables("LEDG").Rows(Rc)("Mobile").ToString
       TxtVAT.Text = Ds.Tables("LEDG").Rows(Rc)("VATNO").ToString
       TxtCST.Text = Ds.Tables("LEDG").Rows(Rc)("CSTNO").ToString
       TxtGST.Text = Ds.Tables("LEDG").Rows(Rc)("GSTNO").ToString
       TxtPAN.Text = Ds.Tables("LEDG").Rows(Rc)("PAN").ToString
   End Sub

this is where I call it

Private Sub BtnFirst_Click_1(sender As Object, e As EventArgs) Handles BtnFirst.Click
        Dim Da As New MySqlDataAdapter
        Dim Ds As New DataSet
        SqlQuery = "Select * from Ledgers"
        Sqlcommand = New MySqlCommand(SqlQuery, Conn)
        count = Sqlcommand.ExecuteScalar
        Da.SelectCommand = Sqlcommand
        Da.Fill(Ds, "LEDG")
        Rc = 0
        Display()
End Sub

getting error " object reference not set to an instance of an object".

What I have tried:

When i try

Private Sub BtnFirst_Click_1(sender As Object, e As EventArgs) Handles BtnFirst.Click
        Dim Da As New MySqlDataAdapter
        Dim Ds As New DataSet
        SqlQuery = "Select * from Ledgers"
        Sqlcommand = New MySqlCommand(SqlQuery, Conn)
        count = Sqlcommand.ExecuteScalar
        Da.SelectCommand = Sqlcommand
        Da.Fill(Ds, "LEDG")
        Rc = 0
        TxtName.Text = Ds.Tables("LEDG").Rows(Rc)("Name").ToString
        CmbGrp.Text = Ds.Tables("LEDG").Rows(Rc)("Grp").ToString
        TxtAdd1.Text = Ds.Tables("LEDG").Rows(Rc)("Add1").ToString
        TxtAdd2.Text = Ds.Tables("LEDG").Rows(Rc)("Add2").ToString
        CmbCity.Text = Ds.Tables("LEDG").Rows(Rc)("City").ToString
        TxtDist.Text = Ds.Tables("LEDG").Rows(Rc)("Dist").ToString
        TxtPIN.Text = Ds.Tables("LEDG").Rows(Rc)("Pincode").ToString
        DBState.Text = Ds.Tables("LEDG").Rows(Rc)("State").ToString
        TxtEmail.Text = Ds.Tables("LEDG").Rows(Rc)("Email").ToString
        TxtPhone.Text = Ds.Tables("LEDG").Rows(Rc)("Landline").ToString
        TxtMob.Text = Ds.Tables("LEDG").Rows(Rc)("Mobile").ToString
        TxtVAT.Text = Ds.Tables("LEDG").Rows(Rc)("VATNO").ToString
        TxtCST.Text = Ds.Tables("LEDG").Rows(Rc)("CSTNO").ToString
        TxtGST.Text = Ds.Tables("LEDG").Rows(Rc)("GSTNO").ToString
        TxtPAN.Text = Ds.Tables("LEDG").Rows(Rc)("PAN").ToString
End Sub

everything is working OK
Please Help

Posted 3-Jan-18 14:58pm

Member 13550326

Updated 14-Jan-18 8:58am

Add a Solution

Comments

itsmypassion 4-Jan-18 0:48am

You can make it Public procedure instead of private.

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)

Maciej Los · Answer 1 · 2018-01-03T21:12:00

You should start by reading these articles:
Variable and Method Scope in Microsoft .NET[^]
Scope in Visual Basic | Microsoft Docs[^]

In a short: in your case object reference not set to an instance of an object error message says that DS variable inside Display procedure is inaccesible, because has been created and initiated inside tnFirst_Click_1 procedure.

You may resolve this by passing dataset as a parameter into Display procedure (recommended) or by defining DS variable outside tnFirst_Click_1 procedure (not recommended).

VB

Private Sub BtnFirst_Click_1(sender As Object, e As EventArgs) Handles BtnFirst.Click
    Dim Da As New MySqlDataAdapter
    Dim Ds As New DataSet
    'the part of code where Ds variable is initiated    
    '...
    'finally:
    Display(Ds)
End Sub

Private Sub Display(ByRef ds As DataSet)
    'your code here
End Sub

For further details, please see:
How to: Control the Scope of a Variable (Visual Basic) | Microsoft Docs[^]
Understanding the Scope of Variables[^]
Procedures in Visual Basic | Microsoft Docs[^]
Passing Arguments by Value and by Reference (Visual Basic) | Microsoft Docs[^]

Noumaan Ahmad · Answer 2 · 2018-01-14T08:58:00

Hi Declare

Dim Ds As New DataSet

at start of class
When you declare Dataset at function level then you cant use that dataset out side of the function or you can use like this basic programing rule scope of a variable

Private Sub Display(byVal Ds as DataSet)
       TxtName.Text = Ds.Tables("LEDG").Rows(Rc)("Name").ToString
       CmbGrp.Text = Ds.Tables("LEDG").Rows(Rc)("Grp").ToString
       TxtAdd1.Text = Ds.Tables("LEDG").Rows(Rc)("Add1").ToString
       TxtAdd2.Text = Ds.Tables("LEDG").Rows(Rc)("Add2").ToString
       CmbCity.Text = Ds.Tables("LEDG").Rows(Rc)("City").ToString
       TxtDist.Text = Ds.Tables("LEDG").Rows(Rc)("Dist").ToString
       TxtPIN.Text = Ds.Tables("LEDG").Rows(Rc)("Pincode").ToString
       DBState.Text = Ds.Tables("LEDG").Rows(Rc)("State").ToString
       TxtEmail.Text = Ds.Tables("LEDG").Rows(Rc)("Email").ToString
       TxtPhone.Text = Ds.Tables("LEDG").Rows(Rc)("Landline").ToString
       TxtMob.Text = Ds.Tables("LEDG").Rows(Rc)("Mobile").ToString
       TxtVAT.Text = Ds.Tables("LEDG").Rows(Rc)("VATNO").ToString
       TxtCST.Text = Ds.Tables("LEDG").Rows(Rc)("CSTNO").ToString
       TxtGST.Text = Ds.Tables("LEDG").Rows(Rc)("GSTNO").ToString
       TxtPAN.Text = Ds.Tables("LEDG").Rows(Rc)("PAN").ToString
   End Sub

Private Sub BtnFirst_Click_1(sender As Object, e As EventArgs) Handles BtnFirst.Click
        Dim Da As New MySqlDataAdapter
        Dim Ds As New DataSet
        SqlQuery = "Select * from Ledgers"
        Sqlcommand = New MySqlCommand(SqlQuery, Conn)
        count = Sqlcommand.ExecuteScalar
        Da.SelectCommand = Sqlcommand
        Da.Fill(Ds, "LEDG")
        Rc = 0
        Display(Ds)
End Sub

Stored procedure not working

2 solutions

Solution 1

Solution 2

Add your solution here

Preview 0