Dim fcs As String
fcs = "select fname,dept from nstudent where stid = '" & txt_sid.Text & "'"
scmd1 = New SqlCommand(fcs, con)
dr = scmd1.ExecuteReader
Dim n As Byte
n = dr.Read
If (n > 0) Then
txt_sname.Text = dr.Item(0)
cmb_dept.Text = dr.Item(1)
If Not dr.IsClosed Then dr.Close()
This action is not allowed at this time as the site is in read-only mode. Please try again later.
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)