طلب مساعدة في كود تعديل بيانات جدول لو تكرمتم

طلب مساعدة في كود تعديل بيانات جدول لو تكرمتم - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : طلب مساعدة في كود تعديل بيانات جدول لو تكرمتم (/showthread.php?tid=15935)

الصفحات: 1 2

طلب مساعدة في كود تعديل بيانات جدول لو تكرمتم - kofa - 27-05-16

السلام عليكم ورحمة الله وبركاته
تحية لكل أعضاء المنتدى
بصراحة انا مبتدئ في الفيجوال بيسك
يمكن يكون سؤالي هذا سهل لكنه حيرني جدا جدا

الزر رقم 5

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        Dim cmd As New OleDbCommand("update student set (Student_Name = '" & TextBox1.Text & "',Class = '" & TextBox2.Text & "',Mobile = '" & TextBox3.Text & "',Bus = '" & TextBox4.Text & "',MLG_email = '" & TextBox5.Text & "',Address = '" & TextBox6.Text & "',Company = '" & TextBox7.Text & "',Father_Shara = '" & TextBox8.Text & "',Student_ID = '" & TextBox8.Text & "' where Student_Name = " & TextBox1.Text & ")")
        cmd.Connection = con
        con.Open()
        cmd.ExecuteNonQuery()
        con.Close()

    End Sub

يعطيني خطأ في بناء جملة update
................................................

الكود الرئيسي للفورم

Imports System.Data
Imports System.Data.OleDb

Public Class Form1

    Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=kofa.accdb;")
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Label1.Visible = False
        Label2.Visible = False
        Label3.Visible = False
        Label4.Visible = False
        Labe5.Visible = False
        Label6.Visible = False
        Label7.Visible = False
        Label8.Visible = False
        Label9.Visible = False
        TextBox1.Visible = False
        TextBox2.Visible = False
        TextBox3.Visible = False
        TextBox4.Visible = False
        TextBox5.Visible = False
        TextBox6.Visible = False
        TextBox7.Visible = False
        TextBox8.Visible = False
        TextBox9.Visible = False
        Button3.Visible = False
        Dim da As New OleDbDataAdapter("select * from student", con)
        Dim dt As New DataTable()
        da.Fill(dt)
        DataGridView1.DataSource = dt
        DataGridView1.Visible = True
        DataGridView1.Width = 1109

    End Sub

    Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        DataGridView1.Width = 600
        Label1.Visible = True
        Label2.Visible = True
        Label3.Visible = True
        Label4.Visible = True
        Labe5.Visible = True
        Label6.Visible = True
        Label7.Visible = True
        Label8.Visible = True
        Label9.Visible = True
        TextBox1.Visible = True
        TextBox2.Visible = True
        TextBox3.Visible = True
        TextBox4.Visible = True
        TextBox5.Visible = True
        TextBox6.Visible = True
        TextBox7.Visible = True
        TextBox8.Visible = True
        TextBox9.Visible = True
        Button3.Visible = True
        TextBox1.Text = String.Empty
        TextBox2.Text = String.Empty
        TextBox3.Text = String.Empty
        TextBox4.Text = String.Empty
        TextBox5.Text = String.Empty
        TextBox6.Text = String.Empty
        TextBox7.Text = String.Empty
        TextBox8.Text = String.Empty
        TextBox9.Text = String.Empty
    End Sub

    Private Sub TextBox6_TextChanged(sender As Object, e As EventArgs) Handles TextBox4.TextChanged

    End Sub

    Private Sub TextBox7_TextChanged(sender As Object, e As EventArgs) Handles TextBox5.TextChanged

    End Sub

    Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox6.TextChanged

    End Sub

    Private Sub Label1_Click(sender As Object, e As EventArgs)

    End Sub

    Private Sub TextBox4_TextChanged(sender As Object, e As EventArgs) Handles TextBox3.TextChanged

    End Sub

    Private Sub Label7_Click(sender As Object, e As EventArgs)

    End Sub

    Private Sub Label4_Click(sender As Object, e As EventArgs)

    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        If (String.IsNullOrWhiteSpace(TextBox1.Text) AndAlso String.IsNullOrWhiteSpace(TextBox2.Text) AndAlso String.IsNullOrWhiteSpace(TextBox3.Text) AndAlso String.IsNullOrWhiteSpace(TextBox4.Text) AndAlso String.IsNullOrWhiteSpace(TextBox5.Text) AndAlso String.IsNullOrWhiteSpace(TextBox6.Text)) Then
            MessageBox.Show("يجب ملء جميع الخانات")
            Return
        End If
        Dim cmd As New OleDbCommand("insert into student (Student_Name,Class,Mobile,Bus,MLG_email,Address,Company,Father_Shara,Student_ID) values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "','" & TextBox8.Text & "','" & TextBox9.Text & "')")
        cmd.Connection = con
        con.Open()
        cmd.ExecuteNonQuery()
        con.Close()
        MessageBox.Show("تم حفظ البيانات بنجاح")
        TextBox1.Text = String.Empty
        TextBox2.Text = String.Empty
        TextBox3.Text = String.Empty
        TextBox4.Text = String.Empty
        TextBox5.Text = String.Empty
        TextBox6.Text = String.Empty
        TextBox7.Text = String.Empty
        TextBox8.Text = String.Empty
        TextBox9.Text = String.Empty
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs)

        If (String.IsNullOrWhiteSpace(TextBox1.Text) AndAlso String.IsNullOrEmpty(TextBox2.Text) AndAlso String.IsNullOrEmpty(TextBox3.Text) AndAlso String.IsNullOrEmpty(TextBox4.Text) AndAlso String.IsNullOrEmpty(TextBox5.Text) AndAlso String.IsNullOrEmpty(TextBox6.Text)) Then
            MessageBox.Show("يجب ملء جميع الخانات")
            Return
        End If
        Dim cmd As New OleDbCommand("inser into student (Student_Name,Class,Mobile,Bus,MLG_email,Address) values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox5.Text & "')")
        cmd.Connection = con
        con.Open()
        cmd.ExecuteNonQuery()
        con.Close()
        MessageBox.Show("تم حفظ البيانات بنجاح")
        TextBox1.Text = String.Empty
        TextBox2.Text = String.Empty
        TextBox3.Text = String.Empty
        TextBox4.Text = String.Empty
        TextBox5.Text = String.Empty
        TextBox6.Text = String.Empty
    End Sub

    Private Sub Button4_Click_1(sender As Object, e As EventArgs) Handles Button4.Click
        DataGridView1.Width = 600
        Label1.Visible = True
        Label2.Visible = True
        Label3.Visible = True
        Label4.Visible = True
        Labe5.Visible = True
        Label6.Visible = True
        Label7.Visible = True
        Label8.Visible = True
        Label9.Visible = True
        TextBox1.Visible = True
        TextBox2.Visible = True
        TextBox3.Visible = True
        TextBox4.Visible = True
        TextBox5.Visible = True
        TextBox6.Visible = True
        TextBox7.Visible = True
        TextBox8.Visible = True
        TextBox9.Visible = True
        Button3.Visible = False
        Button5.Visible = True
        If (DataGridView1.SelectedRows.Count = 0) Then
            MessageBox.Show("اختر الطالب المراد تعديل بياناته", "خطأ")
            Return
        End If
        Dim indx As Integer = DataGridView1.SelectedRows(0).Index
        TextBox1.Text = DataGridView1(1, indx).Value.ToString
        TextBox2.Text = DataGridView1(2, indx).Value.ToString
        TextBox3.Text = DataGridView1(3, indx).Value.ToString
        TextBox4.Text = DataGridView1(4, indx).Value.ToString
        TextBox5.Text = DataGridView1(5, indx).Value.ToString
        TextBox6.Text = DataGridView1(6, indx).Value.ToString
        TextBox7.Text = DataGridView1(7, indx).Value.ToString
        TextBox8.Text = DataGridView1(8, indx).Value.ToString
        TextBox9.Text = DataGridView1(9, indx).Value.ToString
        Button4.Focus()
    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        Dim cmd As New OleDbCommand("update student set (Student_Name = '" & TextBox1.Text & "',Class = '" & TextBox2.Text & "',Mobile = '" & TextBox3.Text & "',Bus = '" & TextBox4.Text & "',MLG_email = '" & TextBox5.Text & "',Address = '" & TextBox6.Text & "',Company = '" & TextBox7.Text & "',Father_Shara = '" & TextBox8.Text & "',Student_ID = '" & TextBox8.Text & "' where Student_Name = " & TextBox1.Text & ")")
        cmd.Connection = con
        con.Open()
        cmd.ExecuteNonQuery()
        con.Close()

    End Sub

    Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox9.KeyDown, TextBox8.KeyDown, TextBox7.KeyDown, TextBox6.KeyDown, TextBox5.KeyDown, TextBox4.KeyDown, TextBox3.KeyDown, TextBox2.KeyDown, TextBox1.KeyDown

    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs)

    End Sub

    Private Sub TextBox11_TextChanged(sender As Object, e As EventArgs)

    End Sub

    Private Sub DataGridView1_SelectionChanged(sender As Object, e As EventArgs) Handles DataGridView1.SelectionChanged
        TextBox1.Text = DataGridView1(1, DataGridView1.CurrentRow.Index).Value
        TextBox2.Text = DataGridView1(2, DataGridView1.CurrentRow.Index).Value
        TextBox3.Text = DataGridView1(3, DataGridView1.CurrentRow.Index).Value
        TextBox4.Text = DataGridView1(4, DataGridView1.CurrentRow.Index).Value
        TextBox5.Text = DataGridView1(5, DataGridView1.CurrentRow.Index).Value
        TextBox6.Text = DataGridView1(6, DataGridView1.CurrentRow.Index).Value
        TextBox7.Text = DataGridView1(7, DataGridView1.CurrentRow.Index).Value
        TextBox8.Text = DataGridView1(8, DataGridView1.CurrentRow.Index).Value
        TextBox9.Text = DataGridView1(9, DataGridView1.CurrentRow.Index).Value
    End Sub
End Class

رجاء من خبراء الفيجوال بيسك مساعدتي في تصحيح هذا الكود
كل الشكر والتقدير

RE: طلب مساعدة في كود تعديل بيانات جدول لو تكرمتم - سعود - 27-05-16

اخي الكريم ارفع مشروعك لسرعة الجواب او على الاقل رتب الاكواد وضعها ضمن احدى الوسوم بالمحرر الخاص بالمشاركة.

RE: طلب مساعدة في كود تعديل بيانات جدول لو تكرمتم - khodor1985 - 27-05-16

السلام عليكم أخي العزيز،
إرفع لمشروع لمساعدتك.
وشكرا

RE: طلب مساعدة في كود تعديل بيانات جدول لو تكرمتم - kofa - 27-05-16

هذا هو ملف المشروع

RE: طلب مساعدة في كود تعديل بيانات جدول لو تكرمتم - kofa - 27-05-16

كود :

هذا هو الكود المراد تعديله

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click

        Dim cmd As New OleDbCommand("update student set (Student_Name = '" & TextBox1.Text & "',Class = '" & TextBox2.Text & "',Mobile = '" & TextBox3.Text & "',Bus = '" & TextBox4.Text & "',MLG_email = '" & TextBox5.Text & "',Address = '" & TextBox6.Text & "',Company = '" & TextBox7.Text & "',Father_Shara = '" & TextBox8.Text & "',Student_ID = '" & TextBox8.Text & "' where Student_Name = " & TextBox1.Text & ")")

        cmd.Connection = con

        con.Open()

        cmd.ExecuteNonQuery()

        con.Close()

    End Sub

RE: طلب مساعدة في كود تعديل بيانات جدول لو تكرمتم - kofa - 27-05-16

[attachment=10579]
جربت طريقة أخرى لكنها لم تنفع معي ايضا

كود الزر

PHP كود :

Private Sub Button4_Click_2(sender As Object, e As EventArgs) Handles Button4.Click
        dt.Rows.Add()
        Dim last As Integer = dt.Rows.Count - 1
        dt.Rows(last).Item("Student_Name") = TextBox10.Text
        dt.Rows(last).Item("Class") = TextBox11.Text
        dt.Rows(last).Item("Mobile") = TextBox12.Text
        dt.Rows(last).Item("Bus") = TextBox13.Text
        dt.Rows(last).Item("MLG_email") = TextBox14.Text
        dt.Rows(last).Item("Address") = TextBox15.Text
        dt.Rows(last).Item("Company") = TextBox16.Text
        dt.Rows(last).Item("Father_Shara") = TextBox17.Text
        dt.Rows(last).Item("Student_ID") = TextBox18.Text 

يظهر رسالة خطأ تقول

Column 'Student_Name' does not belong to table

أرجو المساعدة وجزاكم الله خيرا
,وهذا ملف المشروع

RE: طلب مساعدة في كود تعديل بيانات جدول لو تكرمتم - khodor1985 - 27-05-16

عجيب أمرك أنت كيف عم بتعدل على ورقم الID لل Student ليس Unique، أخي كل Students يحملون نفس رقم الID فبرأيك كيف بدو يتم التعديل.

لازم كل تلميذ يحمل رقم معرف مستقل لا يشاركه به أي أحد من التلامذة الآخرين

هذا من جهة،
من جهة أخرى لماذا هذه الطريقة في التصميم، بتلخبط لدماغ ليش هيك؟؟!، حتى لو كنت مبتدئ.

RE: طلب مساعدة في كود تعديل بيانات جدول لو تكرمتم - kofa - 28-05-16

يعني كيف احل هذه المشكلة أستاذي الفاضل

عذرا

انا بحاول وأكيد في أخطاء

علمني كيف واجعلني تلميذ في مدرستك

شكرا لك

RE: طلب مساعدة في كود تعديل بيانات جدول لو تكرمتم - kofa - 28-05-16

لو تكرمتم

يتم حفظ الإضافات الجديدةأثناء التشغيل لكنه لا يحفظها في الملف الرئيسي بعد التشغيل مرة أخرى

RE: طلب مساعدة في كود تعديل بيانات جدول لو تكرمتم - سعود - 29-05-16

فيه ادوات مكررة مالغرض منها