[حريف برمجة]

كود :

if T1.Text = "" then
           MsgBox("فضلاً.. اكتب المراد البحث عنه أولاً")
T1.Focus()
Exit Sub
End If
 Dim f As Integer
        f = 0
        con1.Open()
        sh1.CommandText = "select * from stu1 where set_na='" + T1.Text + "'"
        Dim r1 As SqlDataReader
        r1 = sh1.ExecuteReader
        If r1.Read Then
           f = 1
           T2.Text = r1("set_na")
           T1.Text = r1("set_no")
       End If
       con1.Close()
       If f = 0 Then
           MsgBox(" المطلوب غير موجود")

       End If