+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=2483)
الصفحات:
1
2
طلب تصحيح كود دخول مستخدم - أم هادي - 06-04-14
عندي فورم فيها اثنين تكست بوكس
1- اسم المستخدم
2- كلمة المرور
عند ادخال المعلومات والضغط على دخول ... المفروض البرنامج يقارن المعلومات بقاعدة البيانات ..
عملت الكود كامل بس يعترض على جملة .. dataadapter1.Fill(dataset1, "table1")
والكود هو ..
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = Trim(" ") Then Exit Sub
sql = "select * from table1 where name='" & TextBox1.Text & "' and number='" & TextBox2.Text & "'"
conn.Open()
Dim dataadapter1 As New OleDbDataAdapter(sql, conn)
dataadapter1.Fill(dataset1, "table1")
conn.Close()
If Me.BindingContext(dataset1, "table1").Count = 0 Then
MsgBox("اسم المستخدم أو كلمة المرور خاطئة")
Exit Sub
End If
MsgBox("مرحبا")
TextBox1.DataBindings.Add("text", dataset1, "table1.name")
TextBox2.DataBindings.Add("text", dataset1, "table1.number")
Form5.Show()
End Sub
RE: طلب تصحيح كود دخول مستخدم - Adrees - 06-04-14
مثال على تسجيل الدخول
RE: طلب تصحيح كود دخول مستخدم - أم هادي - 06-04-14
مشكور جدا اخي ..
الحمد لله ضبط معي الكود .. ولكن بعد وضع كود الدخول ظهرت مشكلة في كود تسجيل مستخدم جديد
If TextBox1.Text = "" And TextBox2.Text = "" Then
MessageBox.Show("فضلا ادخل اسم المستخدم وكلمة المرور", "تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error)
Return
End If
saveinto.Connection = conn
saveinto.CommandType = CommandType.Text
saveinto.CommandText = "insert into table1(username,password)" & "values ('" & TextBox1.Text & "','" & TextBox2.Text & "')"
conn.Open()
saveinto.ExecuteNonQuery()
conn.Close()
MsgBox("تسجيلك تم")
TextBox1.Clear()
TextBox2.Clear()
Form3.Show()
يعترض على هالجملة
saveinto.ExecuteNonQuery()
RE: طلب تصحيح كود دخول مستخدم - kslawy - 06-04-14
قمت بالتعديل في هذه الجزئية :
كود :
saveinto.CommandText = "insert into table1 (username,password) values ('" & TextBox1.Text & "','" & TextBox2.Text & "')"هناك فرغات في الجملة لم تقومي بعملها ... لاحظي الفراغ بين اسم الجدول والقوس اللي بعده ، كمان لازم يكون في فراغ قبل وبعد جملة values
هذه هي التعديلات قومي بالتجربة
شيء آخر لمزيد من التنسيق استخدمي محرر الأكواد في مشاركتك يعني ما تلصقي الكود مباشرة ، وذلك كالتالي :
في محرر المشاركات اضغطي مرتين علي الزر اللي صورته هذه العلامة (#) سيظهر كودان فقط لصقي كودك في وسطهما .
RE: طلب تصحيح كود دخول مستخدم - أم هادي - 07-04-14
تم التعديل ويتم التنفيذ ولكن عند فتح القاعدة لم يتم اضافة أي سجل
كود :
Imports System.Data.OleDb
Public Class Form1
Dim saveinto As New OleDb.OleDbCommand
Dim constr As String = "provider=microsoft.jet.oledb.4.0;" & "data source=" & Application.StartupPath & "\DB.mdb"
Dim con As New OleDbConnection(constr)
Dim dataset1 As New DataSet
Dim sql As String = "select * from usres"
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" And TextBox2.Text = "" Then
MessageBox.Show("فضلا ادخل اسم المستخدم وكلمة المرور", "تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error)
Return
End If
saveinto.Connection = con
saveinto.CommandType = CommandType.Text
saveinto.CommandText = "select * from usres where username='" & TextBox1.Text & "' and password='" & TextBox2.Text & "'"
con.Open()
saveinto.ExecuteNonQuery()
con.Close()
MsgBox("تسجيلك تم")
TextBox1.Clear()
TextBox2.Clear()
Form3.Show()
End Sub
End ClassRE: طلب تصحيح كود دخول مستخدم - أم هادي - 07-04-14
ارجو الرد من فضلكم
RE: طلب تصحيح كود دخول مستخدم - kslawy - 08-04-14
في هذه الحالة يجب إرفاق المشروع للاطلاع عليه
RE: طلب تصحيح كود دخول مستخدم - أم هادي - 08-04-14
هذا المشروع .. ارجو الرد بأقرب وقت
RE: طلب تصحيح كود دخول مستخدم - سعود - 08-04-14
الكود الموجود ضمن زر تسجيل الموجود في نموذج تسجيل مستخدم جديد وهو التالي:
كود :
saveinto.Connection = con
saveinto.CommandType = CommandType.Text
saveinto.CommandText = "select username,password from usres where username='" & TextBox1.Text & "'and password='" & TextBox2.Text & "'"
con.Open()
saveinto.ExecuteNonQuery()
con.Close()
MsgBox("تسجيلك تم")هذا كود استعلام يعني تسجيل دخول وليس تسجيل عضو جديد
================================
ايضا تم استخدام كائنات الربط اثناء التصميم يعني بالمعالج والافضل بالنسبة لي الاعتماد فقط على الاكواد.
ساقوم باذن الله تعالى بالتغيير والتعديل على المثال
RE: طلب تصحيح كود دخول مستخدم - أم هادي - 08-04-14
طيب .. مشكور أخي ما تقصر .. انتظر التعديل
بحثت أيضا عن كود الحذف بس للآن ما ضبط معي أي كود