تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلب مساعدة في كود تعديل بيانات جدول لو تكرمتم
#1
السلام عليكم ورحمة الله وبركاته
تحية لكل أعضاء المنتدى
بصراحة انا مبتدئ في الفيجوال بيسك
يمكن يكون سؤالي هذا سهل لكنه حيرني جدا جدا

الزر رقم 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

رجاء من خبراء الفيجوال بيسك مساعدتي في تصحيح هذا الكود
كل الشكر والتقدير
الرد }}}
تم الشكر بواسطة:
#2
اخي الكريم ارفع مشروعك لسرعة الجواب او على الاقل رتب الاكواد وضعها ضمن احدى الوسوم بالمحرر الخاص بالمشاركة.
الرد }}}
تم الشكر بواسطة:
#3
السلام عليكم أخي العزيز،
إرفع لمشروع لمساعدتك.
وشكرا
واعبد ربك حتى يأتيك اليقين
الرد }}}
تم الشكر بواسطة:
#4
هذا هو ملف المشروع


الملفات المرفقة
.rar   kofa.rar (الحجم : 184.67 ك ب / التحميلات : 38)
الرد }}}
تم الشكر بواسطة:
#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
الرد }}}
تم الشكر بواسطة:
#6

.rar   kofa2.rar (الحجم : 239.37 ك ب / التحميلات : 30)
جربت طريقة أخرى لكنها لم تنفع معي ايضا

كود الزر


PHP كود :
Private Sub Button4_Click_2(sender As ObjectAs EventArgsHandles 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

أرجو المساعدة وجزاكم الله خيرا
,وهذا ملف المشروع
الرد }}}
تم الشكر بواسطة: khodor1985 , khodor1985
#7
عجيب أمرك أنت كيف عم بتعدل على ورقم الID لل Student ليس Unique، أخي كل Students يحملون نفس رقم الID فبرأيك كيف بدو يتم التعديل.

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

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

عذرا

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

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

شكرا لك
الرد }}}
تم الشكر بواسطة:
#9
لو تكرمتم

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


الملفات المرفقة
.rar   kofa.rar (الحجم : 246.28 ك ب / التحميلات : 34)
الرد }}}
تم الشكر بواسطة:
#10
فيه ادوات مكررة مالغرض منها
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  استعلام من عدة جداول لقاعدة بيانات اكسس Adel27213 1 695 07-11-23, 08:27 AM
آخر رد: justforit
  أريد مساعدة من فضلكم في زر الإضافة waidom 2 1,671 10-06-23, 12:53 PM
آخر رد: mahmoud mostafa 2023
  [SQL] استفسار عن طريقة تحزم قواعد بيانات MSSQL مع البرنامج VB.NET2019 salemq 2 528 18-05-23, 03:02 AM
آخر رد: سعود
  ما معني بيانات تقع بين الرمز[] في حقل في داتا بيس bassant 3 671 03-04-23, 11:53 PM
آخر رد: sanyor77
  [نقاش] مشاركة قاعدة بيانات SQL على شبكه داخليه morkoskhalaf 3 3,002 06-01-23, 03:20 AM
آخر رد: عبدالكريم برشدان
  قاعدة بيانات xml djelloul 3 2,798 07-11-22, 10:27 PM
آخر رد: Am7
  [عنوان معدل]حفظ بيانات listbox fhad24 36 12,235 08-10-22, 06:55 PM
آخر رد: رضوان الجماعي
  استعلام يرجع اسماء الاعمدة و نوع البيانات في جدول معين بسام محمدغانم 0 959 23-10-21, 01:43 AM
آخر رد: بسام محمدغانم
  مشكلة ظهور بياانات حقلين في قاعدة بيانات على شكل علامة استفهام bassant 5 1,632 17-10-21, 02:07 PM
آخر رد: abubasilIraq
  [Acces2010] اريد تعديل الكود للاكسس بسام محمدغانم 0 833 13-10-21, 09:14 PM
آخر رد: بسام محمدغانم

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم