in vb class file After every 30s i checked in database . if i get value from database then only i redirect page.
but issue at redirecting page , when i trying to redirect, i got error as 'Object Reference Not set to an instance of an object'
Please help me with this query.
Thank u in advance
What I have tried:
Public Sub Start_Timer()
Dim tym As New System.Timers.Timer
tym.Interval = 20000
tym.Start()
AddHandler tym.Elapsed, New ElapsedEventHandler(AddressOf tick)
End Sub
Public Sub tick(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs)
Try
Dim Conn As SqlClient.SqlConnection = New SqlClient.SqlConnection("Data Source=.\SQLEXPRESS;Initial Catalog=VMS_DB;Integrated Security=true")
Dim tab As DataTable = New DataTable
Dim query As String
Conn.Open()
query = "select Top 1 * from Vehicle_Record where Flag=1 order by Flag asc"
Dim sda As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(query, Conn)
sda.Fill(tab)
If tab.Rows.Count <> 0 Then
Dim vehicle_No As String = tab.Rows(0).Item("Vehicle_No")
Dim str As String = "Vehicle_Acceptance_Form.aspx?VehicleNo=" + vehicle_No + ""
System.Web.HttpContext.Current.Response.Redirect("Vehicle_Acceptance_Form.aspx?VehicleNo=" + vehicle_No)
Dim update_Query As String = "Update Vehicle_Record set Flag=0 where Vehicle_No='" & vehicle_No & "' and Flag=1"
Dim da As SqlClient.SqlCommand = New SqlClient.SqlCommand(update_Query, Conn)
da.ExecuteNonQuery()
Conn.Close()
Else
Conn.Close()
End If
Catch ex As Exception
End Try
End Sub