دخول

**0theghost0** · 09-09-17, 12:07 PM

السلام عليكم

هذا الكود سليم 100% ولكن اثناء استخدامه التفت لشغلة بسيطة وهي :

اثناء عملية التعديل يقوم بتعديل كل من في كومبو بكس الى نفس البيانات التي قمت بالتعديل عليها .

كود :

Dim conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=False;")

        Dim sql As String =

            " update [Customer] set " &

            " Cus_Name=@Cus_Name, Cus_Address=@Cus_Address, Cus_Region=@Cus_Region, Cus_Telephone_Number=@Cus_Telephone_Number "

        Dim cmd As New OleDbCommand(sql, conn)

        cmd.Parameters.AddWithValue("@Cus_Name", TextBox1.Text)

        cmd.Parameters.AddWithValue("@Cus_Address", TextBox3.Text)

        cmd.Parameters.AddWithValue("@Cus_Region", TextBox4.Text)

        cmd.Parameters.AddWithValue("@Cus_Telephone_Number", TextBox5.Text)

        conn.Open()

        cmd.ExecuteNonQuery()

        conn.Close()

        MessageBox.Show("We have been successfully Update", "Congratulations", MessageBoxButtons.OK, MessageBoxIcon.Information)

        Form2_Load(e, e)

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

كود :

Form2_Load(e, e)

او كود افضل منه

**ola** · 09-09-17, 12:33 PM

مع UPDATE يجب في sql أن تضيف WHERE مع تحديد ID الذي تريد تطبيق التعديل في بياناته
الا إذا قصدت فعلا تحديث جميع البيانات

**0theghost0** · 09-09-17, 01:05 PM

اذا اضفت where

كود :

System.Data.OleDb.OleDbException occurred

  HResult=0x80040E14

  Message=Syntax error in UPDATE statement.

  Source=Microsoft Access Database Engine

  StackTrace:

   at System.Data.OleDb.OleDbCommand.ExecuteCommandTextErrorHandling(OleDbHResult hr)

   at System.Data.OleDb.OleDbCommand.ExecuteCommandTextForSingleResult(tagDBPARAMS dbParams, Object& executeResult)

   at System.Data.OleDb.OleDbCommand.ExecuteCommandText(Object& executeResult)

   at System.Data.OleDb.OleDbCommand.ExecuteCommand(CommandBehavior behavior, Object& executeResult)

   at System.Data.OleDb.OleDbCommand.ExecuteReaderInternal(CommandBehavior behavior, String method)

   at System.Data.OleDb.OleDbCommand.ExecuteNonQuery()

   at Rent_Schedule.Form2.Button3_Click(Object sender, EventArgs e) in D:\my project\Complete Project\Rent Schedule\Rent Schedule\Form2.vb:line 77

   at System.Windows.Forms.Control.OnClick(EventArgs e)

   at System.Windows.Forms.Button.OnClick(EventArgs e)

   at System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent)

   at System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)

   at System.Windows.Forms.Control.WndProc(Message& m)

   at System.Windows.Forms.ButtonBase.WndProc(Message& m)

   at System.Windows.Forms.Button.WndProc(Message& m)

   at System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)

   at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)

   at System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)

   at System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg)

   at System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(IntPtr dwComponentID, Int32 reason, Int32 pvLoopData)

   at System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context)

   at System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)

   at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun()

   at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel()

   at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine)

   at Rent_Schedule.My.MyApplication.Main(String[] Args) in :line 81

الكود

كود :

Dim conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=False;")

        Dim sql As String =

            " update [Customer] set " &

            " ( Cus_Name=@Cus_Name, Cus_Address=@Cus_Address, Cus_Region=@Cus_Region, Cus_Telephone_Number=@Cus_Telephone_Number )" &

            " where " &

            "( Cus_ID=@Cus_ID )"

        Dim cmd As New OleDbCommand(sql, conn)

        cmd.Parameters.AddWithValue("@Cus_Name", TextBox1.Text)

        cmd.Parameters.AddWithValue("@Cus_Address", TextBox3.Text)

        cmd.Parameters.AddWithValue("@Cus_Region", TextBox4.Text)

        cmd.Parameters.AddWithValue("@Cus_Telephone_Number", TextBox5.Text)

        conn.Open()

        cmd.ExecuteNonQuery()

        conn.Close()

        MessageBox.Show("We have been successfully Update", "Congratulations", MessageBoxButtons.OK, MessageBoxIcon.Information)

        Form2_Load(e, e)

وجربت اضيف بدل :

كود :

Cus_ID

كود :

Cus_Private_Number

ومثل الشيء

**ola** · 09-09-17, 01:31 PM

لازم تضيف Parameters الخاص به مثل ما فعلت في كل Parameters الاخرى

**0theghost0**

مثل الخطأ

كود :

System.Data.OleDb.OleDbException occurred

  HResult=0x80040E14

  Message=Syntax error in UPDATE statement.

  Source=Microsoft Access Database Engine

  StackTrace:

   at System.Data.OleDb.OleDbCommand.ExecuteCommandTextErrorHandling(OleDbHResult hr)

   at System.Data.OleDb.OleDbCommand.ExecuteCommandTextForSingleResult(tagDBPARAMS dbParams, Object& executeResult)

   at System.Data.OleDb.OleDbCommand.ExecuteCommandText(Object& executeResult)

   at System.Data.OleDb.OleDbCommand.ExecuteCommand(CommandBehavior behavior, Object& executeResult)

   at System.Data.OleDb.OleDbCommand.ExecuteReaderInternal(CommandBehavior behavior, String method)

   at System.Data.OleDb.OleDbCommand.ExecuteNonQuery()

   at Rent_Schedule.Form2.Button3_Click(Object sender, EventArgs e) in D:\my project\Complete Project\Rent Schedule\Rent Schedule\Form2.vb:line 78

   at System.Windows.Forms.Control.OnClick(EventArgs e)

   at System.Windows.Forms.Button.OnClick(EventArgs e)

   at System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent)

   at System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)

   at System.Windows.Forms.Control.WndProc(Message& m)

   at System.Windows.Forms.ButtonBase.WndProc(Message& m)

   at System.Windows.Forms.Button.WndProc(Message& m)

   at System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)

   at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)

   at System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)

   at System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg)

   at System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(IntPtr dwComponentID, Int32 reason, Int32 pvLoopData)

   at System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context)

   at System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)

   at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun()

   at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel()

   at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine)

   at Rent_Schedule.My.MyApplication.Main(String[] Args) in :line 81

الكود

كود :

Dim conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=False;")

        Dim sql As String =

            " update [Customer] set " &

            " ( Cus_Name=@Cus_Name, Cus_Address=@Cus_Address, Cus_Region=@Cus_Region, Cus_Telephone_Number=@Cus_Telephone_Number )" &

            " where " &

            "( Cus_ID=@Cus_ID )"

        Dim cmd As New OleDbCommand(sql, conn)

        cmd.Parameters.AddWithValue("@Cus_ID", Label7.Text)

        cmd.Parameters.AddWithValue("@Cus_Name", TextBox1.Text)

        cmd.Parameters.AddWithValue("@Cus_Address", TextBox3.Text)

        cmd.Parameters.AddWithValue("@Cus_Region", TextBox4.Text)

        cmd.Parameters.AddWithValue("@Cus_Telephone_Number", TextBox5.Text)

        conn.Open()

        cmd.ExecuteNonQuery()

        conn.Close()

        MessageBox.Show("We have been successfully Update", "Congratulations", MessageBoxButtons.OK, MessageBoxIcon.Information)

        Form2_Load(e, e)

الخطأ في الكود لكن اين لا أعلم اخي الفاضل

**0theghost0** · 09-09-17, 02:11 PM

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

**ola**

رتب اسطر Parameters مثل ترتيبها في sql
الاول فالاول

**0theghost0** · 09-09-17, 02:34 PM

على العموم اشكر الشخص الى ساعدني والى حاول يساعدني

واشكر الاخ الغالي الى قام بإرسال لي الكود الصحيح على ايميلي الخاص

وهذا ماقام بإرساله لي :

والنتيجة سليمة والحمدالله

كود :

Try

            Dim n As String = ComboBox1.Text

            Dim Savecommand As New OleDb.OleDbCommand

            'الاتصال بمزود البيانات

            Dim Connectionstring As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=False;"

            Dim newconnection As New OleDbConnection(Connectionstring)

            Savecommand.Connection = newconnection

            Savecommand.CommandType = CommandType.Text

            'التعديل هنا ويكون ما تكتبه فى التكست بوكس 

            Savecommand.CommandText = "UPDATE Customer SET  Cus_Name = '" & Trim(TextBox1.Text) & "' , Cus_Address = '" & Trim(TextBox3.Text) _

            & "' , Cus_Region = '" & Trim(TextBox4.Text) & "' , Cus_Telephone_Number = '" & Trim(TextBox5.Text) & "' WHERE Cus_Private_Number  like '" & n & "'"

            'فتح الاتصال وعمل التعديل الذى قمت به وبعد ذلك اغلاق الاتصال وتظهر رساله للمستخدم بنجاح التعديل الذى قام به

            newconnection.Open()

            Savecommand.ExecuteNonQuery()

            newconnection.Close()

            MsgBox("تم التعديل", 64, "نجاح")

            '   Me.Close()

            'اظهار الفورم الرئيسى بعد نجاح التعديل واغلاق فورم التعديل

            ' main.Show()

            'اصطياد الاخطاء

        Catch ex As Exception

            'عرض الخطا فى رساله

            MsgBox(ex.Message, 16, "خطأ")

        End Try

        Form2_Load(e, e)

قمت بوضعه لكم ليستفيد كل من يريده

**0theghost0** · 09-09-17, 03:54 PM

اوك اذا ستسبب اخطاء او اشخاء اخرى فهل تستطيع التعديل او اعطائي كود شغال بدون مشاكل ؟؟

**ola**

انت كنت ماشي صح باستخدام Parameters لكن عندك خطأ في ترتيب اسطرها

دخول
إسم المستخدم
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة

المواضيع المحتمل أن تكون متشابهة .
الموضوع :		الكاتب	الردود :	المشاهدات :	آخر رد
	مشكلة تقويم ام القرى مع ويندوز 11	assuhimi	1	102	15-12-25, 07:13 PM آخر رد: assuhimi
	حل مشكلة قائمتين ليستا متساويتين بالحجم	justforit	4	283	31-10-25, 02:33 PM آخر رد: justforit
	مشكلة في عرض الفورم بالحجم المحدد	مصمم هاوي	1	254	29-09-25, 03:17 AM آخر رد: مصمم هاوي
	[VB.NET] مشكلة في عرضForm2.vb	MOHAMMED ALZWI	1	376	24-09-25, 06:16 PM آخر رد: Amir_Alzubidy
	مشكلة دعم skin للغة العربية	مصمم هاوي	2	727	16-09-25, 07:57 AM آخر رد: مصمم هاوي
	مشكلة في عدم الحفظ والتعديل	مصمم هاوي	3	892	17-08-25, 10:13 AM آخر رد: أبو خالد الشكري
	مشكلة في حفظ البيانات	مصمم هاوي	2	1,028	30-06-25, 08:51 AM آخر رد: مصمم هاوي
	مشكلة في جلب الصورة في التقرير	مصمم هاوي	12	1,246	06-06-25, 03:00 PM آخر رد: atefkhalf2004
	[VB.NET] مشكلة تظهر عند استخدام الملف manifest	mmaalmesry	2	628	12-05-25, 12:15 AM آخر رد: mmaalmesry
	[VB.NET] مثال و مشكلة (تشفير نص)	mmaalmesry	5	905	09-05-25, 08:05 AM آخر رد: mmaalmesry