tarekafifi

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

10 ردود في هذا الموضوع

السلام عليكم

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

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

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

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

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

مع تحياتي

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

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

executeNonQuery()

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

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

السلام عليكم

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

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

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

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

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

مع تحياتي لكم

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
انا بشتغل بالأكسس (مشاريع الأكسس )

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

اتمنى ان اساعدك قليلا ًهنا للاسف فانا توقفت عن استخدام فيجوال بيسك 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

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

تم تعديل بواسطه طارق إبراهيم
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

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

كلامك سليم

لكن

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

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

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

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

اخى

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

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

[email protected]

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

طبعاً ستقوم باستخدام ال 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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
زوار
This topic is now closed to further replies.

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .