منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : طلب تصحيح كود دخول مستخدم
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
عندي فورم فيها اثنين تكست بوكس
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
مثال على تسجيل الدخول
مشكور جدا اخي ..
الحمد لله ضبط معي الكود .. ولكن بعد وضع كود الدخول ظهرت مشكلة في كود تسجيل مستخدم جديد
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()
قمت بالتعديل في هذه الجزئية :

كود :
saveinto.CommandText = "insert into table1 (username,password) values ('" & TextBox1.Text & "','" & TextBox2.Text & "')"

هناك فرغات في الجملة لم تقومي بعملها ... لاحظي الفراغ بين اسم الجدول والقوس اللي بعده ، كمان لازم يكون في فراغ قبل وبعد جملة values

هذه هي التعديلات قومي بالتجربة

شيء آخر لمزيد من التنسيق استخدمي محرر الأكواد في مشاركتك يعني ما تلصقي الكود مباشرة ، وذلك كالتالي :
في محرر المشاركات اضغطي مرتين علي الزر اللي صورته هذه العلامة (#) سيظهر كودان فقط لصقي كودك في وسطهما .
تم التعديل ويتم التنفيذ ولكن عند فتح القاعدة لم يتم اضافة أي سجل
كود :
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 Class
ارجو الرد من فضلكم
في هذه الحالة يجب إرفاق المشروع للاطلاع عليه
هذا المشروع .. ارجو الرد بأقرب وقت
الكود الموجود ضمن زر تسجيل الموجود في نموذج تسجيل مستخدم جديد وهو التالي:
كود :
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("تسجيلك تم")

هذا كود استعلام يعني تسجيل دخول وليس تسجيل عضو جديد
================================
ايضا تم استخدام كائنات الربط اثناء التصميم يعني بالمعالج والافضل بالنسبة لي الاعتماد فقط على الاكواد.
ساقوم باذن الله تعالى بالتغيير والتعديل على المثال
طيب .. مشكور أخي ما تقصر .. انتظر التعديل
بحثت أيضا عن كود الحذف بس للآن ما ضبط معي أي كود
الصفحات : 1 2