.NET (Core and Framework)

Private Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.Click
        If CheckBox1.Checked = True Then
            Dim strconnection As String = "Data Source=ELIANE-VAIO\SQLEXPRESS;Initial Catalog=SchoolDB;Integrated Security=True;"
            Dim _cn As SqlConnection = New SqlConnection(strconnection)
            Dim cmd As New SqlCommand
            Dim cmd1 As New SqlCommand
            _cn.Open()
            cmd.Connection = _cn
            Dim r As DataGridViewRow
            For Each r In Form1.DataGridView1.Rows
                cmd.CommandText = "select * from StudentInfo where Code = <a href="/Members/t1">@t1</a>; "
                cmd.ExecuteNonQuery()
            Next
            If MessageBox.Show("Record Found. Do you want to display the record in the textboxes?", "Found", MessageBoxButtons.YesNo, MessageBoxIcon.Warning) = DialogResult.No Then
                MsgBox("Display Cancelled")
                Exit Sub
            Else
                '    cmd.ExecuteNonQuery()
                MsgBox(":)")
            End If
        End If
End Sub

'TODO: This line of code loads data into the 'RFIdSSI_2DataSet._08_AssetMng' table. You can move, or remove it, as needed.
 Me._08_AssetMngTableAdapter.Fill(Me.RFIdSSI_2DataSet._08_AssetMng)

'grdDataGridView
'
Me.grdDataGridView.AutoGenerateColumns = False
Me.grdDataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.grdDataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.IDDataGridViewTextBoxColumn, Me.AssetDataGridViewTextBoxColumn, Me.AssetPosDataGridViewTextBoxColumn, Me.AssetTAGDataGridViewTextBoxColumn, Me.TblTrasponderTagIdDataGridViewTextBoxColumn, Me.ClassIdDataGridViewTextBoxColumn, Me.ClassTypeDataGridViewTextBoxColumn, Me.ColorDataGridViewTextBoxColumn, Me.WingDataGridViewTextBoxColumn, Me.WingCodeDataGridViewTextBoxColumn, Me.FloorDataGridViewTextBoxColumn, Me.RoomIdDataGridViewTextBoxColumn, Me.TblTagAssignedTagIdDataGridViewTextBoxColumn, Me.AssignedDataGridViewCheckBoxColumn, Me.TagDSFIDDataGridViewTextBoxColumn, Me.TagAFIDataGridViewTextBoxColumn, Me.TagEnterDataGridViewTextBoxColumn, Me.TypeImgDataGridViewTextBoxColumn, Me.TypeDescDataGridViewTextBoxColumn, Me.PosRowDataGridViewTextBoxColumn, Me.PosColumnDataGridViewTextBoxColumn})
Me.grdDataGridView.DataSource = Me.AssetMngBindingSource
Me.grdDataGridView.Location = New System.Drawing.Point(12, 396)
Me.grdDataGridView.Name = "grdDataGridView"
Me.grdDataGridView.Size = New System.Drawing.Size(772, 89)
Me.grdDataGridView.TabIndex = 24

Me.AssetMngBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.RFIdSSI_2DataSet = New RFIdSSI.RFIdSSI_2DataSet()

Me._08_AssetMngTableAdapter = New RFIdSSI.RFIdSSI_2DataSetTableAdapters._08_AssetMngTableAdapter()

CType(Me.grdDataGridView, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.AssetMngBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RFIdSSI_2DataSet, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()

Dim _cn As New SqlConnection
Dim _cnstring As String = "Data Source=ELIANE-VAIO\SQLEXPRESS;Initial Catalog=SchoolDB;Integrated Security=True;"
Dim _cn As New SqlConnection(_cnstring)
Dim cmd As New SqlCommand
'Try
_cn.Open()
cmd.Connection = _cn
cmd.CommandText = "INSERT INTO StudentInfo([Code], [Full-Name], [Position], [Title], [Phone-Number], [Address], [Date-Time]) VALUES('" & Form1.txtCode.Text & "', '" & Form1.txtName.Text & "', '" & Form1.cmbPosition.Text & "', '" & Form1.cmbTitle.Text & "','" & Form1.txtPhoneNumber.Text & "',' " & Form1.txtAddress.Text & "', '" & Form1.DateTimePicker1.Value & "');"
cmd.ExecuteNonQuery()


'Catch ex As Exception
' MessageBox.Show("Error while inserting record on table...")
'Finally
_cn.Close()
'End Try