I am trying to read data from this table but it is not returing any valuesUsing Con As New SqlConnectionconString ConOpen Using Com2 As New SqlCommand34SELECT FROM stop2 WHERE serialno 3934 amp BarcodeText amp 343934 Con Using RDR2 Com2ExecuteReader If RDR2HasRows Then RDR2Read Dim time2 As String 34SORRY THIS BOOK HAS NOT BEEN RETURNED IT WAS BORROWED BY 34 amp RDR2Item34names34

Refer the modified codeDim names As String StringEmptyDim className As String StringEmptyDim stream As String StringEmptyDim account As String StringEmptyDim constring As String ConfigurationManagerConnectionStrings34constr34ConnectionStringUsing Con As New SqlConnectionconstring ConOpen Using Com2 As New SqlCommand34SELECT FROM stop2 WHERE serialno SNo34 Con Com2ParametersAddWithValue34SNo34 BarcodeText Using RDR2 Com2ExecuteReader If RDR2HasRows Then If RDR2Read Then names RDR2Item34names34ToString className RDR2Item34class34ToString stream RDR2Item34stream34ToString account RDR2Item34Account34ToString 39Dim time2 As String 34SORRY THIS BOOK HAS NOT BEEN RETURNED IT WAS BORROWED BY 34 amp names amp 34 Of

[Solved] ASP.Net: SqlDataReader not returning any record in VB.Net

makumbi

SOLVED CLOSED ACTIVE ANSWERED
User: makumbi
Posted: on Nov 17, 2022 11:04 PM
Forum: ASP.Net Web Forms
Answer: 1
Views: 1506

I am trying to read data from this table but it is not returing any values.

Using Con As New SqlConnection(conString)
    Con.Open()
    Using Com2 As New SqlCommand("SELECT *FROM stop2 WHERE serialno = '" & Barcode.Text & "'", Con)
        Using RDR2 = Com2.ExecuteReader()
            If RDR2.HasRows Then
                RDR2.Read()
                Dim time2 As String = "SORRY THIS BOOK HAS NOT BEEN RETURNED IT WAS BORROWED BY " & RDR2.Item("names").ToString() & "  Of   " & RDR2.Item("class").ToString() & RDR2.Item("stream").ToString()
                ScriptManager.RegisterStartupScript(Me, [GetType](), "showalert", "alert('" & time2 & "');", True)
                Using Cont As New SqlConnection(conString)
                    Cont.Open()
                    Using cmd As New SqlCommand
                        cmd.Connection = Cont
                        cmd.CommandType = CommandType.StoredProcedure
                        cmd.CommandText = "Initiatebarcode"
                        cmd.Parameters.Add("@c", SqlDbType.NVarChar).Value = Barcode.Text
                        cmd.Parameters.Add("@ac", SqlDbType.NVarChar).Value = RDR2.Item("Account").ToString()
                        cmd.Parameters.Add("@d", SqlDbType.NVarChar).Value = Datetr.Text
                        cmd.ExecuteReader()
                        Cont.Close()
                        ' Barcode.Text = ""
                        Exit Sub
                    End Using
                End Using
 
                Barcode.Text = ""
                Label15.Text = "BC"
                Barcode.Focus()
                Exit Sub
            End If
        End Using
        Con.Close()
    End Using
End Using

Account	Bookstaken	BookName	markreturned	serialno	Class	stream	Scancode	Names
06-00016	1	GOOD NEWS BIBLE	0	0001	NULL	NULL	NULL	KICONCO GERALDINE
06-00016	1	GOOD NEWS BIBLE	0	0002	NULL	NULL	NULL	KICONCO GERALDINE
06-00016	1	GOOD NEWS BIBLE	0	0003	NULL	NULL	NULL	KICONCO GERALDINE
06-00016	1	GOOD NEWS BIBLE	0	0004	NULL	NULL	NULL	KICONCO GERALDINE
06-00016	1	GOOD NEWS BIBLE	0	0005	NULL	NULL	NULL	KICONCO GERALDINE
06-00016	1	GOOD NEWS BIBLE	0	0006	NULL	NULL	NULL	KICONCO GERALDINE
06-00016	1	GOOD NEWS BIBLE	0	0007	NULL	NULL	NULL	KICONCO GERALDINE

Download FREE API for Word, Excel and PDF in ASP.Net

PrinceG

0 3

Reply
ANSWER
User: PrinceG
Replied: on Nov 19, 2022 12:24 AM
Modified: on Nov 19, 2022 12:25 AM
Report

Refer the modified code.

Dim names As String = String.Empty
Dim className As String = String.Empty
Dim stream As String = String.Empty
Dim account As String = String.Empty
Dim constring As String = ConfigurationManager.ConnectionStrings("constr").ConnectionString
Using Con As New SqlConnection(constring)
    Con.Open()
    Using Com2 As New SqlCommand("SELECT * FROM stop2 WHERE serialno = @SNo", Con)
        Com2.Parameters.AddWithValue("@SNo", Barcode.Text)
        Using RDR2 = Com2.ExecuteReader()
            If RDR2.HasRows Then
                If RDR2.Read() Then
                    names = RDR2.Item("names").ToString()
                    className = RDR2.Item("class").ToString()
                    stream = RDR2.Item("stream").ToString()
                    account = RDR2.Item("Account").ToString()
                    'Dim time2 As String = "SORRY THIS BOOK HAS NOT BEEN RETURNED IT WAS BORROWED BY " & names & "  Of   " & className & stream
                    'ScriptManager.RegisterStartupScript(Me, Me.GetType(), "showalert", "alert('" & time2 & "');", True)
                End If
            End If
        End Using
        Con.Close()
    End Using
End Using

Using Cont As New SqlConnection(constring)
    Cont.Open()
    Using cmd As New SqlCommand
        cmd.Connection = Cont
        cmd.CommandType = CommandType.StoredProcedure
        cmd.CommandText = "Initiatebarcode"
        cmd.Parameters.Add("@c", SqlDbType.NVarChar).Value = Barcode.Text
        cmd.Parameters.Add("@ac", SqlDbType.NVarChar).Value = account
        cmd.Parameters.Add("@d", SqlDbType.NVarChar).Value = Datetr.Text
        cmd.ExecuteNonQuery()        
    End Using
    Cont.Close()
End Using
Barcode.Text = ""
Label15.Text = "BC"
Barcode.Focus()

I agree, here is the link: https://www.e-iceblue.com/Introduce/spire-office-for-net-free.html

[Solved] ASP.Net: SqlDataReader not returning any record in VB.Net

Company

Explore

Follow us

Contact Us