How can I remove this error, i.e "Object reference is not set to an instance of an object"?

Question

0.00/5 (No votes)

See more:

VB

Imports System.Data.SqlClient
Public Class frmCustomerEdit
    Dim con As SqlConnection
    Private Sub frmCustomerEdit_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'TestdbDataSet.Customersdb' table. You can move, or remove it, as needed.
        Me.CustomersdbTableAdapter.Fill(Me.TestdbDataSet.Customersdb)
        'TODO: This line of code loads data into the 'TestdbDataSet.Customersdb' table. You can move, or remove it, as needed.
        Me.CustomersdbTableAdapter.Fill(Me.TestdbDataSet.Customersdb)
        Try
            con.ConnectionString = "Data Source=SuperComp-PC;Initial Catalog=Testdb;Integrated Security=True"
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim sDate As Date = Me.DateTimePicker1.Value
        Dim eDate As Date = Me.DateTimePicker2.Value
        Dim abc As String = " Update Customersdb set CName='" & TextBox2.Text & "', Address='" & RichTextBox1.Text & "', Delivery_Charge='" & TextBox3.Text & "', Start_Date='" & sDate & "', End_Date='" & eDate & "' Where Customer_ID='" & TextBox1.Text & "';"
        Dim da As New SqlDataAdapter(abc, con)
        Dim ds As New DataSet
        da.Fill(ds)
        MsgBox("UPDATE SUCESSFUL !")
       
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Me.Close()
        frmCustomer.Show()

    End Sub
End Class

Posted 25-Jan-14 23:04pm

Divyanshu Saini

Updated 25-Jan-14 23:05pm

André Kraak

v2

Add a Solution

1 solution

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)

OriginalGriff · Accepted Answer · 2014-01-25T23:10:00

Well, two things:
1) Will fix the immediate problem. You declare con, but you never give it a value! At some point you need to set con to an instance of an SqlConnection, so replace this:

VB

con.ConnectionString = "Data Source=SuperComp-PC;Initial Catalog=Testdb;Integrated Security=True"

With this:

VB

con = New SqlConnection("Data Source=SuperComp-PC;Initial Catalog=Testdb;Integrated Security=True")

2) Do not concatenate strings to build a SQL command. It leaves you wide open to accidental or deliberate SQL Injection attack which can destroy your entire database. Use Parametrized queries instead.