شكر ليك اخى العزيز على الرد
ولكن ظهر مشكلة غريبة بالنسبة لى ما هو الحل؟؟؟
الحمد الله لقيت الحل و هو
ولكن ظهر مشكلة غريبة بالنسبة لى ما هو الحل؟؟؟
الحمد الله لقيت الحل و هو
كود :
con.Open()
Dim cmdselect As New SqlCommand
cmdselect.Connection = con
cmdselect.CommandText = "select * from adduser where EMail='" & TextBox3.Text & "'"
Dim re As SqlDataReader
re = cmdselect.ExecuteReader
If re.Read Then
MsgBox("البريد الالكترونى مسجل قبل ذلك برجاء التاكد من البريد الالكترونى او الضعط على المساعده", MsgBoxStyle.Information, "خطا")
Exit Sub
Else
End If
con.Close()
قال تعالى : يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ
