*These
two namespaces are must be required for SqlServer Connectivity in your form:-
Imports System.Data
Imports System.Data.SqlClient
Private Sub RegID_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RegID.Click
Dim StrCon As String = "Server=PRADEEP-HP;Database=ClassDemo;User
id=sa;Password=abc"
Dim SqlCon As SqlConnection = New SqlConnection(StrCon)
Dim SqlQuery As String = "Select
Name,Address,PhoneNo,DOB,Gender from Registration where RegId='" + txtRegId.Text + "'"
Dim SqlCom As SqlCommand = New SqlCommand(SqlQuery, SqlCon)
SqlCon.Open()
Dim Dr As SqlDataReader
Dr = SqlCom.ExecuteReader()
If (Dr.Read()) Then
txtName.Text = Dr("Name").ToString()
txtAddress.Text = Dr("Address").ToString()
txtPhNo.Text = Dr("PhoneNo").ToString()
lblMsg2.Text = Dr("Gender").ToString()
DateTimePicker1.Value =
Dr("DOB").ToString()
End If
End Sub
0 comments
Post a Comment