منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته

كتبت كود لتعديل بيانات سجل باستخدام البارامترات

[HTML]Dim cmd As New OleDbCommand("update Zatea set Customer=@txt_Customer,Area=@Area_Combobox, Bayan=@lbox_bayan, Phone1=@txt_Phone1, Phone2=@txt_Phone2, Mobile=@txt_mobile, Fax=@txt_Fax, Email=@txt_Email,Notes=@txt_Note where zatea_id=txt_Zatea_id.text", Conn)


cmd.Parameters.AddWithValue("@Customer", OleDbType.VarChar).Value = txt_Customer.Text

cmd.Parameters.AddWithValue("@Area", OleDbType.VarChar).Value = Area_Combobox.Text
cmd.Parameters.AddWithValue("@bayan", OleDbType.VarChar).Value = lbox_Bayan.SelectedItem

'cm.Parameters.AddWithValue("@age", OleDbType.Integer).Value = Val(age.Text)
'cm.Parameters.AddWithValue("@dob", OleDbType.Date).Value = dob.Text

cmd.Parameters.AddWithValue("@Phone1", OleDbType.VarChar).Value = txt_Phone2.Text
cmd.Parameters.AddWithValue("@Phone2", OleDbType.VarChar).Value = txt_Phone1.Text
cmd.Parameters.AddWithValue("@Mobile", OleDbType.VarChar).Value = txt_Mobile.Text
cmd.Parameters.AddWithValue("@Fax", OleDbType.VarChar).Value = txt_fax.Text

cmd.Parameters.AddWithValue("@Email", OleDbType.VarChar).Value = txt_Email.Text
cmd.Parameters.AddWithValue("@Notes", OleDbType.VarChar).Value = txt_Note.Text


DataConnection()

Try
cmd.ExecuteNonQuery()
MsgBox("تم التعديل بنجاح", MsgBoxStyle.Information, "")
Catch ex As Exception
MsgBox(Err.Description, MsgBoxStyle.Critical, "")

End Try[/HTML]

ما نوع البيانات التي نسختها انا من موضوعك؟ ان كان رقم فضع بدل كلمة varchar ضع نوع int او integer

السلام عليكم

شكرا اخي سعود على اجابتك

نوع البيانات هي من النوع string

ورسالة الخطأ
No value given for one or more required Parameters

وفيما يلي المثال

ارجو تعديل الكود المرفق بالمثال، والاشارة الى مكمن الخطأ الذي وقعت فيه، حتى اتعلم

والف شكر
وكل عام وانتم بخير

الخطا اللي واجهني بالمثال هو

إقتباس :Update requires a valid InsertCommand when passed DataRow collection with new rows.

ويعني لابد من اضافة كائن امر ادخال

والحل هكذا
بعد تعريف da التعريف الاول

اسفلها نكتب


والتعيين لـ da

نكتب بعده التالي:

اوووووووووووه معلش سانظر بكود التعديل

انظر المثال بعد التعديل

لما لا تستخدم الكود هكذا

الف الف شكر اخي
سعود
وجزاك الله الف خير، وضاعف اجرك في هذه الايام الفضيلة
تتبعت الحل الذي تفضلت به، وعرفت اين خطئي

بارك الله فيك
والسلام عليكم

شكرا اخي
ahmed_Online
ساجرب الطريقة التي تفضلت بها

والف شكر على محاولتك اجابتي
والسلام عليكم