+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [ تمّ الحل ] : حفظ بيانات الجدول بقاعدة البيانات (/showthread.php?tid=19408)
الصفحات:
1
2
[ تمّ الحل ] : حفظ بيانات الجدول بقاعدة البيانات - عبد العزيز البسكري - 25-02-17
السّلام عليكم و رحمة الله و بركاته
إخواني الأفاضل أدعو الله أن تكونوا بتمام الصحّة و العافيّة
فضلُ و كرمُ و إحسان منكم أن تتفضّلوا بمساعدتي على حل هذه الإشكاليّة
كيف يمكن حفظ البيانات المدخلة بالتاكست رقم 1 إلى التاكست 100 بالفورم 1 بقاعدة البيانات بالجدول LIST1
بمعرفتي المتواضعة قمت بإنشاء 100 حقل ..
إخواني الأفاضل هل هناك طريقة مختصرة و بسيطة بعيدًا عن المصفوفات ؟؟
و إذا لا توجد كيف سيكون شكل كود الحفظ لطريقتي هذه علمًا أنّ كلمة المرور لقاعدة البيانات هي 123
بارك الله فيكم و لكم مقدّمًا و جزاكم خير الجزاء
فائق الاحترام و الشّكر و التّقدير
RE: حفظ بيانات الجدول بقاعدة البيانات - sendbad100 - 26-02-17
وعليكم السلام ورحمة الله وبركاته
دام انك استخدمت كلمة سر فمن الافضل استخدام اكسس 2007 لانه اكثر امنا ..
وقد قمت بعمل المثال المطلوب باستخدام قاعدة 2007 بدلا من الحالية
بصراحة لم اقم بعمل اي اختصار استخدمت الطريقة التقليدة 1+1=2
واتمنى من الاخوة ان يجدوا طرق مختصره
والله الموفق
لا فرق في من ناحية استخدام قاعدة بينات اكسس 2007 وما قبلها فقط بجملة الاتصل سوف تلاحظ الفرق عندما ترى المثال
RE: حفظ بيانات الجدول بقاعدة البيانات - عبد العزيز البسكري - 26-02-17
السّلام عليكم و رحمة الله و بركاته
بارك الله فيك و لك و جزاك خير الجزاء على المساعدة الرّائعة و البسيطة و المفهومة و الواضحة و على الشّرح و التّوضيح الكافي و الشّافي ..
أخي الفاضل " SENDBAD100 "
لكي أعمل على قاعدة بيانات أكسس 2007 هل المطلوب منّي حذف الأوفيس 2010 و أقوم بتسطيب الأوفيس 2007 ؟؟
و لو أمكن بإضافتيْن أخيرتيْن على نفس الملف :
1 - كيف يمكن عند فتح المشروع تظهر البيانات على الجدول بالفورم تلقائيًّا
أنا عملت هكذا على سبيل المثال لكن لست أدري إذا الكود كامل و الكمال لله أم تنقصه إضافات
أنا عملت هكذا على سبيل المثال لكن لست أدري إذا الكود كامل و الكمال لله أم تنقصه إضافات
2- أحتاج فقط لزر أمر للتّعديل .. لو أمكن عمل مثال فقط بسطر أو سطريْن
أجدّد شكري لك و امتناني
إحتراماتي
RE: حفظ بيانات الجدول بقاعدة البيانات - السيد الغالي - 26-02-17
(26-02-17, 01:00 AM)عبد العزيز البسكري كتب :شكر جزيلا للاخ SENDBAD100 لجهوده المبذولةالسّلام عليكم و رحمة الله و بركاتهبارك الله فيك و لك و جزاك خير الجزاء على المساعدة الرّائعة و البسيطة و المفهومة و الواضحة و على الشّرح و التّوضيح الكافي و الشّافي ..أخي الفاضل " SENDBAD100 "لكي أعمل على قاعدة بيانات أكسس 2007 هل المطلوب منّي حذف الأوفيس 2010 و أقوم بتسطيب الأوفيس 2007 ؟؟و لو أمكن بإضافتيْن أخيرتيْن على نفس الملف :1 - كيف يمكن عند فتح المشروع تظهر البيانات على الجدول بالفورم تلقائيًّا
أنا عملت هكذا على سبيل المثال لكن لست أدري إذا الكود كامل و الكمال لله أم تنقصه إضافات
2- أحتاج فقط لزر أمر للتّعديل .. لو أمكن عمل مثال فقط بسطر أو سطريْنأجدّد شكري لك و امتنانيإحتراماتي
اخي عبد العزيز عملت لك مثال للحفظ بشكل مختصر وكذلك وضعت زرين احدهما لعرض البيانات والاخر للتعديل حسب طلبكم وهو تعديل للمثال الذي عمله اخي SENDBAD100 جزاه الله كل خير
اسف لم ارفق الملف بعد التعديل وهذا هو في المرفقات
RE: حفظ بيانات الجدول بقاعدة البيانات - عبد العزيز البسكري - 26-02-17
السّلام عليكم و رحمة الله و بركاته
بارك الله فيك أخي الغالي على لطفك و كرمك
دومًا سبّاق للخيرات ..أسأل الله العلي القدير أن يجعل و يعوّض كل حرف و كل نقطة و كل فاصلة ممّا كتبته بما لا نهاية من الحسنات و يرزقك من حيث لا تحتسب أنت و كل من تحب
مثال رائع .. كلّه على بعضه ممتاز .. مثال متكامل أعجبني كثيرًا بكل صدق
جد ممنون لأفضالك اللامنتهية معي أخي الغالي
هذا هو المطلوب و لله الحمد و الشّكر
مثال رائع .. كلّه على بعضه ممتاز .. مثال متكامل أعجبني كثيرًا بكل صدق
جد ممنون لأفضالك اللامنتهية معي أخي الغالي
هذا هو المطلوب و لله الحمد و الشّكر
فائق التحيات و خالص الاحترامات
RE: حفظ بيانات الجدول بقاعدة البيانات - السيد الغالي - 26-02-17
اخي عبد العزيز اسف اني لم ارفق الملف ولكن تداركت الامر بمجرد مشاهدتي للرد ولم اجد المرفق فسارعت بتعديل المشاركة وارفاق الملف ارجو قبول اعتذاري
RE: [ تمّ الحل ] : حفظ بيانات الجدول بقاعدة البيانات - عبد العزيز البسكري - 26-02-17
السّلام عليكم و رحمة الله و بركاته
أخي الكريم و أستاذي الفاضل
أنا الواجب عليه التأسّف و طلب المعذرة منك نظير تعبك معي بحلولك السحرية باسم الله ما شاء الله تبارك الله
إحتراماتي
RE: حفظ بيانات الجدول بقاعدة البيانات - sendbad100 - 26-02-17
انشغلت قليلا ورجعت الان لاجد اخي / السيد الغالي قد سبقني لعمل الخير كعادته
ويسعدني مرورك اخي / السيد الغالي اشتقنا لاطلالتك
والحمد لله اخي/ عبدالعزيز البسكري انك حصلت على المطلوب
ربنا يوفق الجميع تحياتي
بالنسبة للاوفيس لا تحتاج الى ازالة 2010 فاكسس 2010 يعتبر قاعدة بياناته هي نفس النوع 2007 ولكن ما قبل 2007 يختلف نوعا ما
ممكن تعمل ملف اكسس 2010 بدون ما تحوله الى اي نوع قديم وتتصل به بالطريقة نفسها التي تتصب بملف 2007
والله الموفق
RE: [ تمّ الحل ] : حفظ بيانات الجدول بقاعدة البيانات - عبد العزيز البسكري - 26-02-17
ألف شكر عزيزي الغالي " SENDBAD100" على التّوضيح
بارك الله فيك و لك و جزاك جنّة النّعيم مع الأنبياء و الصدّيقين إن شاء الله
إحتراماتي
RE: [ تمّ الحل ] : حفظ بيانات الجدول بقاعدة البيانات - sendbad100 - 26-02-17
امين ولك بالمثل
انا الان فقط اطلعت على المرفق
اعتقدت انك لا تريد استخدام المصفوفات كما فهمت من مشاركتك الاولى
على العموم طريقة الاخ / السيد الغالي هي الافضل لانها تختصر الوقت والجهد وحتى عند التعديل ستجد سهولة كبيره
ممكن ايضاً تعديل الكود التالي
من
PHP كود :
Private Sub Command2_Click()
If RS.State = 1 Then RS.Close
RS.Open "Select * From LISTE1 ", DB, adOpenStatic, adLockPessimistic
RS.AddNew
Dim i As Integer
i = 1
Do Until i = 101
RS.Fields(i) = Text1(i)
RS.Update
i = i + 1
DoEvents
Loop
MsgBox "تمت العملية بنجاح"
End Sub
الى
PHP كود :
Private Sub Command2_Click()
If RS.State = 1 Then RS.Close
RS.Open "Select * From LISTE1 ", DB, adOpenStatic, adLockPessimistic
RS.AddNew
Dim i As Integer
i = 1
Do Until i = 101
RS.Fields(i) = Text1(i)
i = i + 1
Loop
RS.Update
MsgBox "تمت العملية بنجاح"
End Sub
وايضا الكود التالي من
PHP كود :
Private Sub Command4_Click()
If RS.State = 1 Then RS.Close
RS.Open "Select * From LISTE1 ", DB, adOpenStatic, adLockPessimistic
Dim i As Integer
i = 1
Do Until i = 101
RS.Fields(i) = Text1(i)
RS.Update
i = i + 1
DoEvents
Loop
MsgBox "تمت العملية بنجاح"
End Sub
الى
PHP كود :
Private Sub Command4_Click()
If RS.State = 1 Then RS.Close
RS.Open "Select * From LISTE1 ", DB, adOpenStatic, adLockPessimistic
Dim i As Integer
i = 1
Do Until i = 101
RS.Fields(i) = Text1(i)
i = i + 1
Loop
RS.Update
MsgBox "تمت العملية بنجاح"
End Sub
طبعا كلها تعمل جيدا القديم والجديد ولكن اصح واسرع