07-06-18, 11:22 PM
كود :
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