تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تعديل بعض السجلات
#1
لدى قاعدة بيانات بها جدول EMPLOYEE  به حقل للعمر AGE وحقل للمرتب SALARY
ولدى Adodc1 متصل بهذا الجدول 
وأريد تعديل المرتب فى جميع السجلات التى فيها يزيد العمر عن 60 سنة الى 4000 جنيه

فهل من كود باستخدام الFIND  أو  الWHERE  أو غيرها يقوم بذلك ؟
بحيث لا يكون الكود عبارة عن لوب أمر به على جميع السجلات(500 سجل مثلآ)
و فى كل مرة أضع الشرط        If .Fields("AGE") > 60 Then .Fields("SALARY") =4000
ليعدل لى فى النهاية 4 أو 5 سجلات مثلآ

ولكم ألف شكر
الرد }}}}
تم الشكر بواسطة:
#2
PHP كود :
مرحبا اسلام
select update Table set 
(Filed=new_valuewhere age >60
بالجملة السابقة تعدل الكل بضغطة زر وحدة اي سجل العمر 
اكبر من 60 يتم تعديل الحقل المطلوب بالقيمة الجديدة
اذا اشكل عليك الامر فقط ضع جملة اتصالك بالجدول الخاصة فيك
والتعديل علينا ان شاء الله 
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}
تم الشكر بواسطة: Ahmed_Mansoor , Ahmed_Mansoor
#3
كتبت هذه الجملة فلم يقبلها الكود أصلآ (اعترض عليها بمجرد كتابتها) وأشار الى كلمة UPDATE
وطبعآ كتبت الجملة فى مثالى هكذا
PHP كود :
select update EMPLOYEE set (SALARY=4000where age 60 

وهذه جملة الاتصال بقاعدة البيانات 
PHP كود :
Adodc1.ConnectionString "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database password=; Data Source=" App.Path "\الموظفين.mdb" 


أما عن الاتصال بالجدول ففى خصائص ال ADODC1 كتبت اسم الجدول فى خاصية الRecordSource
الرد }}}}
تم الشكر بواسطة:
#4
ألا توجد أى طريقة لذلك ؟
الرد }}}}
تم الشكر بواسطة:
#5
هذا هو الكود الذى أعرفه

كود :
[align=left]With Adodc1.Recordset[/align]
[align=left].MoveFirst[/align]
[align=left]Do Until .EOF[/align]
[align=left]If .Fields("AGE") > 60 Then .Fields("SALARY") = 4000: .Update[/align]
[align=left]If Not .EOF Then .MoveNext[/align]
[align=left]Loop[/align]
[align=left]End With[/align]

فهل من كود أسهل من ذلك بحيث لا يمر على جميع السجلات(500 سجل مثلآ)
و فى كل مرة يقرأ الشرط If .Fields("AGE") > 60 Then .Fields("SALARY") =4000
ليعدل لى فى النهاية 4 أو 5 سجلات مثلآ
ولكم ألف شكر

هذا هو الكود الذى أعرفه

PHP كود :
With Adodc1.Recordset
   
.MoveFirst
   Do Until 
.EOF
       If 
.Fields("AGE") > 60 Then .Fields("SALARY") = 4000: .Update
   If Not 
.EOF Then .MoveNext
   Loop
End With 
  فهل من كود أسهل من ذلك بحيث لا  يمر على جميع السجلات(500 سجل مثلآ)
و فى كل مرة يقرأ الشرط        If .Fields("AGE") > 60 Then .Fields("SALARY") =4000
ليعدل لى فى النهاية 4 أو 5 سجلات مثلآ

ولكم ألف شكر
الرد }}}}
تم الشكر بواسطة:
#6
PHP كود :
Private Sub Command1_Click()
Adodc1.RecordSource "select * from EMPLOYEE   where age like '" Text1.Text "'"
 
Adodc1.Recordset.Fields("em").Value Text2.Text
 Adodc1
.Recordset.Update
Me
.Adodc1.Refresh
MsgBox 
"ok"
Form_Load
End Sub 
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}
تم الشكر بواسطة: Ahmed_Mansoor , Ahmed_Mansoor
#7
ولكنه بهذه الطريقة لن يعرض جميع السجلات فى الADODC
و انما سيعرض فقط السجلات ال 4 أو 5 المعدلة 

المطلوب عرض جميع السجلات مع تعديل المطابق للشرط(كما فى كودى تمامآ ولكن بطريقة سهلة بسيطة)

ولكم ألف شكر
الرد }}}}
تم الشكر بواسطة:
#8
أهلا أخي الكريم , إستخدم هذا الكود :

PHP كود :
Dim DB As New ADODB.Connection
DB
.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" App.Path "\db1.mdb;Persist Security Info=False"
DB.Execute "Update EMPLOYEE Set Salary=4000 Where Age>60"
Set DB Nothing
Adodc1
.RecordSource "Select * From EMPLOYEE"
Adodc1.Refresh 
الرد }}}}
تم الشكر بواسطة: أبو عمر , اسلام الكبابى
#9
ألف ألف مليووووووووووووون شكر

أنا مش عارف أقول ايه؟

أقول الكلمة بتاعت كل مرة،

وللا خلاص  كلكم عارفين  ايه اللى هيتقال
الرد }}}}
تم الشكر بواسطة: Ahmed_Mansoor


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تظليل أحد السجلات فى الDATAGRID اسلام الكبابى 9 321 19-08-16, 01:25 PM
آخر رد: اسلام الكبابى
  قيمة معينة فى حقل معين لجميع السجلات اسلام الكبابى 8 175 26-06-16, 12:46 AM
آخر رد: Amir_alzubidy
  مساعده في كود نقل السجلات من جدول الى اخر Adodc allayl 2 1,014 24-08-13, 05:06 PM
آخر رد: allayl
  طلب تعديل على كود السحب والالقاء AEDC 2 485 07-07-13, 04:10 AM
آخر رد: AEDC
  اضافة حذف تعديل باستخدام طريقة ado abulayth 2 779 21-06-13, 06:39 PM
آخر رد: abulayth
  تعديل علي هذا الكود Ahmed Abdulla 9 1,271 22-05-13, 10:00 AM
آخر رد: Ahmed Abdulla
  أريد مثالاً لبحت عن السجلات المكررة خلال فترة معينة AEDC 2 516 10-05-13, 03:41 PM
آخر رد: @@أبورائد@@
  كيف يتم برمجة استعرض السجلات من خلال برنامجي المرفق ؟؟ softmail8 4 417 30-04-13, 04:08 PM
آخر رد: softmail8
  أرغب في الحصول على كود يمنع حذف السجلات أو التعديل في قاعدة البيانات benomar 4 545 25-04-13, 06:03 PM
آخر رد: benomar
  تعديل علي كود البحث Ahmed Abdulla 9 961 15-04-13, 09:39 AM
آخر رد: Ahmed Abdulla

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


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