تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ال Adodc أو ال atagrid لا يعدل الحقول
#1
لدى قاعدة بيانات بها جدول EMPLOYEE  به حقل salary
ولدى Adodc1 متصل بهذا الجدول و DataGrid1 متصلة بال Adodc1
وكتبت هذا الكود فى command


PHP كود :
XXX Val(Text1.Text)
If 
RS.State 1 Then RS.Close
RS
.Open "Select * From EMPLOYEE "dbadOpenStaticadLockOptimistic
RS
.MoveLast
 RS
.Fields("salary") = XXX
 RS
.UpdateBatch adAffectAllChapters
Adodc1
.Refresh 

فكان يعدل لى آخر سجل كما أردت دون أن يظهر هذا التعديل فى ال DataGrid
لا يظهر فيها الا اذا ضغطت على الcommand مرة أخرى
يعدله كما أردت بمعنى أننى اذا فتحت قاعدة بيانات وفتحت الجدول وجدته معدلآ
أرجو تصحيح الكود بحيث يتم التعديل فى ال DataGrid من ضغطة واحدة على الcommand
ولكم ألف شكر
الرد }}}}
تم الشكر بواسطة:
#2
أهلا أخي الكريم , جرب أنك بعد الكود السابق تضع هذه الجملة DataGrid1.ReBind وإن لم تنفع جرب إنك تربد الداتا قريد بأداة الأدو بالكود وليس من الخصائص .
الرد }}}}
تم الشكر بواسطة: Amir_alzubidy , Amir_alzubidy
#3
إقتباس :جرب أنك بعد الكود السابق تضع هذه الجملة DataGrid1.ReBind
لم تنفع اضافة هذه الجملة
إقتباس :وإن لم تنفع جرب إنك تربد الداتا قريد بأداة الأدو بالكود وليس من الخصائص .
وكيف يتم ربطها بالكود ؟
كنت أظن ربطها بالجملة  DataGrid1.DataSource = Adodc1
ولكن البرنامج اعترض على تلك الجملة حين وضعتها فى كود ال  Form_Load
واعترض عليها حين وضعتها فى كود ال  Form_Activate
واعترض عليها حين وضعتها فى كود الزر (كود ال command)
فكيف يكون ذلك الربط ؟
ولكم ألف شكر
الرد }}}}
تم الشكر بواسطة:
#4
أهلا أخي الكريم , هذا تعديل الكود ولكن قبل إستخدامه قم بإزالة أي قيمة موجوده في خاصية الـ DataSource التابعة للـ DataGrid1 من الخصائص إجعلها فارغة لأنك ستربطها بالكود فقط , وإستخدم هذه الطريقة عند الإستعلام أو الإضافة أو التعديل أو الحذف لكي يتم تحديث محتوى الداتا قريد :

PHP كود :
XXX Val(Text1.Text)
If 
RS.State 1 Then RS.Close
RS
.Open "Select * From EMPLOYEE"dbadOpenStaticadLockOptimistic
RS
.MoveLast
RS
.Fields("salary") = XXX
RS
.UpdateBatch adAffectAllChapters

Adodc1
.CommandType adCmdText
Adodc1
.RecordSource "Select * From EMPLOYEE"
Adodc1.Refresh

If Adodc1.Recordset.RecordCount 0 Then
   Set DataGrid1
.DataSource Adodc1
Else
   
Set DataGrid1.DataSource Nothing
End 
If 
الرد }}}}


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  السلام عليكم ممكن طلب طريقة ربط اكسس به صورة مع الفجوال عن طريق adodc rafed 4 1,091 29-01-15, 08:25 PM
آخر رد: yazan90
  [سؤال] طباعة سجل واحد في فجول بيسك بأستخدام اداة adodc adnan 1 1,015 05-07-14, 04:50 PM
آخر رد: WAEL ABED
  تشغيل ال ConnectionString ADODC على أى فولدر اسلام الكبابى 2 708 03-07-14, 08:20 PM
آخر رد: اسلام الكبابى
  مساعده في كود نقل السجلات من جدول الى اخر Adodc allayl 2 1,018 24-08-13, 05:06 PM
آخر رد: allayl
  تصحيح كود للبحث عن طريق اداة adodc مبرمج بلا حدود 4 845 22-04-13, 06:36 PM
آخر رد: مبرمج بلا حدود
  مشكلة في تحميل الأداة adodc عبدالله الصافي 10 1,380 30-11-12, 09:53 PM
آخر رد: عبدالله الصافي
  الحفظ باستخدام Adodc ENG.MPROG 4 771 08-11-12, 03:27 PM
آخر رد: TaHeR

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


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