تقييم الموضوع :
  • 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 ك ب / التحميلات : 12)
الرد }}}}
تم الشكر بواسطة:
#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 ك ب / التحميلات : 8)
جربت طريقة أخرى لكنها لم تنفع معي ايضا

كود الزر


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 ك ب / التحميلات : 9)
الرد }}}}
تم الشكر بواسطة:
#10
فيه ادوات مكررة مالغرض منها
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ابي اربط برنامجي بسيرفر او قاعده بيانات مبارك 3 173 22-11-16, 02:57 PM
آخر رد: مبارك
  [سؤال] المساعدة في نقل سجلات من جدول الى جدول اخر مهندس حيدر 7 271 13-11-16, 02:16 PM
آخر رد: محمود بكرى
  [سؤال] كيفية اضافة عناصر عمود فى جدول من قاعدة بيانات فى جدول اخر hidn 1 166 04-11-16, 09:25 AM
آخر رد: thevirus
  [سؤال] قراءة رابط من قاعدة بيانات في ادة التصفح شمس الدين 03 2 77 27-10-16, 10:43 PM
آخر رد: شمس الدين 03
  كيفية الاتصال بقاعدة بيانات Access على الشبكة المحلية warda saeed 7 7,209 27-10-16, 09:53 PM
آخر رد: thevirus
  مساعدة في بناء قاعدة hglogtd 4 129 05-10-16, 03:48 PM
آخر رد: hglogtd
  ربط قاعدة بيانات اكسس بفجوال دوت نت 2015 كنونو 0 123 26-09-16, 01:35 PM
آخر رد: كنونو
Lightbulb [سؤال] كيف يتم رفع قاعدة بيانات mysql بطريقة برمجية sanosi 0 124 26-08-16, 05:00 PM
آخر رد: sanosi
  [سؤال] مساعدة في حفظ بيانات من جدولين mosasaad 5 266 22-08-16, 10:25 AM
آخر رد: سعود
  [VB.NET] مشكله عند الحفظ على قاعدة بيانات باستخدام Data Source وقاعدة بيانات اكسس2007 coderarab 7 363 24-07-16, 06:26 PM
آخر رد: سعود

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


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