Reputation: 141
On Error Resume Next
Dim SQLData As New System.Data.SqlClient.SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\ASPNETDB.MDF;Integrated Security=True;User Instance=True")
Dim cmdSelect As New System.Data.SqlClient.SqlCommand("SELECT * FROM a1_ticket WHERE ITC =A1/1007", SQLData)
SQLData.Open()
Dim dtrReader As System.Data.SqlClient.SqlDataReader = cmdSelect.ExecuteReader()
If dtrReader.HasRows Then
While dtrReader.Read()
Literal1.Text = ""
Literal3.Text = "A1/1008"
Literal4.Text = dtrReader("Travels")
Literal5.Text = dtrReader("name")
Literal6.Text = dtrReader("mob")
Literal7.Text = dtrReader("fro_m")
Literal8.Text = dtrReader("t_o")
Literal9.Text = dtrReader("book_date")
Literal10.Text = dtrReader("journey_date")
Literal11.Text = dtrReader("dep_time")
Literal12.Text = dtrReader("arr_time")
Literal13.Text = dtrReader("bd_point")
Literal14.Text = dtrReader("dp_point")
Literal15.Text = dtrReader("sel_seat")
Literal16.Text = dtrReader("seat_opt")
Literal17.Text = dtrReader("bus_type")
Literal18.Text = dtrReader("taxes")
Literal19.Text = ""
Literal20.Text = ""
Literal21.Text = ""
End While
Else
End If
dtrReader.Close()
SQLData.Close()
Upvotes: 0
Views: 70
Reputation: 1116
SELECT * FROM a1_ticket WHERE ITC = **A1/1007**
Try, this... your parameter isn't correct. look into SqlParameters
SELECT * FROM a1_ticket WHERE ITC = 'A1/1007'
Upvotes: 0
Reputation: 158289
My guess is that ITC
is a string column in the DB, so you should have quotes around the value in the query:
Dim cmdSelect As New System.Data.SqlClient.SqlCommand("SELECT * FROM a1_ticket WHERE ITC ='A1/1007'", SQLData)
Upvotes: 1
Reputation: 5421
Your char/varchar value should be in single quotes. " ..... = 'A1/1007' "
Upvotes: 3