المشاركات : 23
المواضيع 10
الإنتساب : Feb 2014
السمعة :
0
الشكر: 0
تم شكره 1 مرات في 1 مشاركات
اساتذتي المبرمجيين السلام عليكم ورحمة الله وبركاته
رجاء عندي طلب لكم
اريد كود زر التعديل لبيانات مرتبطة بأكسس عن طريق مكتبة ado
رجاء اريد منكم كود لزر التعديل ولكم جزيل الشكر والتقدير
المشاركات : 181
المواضيع 5
الإنتساب : Sep 2013
السمعة :
0
الشكر: 5
تم شكره 46 مرات في 26 مشاركات
تفضل الكود :
PHP كود :
If RS.State = 1 Then RS.Close
sql = "select * from Tabelname where Fieldname =" & Text1.Text & ""
RS.Open sql, DB, adOpenKeyset, adLockOptimistic
RS![Field1] = Text1.Text
RS![Field2] = Text2.Text
RS![Field3] = Text3.Text
RS.Update
MsgBox " تمت عملية التعديل بنجاح", vbInformation
سبحان الله وبحمده سبحان الله العظيم
آللهم لگ آلحمد حتى ترضى .. ولگ آلحمد إذا رضيِت .. ولگ آلحمد بعد آلرضآ
المشاركات : 23
المواضيع 10
الإنتساب : Feb 2014
السمعة :
0
الشكر: 0
تم شكره 1 مرات في 1 مشاركات
اولا اشكرك استاذي
ثانيا اش المقصود ب db يعني على فهمي انني اعمل اسم القاعده محلها
المشاركات : 181
المواضيع 5
الإنتساب : Sep 2013
السمعة :
0
الشكر: 5
تم شكره 46 مرات في 26 مشاركات
هذا متغير للوصول لقاعدة البيانات
اما الـــ rs متغير للوصول للسجلات
ارفق الشروع للتعديل عليه لكى تفهم اكثر
سبحان الله وبحمده سبحان الله العظيم
آللهم لگ آلحمد حتى ترضى .. ولگ آلحمد إذا رضيِت .. ولگ آلحمد بعد آلرضآ
المشاركات : 181
المواضيع 5
الإنتساب : Sep 2013
السمعة :
0
الشكر: 5
تم شكره 46 مرات في 26 مشاركات
احذف كود التعديل وضع بدله هذا الكود :
PHP كود :
If rsin.State = 1 Then rsin.Close
SQL = "select * from STORES where STO_CODE =" & Text1.Text & ""
rsin.Open SQL, mydb1, adOpenKeyset, adLockOptimistic
rsin![STO_CODE] = Text1.Text
rsin![STO_NAME] = Text2.Text
rsin![STO_ADDRESE] = Text3.Text
rsin![STO_TEL] = Text4.Text
rsin![STO_FAX] = Text5.Text
rsin.Update
MsgBox " تمت عملية التعديل بنجاح", vbInformation
التعديل كان طفيف قارن الكود هذا بالكود اللعندك
بالتوفيق إن شاء الله
سبحان الله وبحمده سبحان الله العظيم
آللهم لگ آلحمد حتى ترضى .. ولگ آلحمد إذا رضيِت .. ولگ آلحمد بعد آلرضآ
المشاركات : 23
المواضيع 10
الإنتساب : Feb 2014
السمعة :
0
الشكر: 0
تم شكره 1 مرات في 1 مشاركات
مشكور والله ما قصرت
تصدق لي ثلاث ايام ابحث عن حل
سبحان الله ربي دلني على هذا المنتدى الرائع جدا
ًاشكرك مره اخرى استاذي