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) Else MsgBox("Not Found") End If If Not dr.IsClosed Then dr.Close()
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)