مشكلة في زر التعديل

السلام عليكم

أدرج كود التعديل

حتى نجد الخطأ

وأذا كان يوجد رسالة خطأ أذكرها

بما أن ذكرت أن ثلاث الحقول الأولى تتعدل

أذا المشكله في الكود أو أسم الحقل

وأستخدم البراميتر في التعديل و الأضافه أن لم تكن مستخدمنها

بتوفيق

اقتباس

SavInto.CommandText = "UPDATE Castomer SET Name= '" & Trim(TextBox1.Text) & "' , Phon= '" & Trim(TextBox2.Text) & "' , Mobile='" & Trim(TextBox3.Text) & "' WHERE Name ='" & n & "'"

انت تعدل فقط ثلاثة textbox هذا الكود من Form10

مشكورين اخواني الي تفاعلو معاي في الموضع انا اول مره استخدم واشتغل على ado.net ويش قصدك اني استخدم الباروميتر وانا ما تطلع الي رسالة خطأ وهذي هي الشفرة :

Imports System.Data

Imports System.Data.OleDb

Public Class Form3

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

Button1.Click

Dim n As String = Label4.Text

Dim SavInto As New OleDb.OleDbCommand

Dim ConStr As String = _

"Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & _

Application.StartupPath & "\mydata.mdb"

Dim Conn As New OleDbConnection(ConStr)

SavInto.Connection = Conn

SavInto.CommandType = CommandType.Text

SavInto.CommandText = "UPDATE Castomer SET Name= '" & Trim(TextBox1.Text) & "' , Phon= '" & Trim(TextBox2.Text) & "' , Mobile='" & Trim(TextBox3.Text) & "' WHERE Name ='" & n & "'"

Conn.Open()

SavInto.ExecuteNonQuery()

Conn.Close()

MsgBox("تمت عملية التعديل بنجاح")

Me.Close()

from8.Show()

End Sub

ولما اكتب بقية التكست بكس في الشفرة هذي SavInto.CommandText = "UPDATE Castomer SET Name= '" & Trim(TextBox1.Text) & "' , Phon= '" & Trim(TextBox2.Text) & "' , Mobile='" & Trim(TextBox3.Text) & "' WHERE Name ='" & n & "'"

البرنامج يوقف عن العمل ويظهر خطا عند الجملة

SavInto.ExecuteNonQuery

وان شاء تقدرون تساعدوني ولكم جزيل شكري

أستخدم هذه الطريقه

عدلت في الكود على عجل

جربه

		SavInto.Connection = conn
		SavInto.CommandType = CommandType.Text
		SavInto.CommandText = "UPDATE Castomer SET Name= @name  , Phon= @phone , Mobile= @mobile WHERE Name =@name"
		SavInto.Parameters.Clear()
		SavInto.Parameters.AddWithValue("@name", Trim(TextBox1.Text))
		SavInto.Parameters.AddWithValue("@phone", TextBox1.Text)
		SavInto.Parameters.AddWithValue("@mobile", TextBox.Text))
		SavInto.Parameters.AddWithValue("@name", n)



		conn.Open()
		SavInto.ExecuteNonQuery()
		conn.Close()

لاحظت أن n هي name , و تقوم بتعديل name

في الداتا بيس لازم يكون حقل primary key أو unique

كا id أو حتى name

فمثلا

أكثر من زبون أسمه أحمد

فالبرنامج يقوم بتعديل جميع الزبائن الذين أسماهم أحمد

بتوفيق