هل هناك طريقة تبين هل البيانات المرسلة للجدول قد

[tarekafifi 2]

السلام عليكم

أريد ان أعرف هل هناك طريقة ما

من خلال الكود أعرف بها هل تم وصول البيانات بنجاح أم لا

حيث أنني أستخدم جملة sql داخل الكود سواء update او غيرها من الجمل

الغريب انه عندما لا تصل المعلومات داخل الجدول لا يعطني أي إشارة انها وصلت وتم وضها بالجدول ام لا ؟؟؟؟

أتمني ان يكون هناك كود إضافي يعطني معلومة ان البيانات وصلت ام لا

مع تحياتي

[Janna 0]

ألا يكفي يا أخي أن تضع ال setwarnings إلى yes وعندها سيقول لك نتيجة كلّ خطوة..

[Night Coder 189]

قم بانشاء trigger يتم تنفيذه عند وصول البيانات و بالتالى تتاكد من ان البيانات قد تم وصولها

[walcom 30]

إذا كنت تتعامل بال VB.Net، الدالة

executeNonQuery()

التابعة للصنفSqlDataReader ترجع قيمة بوليانية تفيد بإذا ما تم الحفظ أو التعديل أو الحذف ، وتكون true إذا تم و false إذا لم يتم ، يمكن مثلا إسناد هذه القيمة لمتغير و التحقق منه.

[tarekafifi 2]

السلام عليكم

متشكر جدا لحسن تعاونكم

اولا انا بشتغل بالأكسس (مشاريع الأكسس )

وكنت عاوز أعمل الموضوع ده في كود vb

انا مش قادر استوعب بالضبط الكلام الي حضراتكم قلتوه لأني مبتدأ SQL

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

مع تحياتي لكم

[Night Coder 189]

انا بشتغل بالأكسس (مشاريع الأكسس )

إذاً انت وضعت موضوعك فى المكان الغير مناسب و ربما من الافضل ان نضعه فى منتدى الفيجوال بيسك او منتدى الاكسس

[Night Coder 189]

اتمنى ان اساعدك قليلا ًهنا للاسف فانا توقفت عن استخدام فيجوال بيسك 6 و لكن ساحاول ان اتذكر ولو احببت انقل لك موضوعك لقسم الفيجوال بيسك

من خلال الكود أعرف بها هل تم وصول البيانات بنجاح أم لا

حيث أنني أستخدم جملة sql داخل الكود سواء update او غيرها من الجمل

طبعاً ستقوم باستخدام ال ADO من داخل الفيجوال بيسك هناك العديد من الاحداث التى يمكنك استخدامها مع كائن ال recordset مثل حدث:

RecordChangeComplete : وهو ينطلق عندما يحدث تغيير على مستوى الحقل سواء بتغير خاصية ال filter او باستخدام ال requery او اى طريقه من طرق ال navigation

و هو يستخدم هذه الصيغه

RecordChangeComplete adReason, cRecords, pError, adStatus, pRecordset

adReason : ياخذ احدى قيم ال EventReasonEnum (ممكن ان تراها بال MSDN )

pError : معامل يشير إلى كائن error عند حدوث خطأ

pRecordset : مؤشر لل recordset الذى تسبب بالحدث

adStatus : فهى معامل يقبل قيمه من EventStatusEnum كالاتى :

adRsnFirstChange او adRsnAddNew او adRsnDelete او adRsnUpdate او adRsnUndoUpdate او adRsnUndoDelete او adRsnUndoAddNew

هذا و الله اعلم

تم تعديل 1 Sep 2004 بواسطه طارق إبراهيم

[server_programmer 1]

معليش أستاذ طارق

كلامك سليم

لكن

أحب أضيف مداخلة و هي أنة

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

ويستفيد من قوة النماذج و التقارير في الأكسيس (معالجة البيانات )

الجبارة كواجهة للمستخدم

طبعا ( مافي أي برنامج يتفوق على الأكسيس حتى اللحظة في أمور المعالجة للبيانات لا ال Visual Basic و لا ال .Net )

[akramabusamra 0]

اخى

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

اعتقد انها طريقه بداءيه ولكنها سهله .

[email protected]

[walcom 30]

طبعاً ستقوم باستخدام ال ADO من داخل الفيجوال بيسك هناك العديد من الاحداث التى يمكنك استخدامها مع كائن ال recordset

طريقة أخرى:

الدالة execute ضمن الكائن ADODB.Connection أحد وسائطها RecordsAffected وهو وسيط اختياري تخصص كقيمة له متغير من نوع long يرجع فيه عدد الحقول التي أثرت فيها عملية التحديث. وباختبار قيمة هذا المتغير نستطيع معرفة ما إذا قد وصلت البيانات المرسلة لقاعدة البيانات أم لا.

مثال

dim RecsAffected as long
dim sql as string
SQL = "insert into tblContacts values('" & Me.txtName.Text & "', '"
SQL = SQL & Me.txtAddress.Text & "', '" & Me.txtPhone.Text & "', '"
SQL = SQL & Me.txtEmail.Text & "')"

cn.Execute SQL, RecsAffected 

If RecsAffected > 0 Then
   msgbox "تم الحفظ"
End If