تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلب كود حذف البيانات من قاعدة البيانات
#1
السلام عليكم الاخوه مشرفي واعضاء منتدانا الغالي رمضان كريم وصيام مقبول واجر ثابت
لدي مشروع فيجوال بيسك 6 مرتبط بقاعدة بيانات عن طريق ADODC والقاعدة تحوي جدول واحد أسمه Tab1فيه عده سجلات منها StName و Class ارغب في حذف محتويات الحقل Class فقط وان ابقي على الاسماء في حقل StName كيف يمكن ذلك مع الشكر الجزيل
استخدمت الكود التالي الا انه يقوم بحذف جميع البيانات والكود هو :
Adodc1.RecordSource = " delete Class from tab1 "
Adodc1.Refresh
الرد }}}
تم الشكر بواسطة:
#2
ان لم تنجح العملية يرجى ارفاق المثال
كود :
Private Sub Command1_Click()
Dim I As Integer

If Adodc1.Recordset.State = adStateOpen Then Adodc1.Recordset.Close
Adodc1.RecordSource = "SELECT * FROM Tab1 " & "

I = 0
If Adodc1.Recordset.RecordCount > 0 Then

  Adodc1.Recordset.MoveFirst
  DoEvents
 
  Do Until Adodc1.Recordset.EOF
     
     I = I + 1
     DoEvents
Adodc1.Recordset.Fields("Class") = ""
Adodc1.Recordset.Update
DoEvents
Adodc1.Recordset.MoveNext
DoEvents

Loop
MsgBox "Done..."
Adodc1.CommandType = adCmdText
Adodc1.Refresh
Else
MsgBox "NoRecords!"
End If
End Sub
الرد }}}
#3
السلام عليكم استاذ Amir_alzubidy  اسف على الازعاج ولكن جربت الكود ولم يعمل وقد ارفقت ملف المشروع كما تفضلت
ولو اردت ان احذف محتويات اكثر من حقل من حقول الجدول كان احذف محتويات الحقل Class و الحقل A1 و A2 كيف يمكنني ذلك مع الشكر اسال  الله ان يوفقك ويحفظك من كل سوء بحق شهره الفضيل


الملفات المرفقة
.rar   App1.rar (الحجم : 1.43 م ب / التحميلات : 50)
الرد }}}
تم الشكر بواسطة:
#4
اهلا و سهلا
تم التعديل

.rar   App2.rar (الحجم : 1.35 م ب / التحميلات : 133)
الرد }}}
#5
لو سمحتم عايز اعرف ازاى وانا بسجل فى قاعده البيانات و عملت add أزى لو البرنامج خرج قبل ما احفظ يمسح اخر سجل السجل
هى اجرائيه فى ان لود فورم بس انا مش عارفها
الرد }}}
تم الشكر بواسطة:
#6
لو سمحت يا جماعه عايز اعرف ازاى لو عملت data1.recoudset.addnew
ومعملتش حفظ ازاى اخليه يعمل كنسل ,,,.. لأنه بيحفظه عند الخروج
الرد }}}
تم الشكر بواسطة:
#7
هذا اكبر دليل على الخطأ الفادح الذي يعيب على شركة مايكروسوف
الربط بالادوات
طريقة معقدة . مقيدة . مجهدة للنفس للاسف
انا احزن لما اشوف حد لليوم يتبع طريقة الربط بالادوات
...
فرضا لو تركنا كود يحذف لك السجل الاخير في الحدث الذي ذكرته في المشاركة السابقة . الان كيف راح اعرف بهذه الحالة هل تم حذفه بسبب انقطاع التيار الكهربائي ام هل تم الغاء السجل فعلا من خلال الخروج من البرنامج
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري , Ahmed_Mansoor , rnmr , rnmr
#8
طيب اعمل ايه امير بارك الله فيك
بس انا كنت قابلت كود مثل هاذا وكان فى unload_form1 بس مش فاكره خالص
ومش عارف اوصله تانى كان ليه علاقه بالموضوع دا data1.شئ لاست موف ..... مش فاكر صراحه
اعمل ايه
الرد }}}
تم الشكر بواسطة:
#9
السلام عليكم
هذا مثال تطبيقي كما يجب ان يكون لفرضية الخروج وعدم حفظ السجل الاخير
هناك ملاحظة بالمرفق اقرأها جيداً قبل التنفيذ



.rar   Example.rar (الحجم : 16.82 ك ب / التحميلات : 57)
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري , Ahmed_Mansoor , rnmr , rnmr
#10
بلا زحمه اذا ردت امسح صورة من pictuerbox خلال عمليه الاضافه حتى اضيف صورة لخ شنو كود ممكن استخدمه لان صورة متنمسح تضل
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] اضافة الصور الى ملف واسترجاعها بدون قاعدة البيانات haitham Muhammed 3 419 24-01-24, 01:51 PM
آخر رد: haitham Muhammed
  عدم ضهور كل البيانات فراس محي 1 223 15-12-23, 06:05 AM
آخر رد: Taha Okla
Question [vb6.0] نامل المساعدة في المثال المرفق يوجد مشكلة في إضافة رقم الصنف الى قاعدة البيانات لا اع Microformt 1 241 23-10-23, 12:11 AM
آخر رد: Taha Okla
  نقل بيانات الجدول الى جدول اخر بعد تجميع البيانات haithamelareny 1 359 10-08-23, 11:54 PM
آخر رد: ahmedabdelaliem
Question [vb6.0] هل يوجد كود لضغط وإصلاح قاعدة البيانات ، أعني قاعدة بيانات Access؟ Microformt 1 455 27-07-23, 08:33 PM
آخر رد: Taha Okla
  [vb6.0] كود ربط قاعدة بيانات اكسيس 2010 بالفيجوال بيسك6 وادي العوضي 4 553 21-07-23, 12:11 AM
آخر رد: وادي العوضي
  [vb6.0] المساعدة في تشغيل استعلام الحاقي في تبويب الاستعلامات في قاعدة بيانات اكسيس من واجهة وادي العوضي 6 601 09-07-23, 12:44 AM
آخر رد: وادي العوضي
  [سؤال] كود تشغيل استعلامين معمولين في قاعدة بيانات اكسس من واجهة البرنامج من خلال زر امر وادي العوضي 16 1,450 04-07-23, 03:26 PM
آخر رد: وادي العوضي
  [Acces2003] ازاى اعمل قاعدة بيانات مشتركة ahmedhossam 5 5,258 27-02-23, 03:43 PM
آخر رد: tighrmte
  قاعدة بيانات مشفرة محمد عياش 0 354 13-12-22, 06:38 PM
آخر رد: محمد عياش

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم