+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم اسئلة vb6.0 المتعلقة بقواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=72)
+--- الموضوع : طلب كود زر التعديل وبربط ado (/showthread.php?tid=7200)
طلب كود زر التعديل وبربط ado - رضو - 01-12-12
اساتذتي المبرمجيين السلام عليكم ورحمة الله وبركاته
رجاء عندي طلب لكم
اريد كود زر التعديل لبيانات مرتبطة بأكسس عن طريق مكتبة ado
رجاء اريد منكم كود لزر التعديل ولكم جزيل الشكر والتقدير
طلب كود زر التعديل وبربط ado - hago - 01-12-12
تفضل الكود :
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
طلب كود زر التعديل وبربط ado - رضو - 01-12-12
اولا اشكرك استاذي
ثانيا اش المقصود ب db يعني على فهمي انني اعمل اسم القاعده محلها
طلب كود زر التعديل وبربط ado - hago - 01-12-12
هذا متغير للوصول لقاعدة البيانات
اما الـــ rs متغير للوصول للسجلات
ارفق الشروع للتعديل عليه لكى تفهم اكثر
طلب كود زر التعديل وبربط ado - رضو - 01-12-12
اوكيه في المرفقات
طلب كود زر التعديل وبربط ado - hago - 01-12-12
احذف كود التعديل وضع بدله هذا الكود :
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
بالتوفيق إن شاء الله
طلب كود زر التعديل وبربط ado - Ahmad Jawad - 01-12-12
ينقل للقسم المناسب
طلب كود زر التعديل وبربط ado - رضو - 01-12-12
مشكور والله ما قصرت
تصدق لي ثلاث ايام ابحث عن حل
سبحان الله ربي دلني على هذا المنتدى الرائع جدا
ًاشكرك مره اخرى استاذي