Wednesday, 1 November 2017

Search the data from the SqlServer database where User_Id or Reg_Id are given



*These two namespaces are must be required for SqlServer Connectivity in your form:-
Imports System.Data
Imports System.Data.SqlClient

Search Data Form


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