ياريت حد يقولى معنى رسالة الإعتراض ديه إيه ؟

هل قمت بتحديد جملة سكل UPDATE للكائن ADEmp داخل الخاصية UpdateCommand؟

تحياتي...

ده أمر التعديل

 Private Sub NewLabel3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewLabel3.Click

If Trim$(NewTextBox1.Text) = "" Then
NMsgBox("لا يوجد بيانات مشار إليها لكى يتم تعديلها", 30)
Exit Sub
End If

Rec = Emp.Rows(R)

Try
Rec.BeginEdit()

Rec("Empl") = Label1.Text
Rec("Ecode") = NewTextBox1.Text
Rec("Ename") = NewTextBox2.Text
Rec("Mob") = NewTextBox3.Text
Rec("Tel") = NewTextBox4.Text
Rec("Address") = NewTextBox5.Text
Rec("Email") = NewTextBox6.Text
Rec("Nationality") = NewTextBox7.Text
Rec("IDN") = NewTextBox8.Text
Rec("Age") = NewTextBox9.Text
Rec("Salary") = NewTextBox10.Text
Rec("Certified") = ComboBox1.Text
Rec("Gender") = ComboBox2.Text
Rec("IDT") = ComboBox3.Text
Rec("BDate") = DateTimePicker1.Value
Rec("GradDate") = DateTimePicker2.Value

Rec.EndEdit()

NMsgBox("تم تعديل بيانات العامل ولم يتم التحديث بعد", 30)
Catch ex As NullReferenceException
NMsgBox("لا يوجد بيانات مشار إليها لكى يتم تعديلها", 30)
End Try

End Sub

طيب هى الرسالة معناها إيه أصلا يا أستاذ محمد

أنا مش عارف الرسالة ديه بتطلع ليه ؟

بسبب ايه ؟ :blush:

هذا يا أخي حسام, أمر التعديل على الجدول على الداتاست, لكن تلزمك جملة سكل UPDATE التي يستعملها DataAdapter لتعديل التسجيلات من على الداتاست إلى قاعدة البيانات عند المناداة على الدالة ADEmp.Update(DBS, "Emp").

أظنك هيئت الكائن ADEmp فقط بجملة استعلام SELECT, إذا كان تخميني صحيحا فيلزمك تهيئته كذلك بجملة تعديل UPDATE على الخاصية UpdateCommand.

تحياتي...

طيب إشمعنا الكود مش بيطلع إعتراض فى قاعدة بيانات أكسيس؟

لأ معملتش جملة Update

هجرب أعملها لو معرفتش هقولك تكتبلى الكود

ألف شكر يا أستاذنا

شكرا يا أخى

بصراحة يا أستاذ محمد أنا فشلت فى عمل جملة الupdate

ياريت تكتب الكود اللى مفروض أضيفة

مش عارف الكود بتاعها إيه ؟

هل المشروع يعمل جيدا على قاعدة بيانات Access و لا يعمل على قاعدة بيانات أخرى؟

المشروع, هل الداتاست مهيئة يديويا أم عن طريق فيجوال ستوديو؟

تحياتي...

لأ يدويا

ياريت تدينى جملة سكل بتاعت الupdate و Select

البرنامج شغال كويس جدا مع أكسيس

لكن لما حولته على إس كيو إل بدأ يطلعلى المشكلة ديه

هل قمت باستبدال الكائنات التي تستعمل يعني :

OleDbDataAdapter مع الأكسس إلى SqlDataAdapter مع سكل سيرفر

تحياتي...

اه اه كله مظبوط

وبدلت كل حاجة

لو أنا عملت حفظ يعنى أضافت صف جديد ودعملت Update بينفذ بدون مشاكل

وبيحفظ التغيرات لكن لو عملت تعديل فى البيانات أو حذف صف مش بيرضى يعمل حفظ للتغيرات اللى طرأت على الdataset

مش عارف إشمعنا

ممكن تحمل المشروع على المنتدى؟

أصله برنامج كبير عايز أخلى موضوع الرفع أخر حاجة

لو موصلناش لحل خالص

ياريت يا أخ محمد تقولى اللى أنا عملته صح ولا غلط

هو دلوقتى فى زرارين

واحد إسمه تعديل والتانى إسمه تحديث

زرار تعديل ده الكود اللى تحته

أنا غيرته وحطيت ده لما إنت قولتلى إعمل جملة الUpdate

 Dim f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16 As String

f1 = "'" & NewTextBox1.Text & "'"
f2 = "'" & NewTextBox2.Text & "'"
f3 = "'" & NewTextBox3.Text & "'"
f4 = "'" & NewTextBox4.Text & "'"
f5 = "'" & NewTextBox5.Text & "'"
f6 = "'" & NewTextBox6.Text & "'"
f7 = "'" & NewTextBox7.Text & "'"
f8 = "'" & NewTextBox8.Text & "'"
f9 = "'" & NewTextBox9.Text & "'"
f10 = "'" & NewTextBox10.Text & "'"
f11 = "'" & Label1.Text & "'"
f12 = "'" & ComboBox1.Text & "'"
f13 = "'" & ComboBox2.Text & "'"
f14 = "'" & ComboBox3.Text & "'"
f15 = "'" & DateTimePicker1.Value & "'"
f16 = "'" & DateTimePicker2.Value & "'"

CmdEmp.CommandText = "update Emp set EName= " & f2 & ", Mob= " & f3 & ",Tel= " & f4 & ",Address= " & f5 & ",Email= " & f6 & ",Nationality= " & f7 & ",IDN= " & f8 & ",Age= " & f9 & ",Salary= " & f10 & ",Empl= " & f11 & ",Certified= " & f12 & ",Gender= " & f13 & ",IDT= " & f14 & ",BDate= " & f15 & ",GradDate= " & f16 & " where ECode= " & f1

ADEmp.UpdateCommand = CmdEmp

NMsgBox("تم تعديل بيانات العامل ولم يتم التحديث بعد", 30)

وزرار التحديث الذى يقوم بتحديث البيانات ده الكود اللى فيه

 If DBS.HasChanges = True Then
CMDB.DataAdapter = ADEmp
ADEmp.Update(DBS, "Emp")
End If

بس للأسف الداتا سيت لا تشعر بأى تغيرات

لا يحدث أى تغيرات للبيانات

ومبيطلعش أى إعتراض

ياريت تصلحلى فى جملة الأبديت كده

لو ماعرفتش هحاول أرفعة فى المنتدى وخلاص

أنا بجد تعبتك معايا مش عارف أقولك إيه والله بجد

أنا أسف يا أستاذ محمد على تعبك ده بجد وشكرا جزيلا ليك

أنا عملت برنامج مصغر منه

وأرفقته ورفعته

تمام أدخل على شاشة العاملين

ودوس جديد وأضف سجل

ورعدين أخرج روح على الصفحة الرئيسية ودوس تحديث

هينفذ ومش هيقول أى إعتراض

وبعدين إفتح الصفحة ودوس على زرار الأول أو التالى أى منهم المهم أقف على أى عامل وغير أى بيان وليكن النوع خليه أنثى بدل ذكر ودوس تعديل هيقول تم التعديل ولكن لم يتم التحديث بعد

أخرج ودوس تحديث بقى

هتلاقى الرسالة اللى معقدانى ظهرت

يارب تعرف تحل الموضوع ده يا أستاذ محمد رضى

جزاك الله خيرا على تعبك معايا

مش عارف أقزلك إيه

ربنا يسكنك الجنة إن شاء اللهClinicOffLine.rar

اقتباس

بس للأسف الداتا سيت لا تشعر بأى تغيرات

لا يحدث أى تغيرات للبيانات

ومبيطلعش أى إعتراض

هذا لأنه ليس هناك أي مربع مرتبط مع الداتاست. أنصحك بتنفيذ جملة UPDATE مباشرة إلى قاعدة البيانات عن طريق ExecuteNonQuery. إذا لم ينجح هذا الحل نتوجه نحو البرنامج المرفق.

الطرقة ديه شغالة معايا بتاعة جملة update مع ExecuteNonQuery

بس للأسف انا عايز أعملها بالطريقة المنفصلة عن طريق الداتا سيت

معلش يا أستاذ محمد

نزل الملف المرفق

فيه قاعدة البيانات وحاول تضيف عامل جديد وإعمل تحديث وبعدين حاول تعمل تعديل على أى عامل ودوس تحديث عتلاقى الرسالة طلعت

وصلت للحل

الحمد لله

ألف حمد وألف شكر ليك يارب

بجد أنا أسف يا أستاذ محمد رضى

لأنى تعبتك معايا جدا بطريقة كبيرة أوى

بجد أنا أسف

المشكلة طلعت سببها إنى مش عامل مفتاح أساسى للجدول

فعملت مفتاح أساسى إشتغل بدون أى مشاكل

بشكرك مرة تانية يا محمد

---------------------

اللهم وحد العرب والمسلمين على قلب وكلمة ويد رجل واحد وأضرب بهم الظالمين وأنشر بهم العدل

اللهم أعز الإسلام والمسلمين

بالتوفيق أخي حسام في إكمال المشروع و تسويقه :)

أعجبتني واجهة المستخدم بالرغم من أنني رأيتها فقط في الوضع Design

بالتوفيق و إلى الأمام...

ربنا يخليك يا أستاذ محمد ده بس من زوقك

بس للأسف ده مش للتسويق

ده تطبيق للكورس

إمتى أعمل مشروع علشان أسوقة وإمتى أخلص الكورس بس يسمع من بوقك ربنا

ربنا يوفقنا جميعا إن شاء الله