+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تغيير كلمة المرور في الفيجوال بيسك مع قواعد البيانات (/showthread.php?tid=28602)
تغيير كلمة المرور في الفيجوال بيسك مع قواعد البيانات - عبدالله اااا - 13-02-19
السلام عليكم انا عملت برنامج بالفيجوال بيسك وقاعدة بيانات sql server في نموذج تغيير كلمة المرور يحتوي على 4 تيكست بوكس
وهذا كود تغيير كلمة المرور من اختار اضغط على الزر تضضهر النافذة الموجوده بالصوره
Try
If txtid.Text = "" Then
MsgBox("من فضلك ادخل اسم المستخدم")
ElseIf txtpass.Text = "" Then
MsgBox("من فضلك ادخل كلمة المرور الحالية")
ElseIf TextBox3.Text = "" Then
MsgBox("من فضلك ادخل كلمة المرور الجديدة")
ElseIf TextBox4.Text = "" Then
MsgBox("من فضلك أعد كتابة كلمة المرور الجديدة")
Else
MsgBox("done")
Dim idname As String = ""
Dim pw As String = ""
Dim STR = "select * from admin Where ID='" & txtid.Text
Dim adp = New SqlDataAdapter(STR, sqlcon)
Dim Ds = New DataSet
adp.Fill(Ds)
Dim DT As DataTable
DT = Ds.Tables(0)
If DT.Rows.Count <> 0 Then
idname = (DT.Rows(0).Item("id"))
pw = (DT.Rows(0).Item("password"))
End If
If idname = txtid.Text And pw = txtpass.Text Then
Dim sqlpic = "update admin set password=@password where id ='" & (txtid.Text) & "'"
Dim cmdpic As New SqlCommand(sqlpic, sqlcon)
cmdpic.Parameters.Add(New SqlParameter("@password", TextBox3.Text))
cmdpic.ExecuteNonQuery()
MsgBox("تم تغيير كلمة المرور بنجاح")
Me.Hide()
Form3.Show()
Else
MsgBox("المعلومات المدخلة خاطئة")
End If
End If
Catch ex As Exception
MessageBox.Show(ex.Message, "info")
End Try
RE: تغيير كلمة المرور في الفيجوال بيسك مع قواعد البيانات - أحمد النجار - 14-02-19
وعليكم السلام ورحمة الله وبركاته
اعتقد ممكن المشكلة في عدم غلق التنصيص في الجملة
كود :
Dim STR = "select * from admin Where ID='" & txtid.Textخليها
كود :
"'" & Dim STR = "select * from admin Where ID='" & txtid.TextRE: تغيير كلمة المرور في الفيجوال بيسك مع قواعد البيانات - أبوبكر سويدان - 14-02-19
الخطأ في جملة SQL، أنت فتحت تنصيصاً ولم تغلقه.
RE: تغيير كلمة المرور في الفيجوال بيسك مع قواعد البيانات - عبدالله اااا - 14-02-19
(14-02-19, 08:07 AM)أحمد النجارغلقته بس تضهر هاي النافذة كتب : وعليكم السلام ورحمة الله وبركاته
اعتقد ممكن المشكلة في عدم غلق التنصيص في الجملة
كود :
Dim STR = "select * from admin Where ID='" & txtid.Text
خليها
كود :
"'" & Dim STR = "select * from admin Where ID='" & txtid.Text
(14-02-19, 01:39 PM)أبوبكر سويدانغلقته بس تضهر هاي النافذة كتب : الخطأ في جملة SQL، أنت فتحت تنصيصاً ولم تغلقه.
RE: تغيير كلمة المرور في الفيجوال بيسك مع قواعد البيانات - عبد العزيز البسكري - 14-02-19
السلام عليكم و رحمة الله و بركاته
أخي الكريم عبد الله .. اضافة لما تم اقتراحه من السادة الاكارم بارك الله فيهم
قم بوضع الكود من جديد لو سمحت من خلال المكان المخصص لادراج الاكواد .. مع الاشارة الى عدم وجود الكلمة المشار اليها برسالة الخطا داخل الاكواد .. مع ملاحظة جملة ال update لديك و الانتباه اذا كانت الحقول من نوع أرقام سينتج لديك اخطاء علامات التنصيص هذه ..
و لو ممكن تضع مثالا مشابها بالاكسس
تحياتي