منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

اساتذتي المبرمجيين السلام عليكم ورحمة الله وبركاته
رجاء عندي طلب لكم
اريد كود زر التعديل لبيانات مرتبطة بأكسس عن طريق مكتبة ado
رجاء اريد منكم كود لزر التعديل ولكم جزيل الشكر والتقدير

تفضل الكود :

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 

اولا اشكرك استاذي
ثانيا اش المقصود ب db يعني على فهمي انني اعمل اسم القاعده محلها

هذا متغير للوصول لقاعدة البيانات
اما الـــ rs متغير للوصول للسجلات
ارفق الشروع للتعديل عليه لكى تفهم اكثر

اوكيه في المرفقات

احذف كود التعديل وضع بدله هذا الكود :

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 

التعديل كان طفيف قارن الكود هذا بالكود اللعندك
بالتوفيق إن شاء الله

ينقل للقسم المناسب

مشكور والله ما قصرت
تصدق لي ثلاث ايام ابحث عن حل
سبحان الله ربي دلني على هذا المنتدى الرائع جدا
ًاشكرك مره اخرى استاذي

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

رضو

hago

رضو

hago

رضو

hago

Ahmad Jawad

رضو