Imports System.Data.SqlClient
Partial Class _Default
Inherits System.Web.UI.Page
Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim constring As String = ConfigurationManager.ConnectionStrings("sportsconn").ConnectionString
Dim conn As New SqlConnection(constring)
conn.Open()
Dim cmd As New SqlCommand("Select name1,age,sport,points,Format(date_reg, 'dd/MM/yyyy') As date_reg From table1 Where id=@id", conn)
cmd.Parameters.AddWithValue("id", TextBox1.Text)
Dim myreader As SqlDataReader
myreader = cmd.ExecuteReader()
If myreader.Read() Then
Label7.Visible = False
TextBox2.Text = myreader("name1").ToString()
TextBox3.Text = myreader("age").ToString()
TextBox4.Text = myreader("sport").ToString()
TextBox5.Text = myreader("points").ToString()
If Not (myreader.IsDBNull(myreader.GetOrdinal("date_reg"))) Then
TextBox6.Text = myreader("date_reg")
Else
TextBox6.Text = ""
End If
Else
Label7.Visible = True
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
End If
conn.close()
End Sub
End Class
Code in web config:
<connectionStrings>
<add name="sportsconn" connectionString="Data Source=.;Initial Catalog=sports;Integrated Security=true" providerName="System.Data.Sqlclient" />
</connectionStrings>
