Help! Search Button code error in vb.net

[Jagruti22]

Please tell what's wrong in this code.. I am using 3 DateTimePicker.. I think that line has some problem...Please Help..

[Reverend Jim]

I'd have to guess that cmdSearch is not defined. I suggest putting a breakpoint on that line then adding a watch on cmdSearch to see what's up. Please post the code where cmdSearch is defined and identify its scope. It is possible that you declared it without the New keyword which would give you a reference variable rather than an object instance.

[Jagruti22]

 Imports System.Data.OleDb
 Imports System.Data

Public Class Form9
Dim cnnOLEDB As New OleDbConnection

Dim cmdUpdate As OleDbCommand
Dim cmdSearch As OleDbCommand
Dim cmdDelete As OleDbCommand

Dim strConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=.\\DatabaseCSMS.accdb"

 Private Sub Form9_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    cnnOLEDB.ConnectionString = strConnectionString
    cnnOLEDB.Open()
End Sub
 Private Sub btnsea3_Click(sender As Object, e As EventArgs) Handles btnsea3.Click
    Dim vSearch As String = InputBox("Enter Employee Id to search the details:")
    If vSearch <> "" Then
        cmdSearch.CommandText = "SELECT * from Employee_Details WHERE Emp_Id = " & CInt(vSearch)
        cmdSearch.Connection = cnnOLEDB
        Dim rdrOLEDB As OleDbDataReader = cmdSearch.ExecuteReader
        If rdrOLEDB.Read = True Then
            cbeid1.Text = rdrOLEDB.Item(0).ToString
            txtepn2.Text = rdrOLEDB.Item(1).ToString
            txtadd3.Text = rdrOLEDB.Item(2).ToString
            txtphon4.Text = rdrOLEDB.Item(3).ToString
            dtpdobi5.Value = rdrOLEDB.Item(4).ToString
            txtapt6.Text = rdrOLEDB.Item(5).ToString
            dtpdte7.Value = rdrOLEDB.Item(6).ToString
            dtpdoa8.Value = rdrOLEDB.Item(7).ToString
            rdrOLEDB.Close()
            MsgBox("Record found")
            Exit Sub
        Else
            rdrOLEDB.Close()
            MsgBox("Record not found")
            Exit Sub
        End If
    Else
        MsgBox("Enter search value.")
        Exit Sub
    End If

End Sub

[Reverend Jim]

You see where you did

Dim cmdUpdate As OleDbCommand
Dim cmdSearch As OleDbCommand
Dim cmdDelete As OleDbCommand

What you have done is define pointers to specific objects but you didn't actually create those objects. What you want is

Dim cmdUpdate As New OleDbCommand
Dim cmdSearch As New OleDbCommand
Dim cmdDelete As New OleDbCommand

This creates the objects.

[Jagruti22]

Thank You :-)

[Reverend Jim]

Glad I could help.