08-03-21, 04:54 AM
السلام عليكم شباب ممكن سؤال كيفية تحويل الكود ليعمل مع قاعدة بيانات سيكوال
كود :
Try
Dim cmdselect As New OleDbCommand
cmdselect.Connection = conn
cmdselect.CommandText =("select * from adduser where EMail='" & TextBox3.Text & "'", con)
Dim re As OleDbDataReader
re = cmdselect.ExecuteReader
If re.Read Then
Else
MsgBox("بيانات الشخص غير موجوده قم باضافتها")
End If
Catch ex As Exception
MsgBox(ex.Message.ToString)
End Try
قال تعالى : يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ
