تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[ تمّ الحل ] : حفظ بيانات الجدول بقاعدة البيانات
#1
السّلام عليكم و رحمة الله و بركاته
إخواني الأفاضل أدعو الله أن تكونوا بتمام الصحّة و العافيّة
فضلُ و كرمُ و إحسان منكم أن تتفضّلوا بمساعدتي على حل هذه الإشكاليّة
كيف يمكن حفظ البيانات المدخلة بالتاكست رقم 1 إلى التاكست 100 بالفورم 1 بقاعدة البيانات بالجدول LIST1
بمعرفتي المتواضعة قمت بإنشاء 100 حقل ..
إخواني الأفاضل هل هناك طريقة مختصرة و بسيطة بعيدًا عن المصفوفات ؟؟
و إذا لا توجد كيف سيكون شكل كود الحفظ لطريقتي هذه علمًا أنّ كلمة المرور لقاعدة البيانات هي 123
بارك الله فيكم و لكم مقدّمًا و جزاكم خير الجزاء
فائق الاحترام و الشّكر و التّقدير


الملفات المرفقة
.rar   حفظ بيانات الجدول.rar (الحجم : 62.03 ك ب / التحميلات : 33)
الرد
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته

دام انك استخدمت  كلمة سر    فمن الافضل    استخدام  اكسس  2007  لانه اكثر امنا ..

وقد قمت  بعمل المثال المطلوب باستخدام قاعدة  2007  بدلا  من الحالية 

بصراحة لم اقم بعمل اي اختصار استخدمت الطريقة التقليدة  1+1=2

واتمنى من الاخوة ان يجدوا طرق مختصره 


والله الموفق

لا فرق   في  من ناحية استخدام قاعدة بينات اكسس 2007  وما قبلها   فقط بجملة الاتصل   سوف تلاحظ الفرق عندما ترى المثال


الملفات المرفقة
.rar   ADDToTabel.rar (الحجم : 448.36 ك ب / التحميلات : 41)
السلام عليكم  احبائي 
بسبب انشغالي  قل  عطائي  -- اعتذر منكم  --  وسال الله العلي القدير  ان لا يشغلنا الا بطاعته.
اشكر كل الاخوة في المنتدى الرائع الذين ساعدوني خاصة والذين يساعدون الجميع -- اسال الله العلي القدير ان يكتب اجرهم مضاعفا ويرزقهم الجنة.
الرد
#3
السّلام عليكم و رحمة الله و بركاته
بارك الله فيك و لك و جزاك خير الجزاء على المساعدة الرّائعة و البسيطة و المفهومة و الواضحة و على الشّرح و التّوضيح الكافي و الشّافي ..
أخي الفاضل " SENDBAD100 "
لكي أعمل على قاعدة بيانات أكسس 2007 هل المطلوب منّي حذف الأوفيس 2010 و أقوم بتسطيب الأوفيس 2007 ؟؟
و لو أمكن بإضافتيْن أخيرتيْن على نفس الملف :
1 - كيف يمكن عند فتح المشروع تظهر البيانات على الجدول بالفورم تلقائيًّا
أنا عملت هكذا على سبيل المثال لكن لست أدري إذا الكود كامل و الكمال لله أم تنقصه إضافات

2- أحتاج فقط لزر أمر للتّعديل .. لو أمكن عمل مثال فقط بسطر أو سطريْن
أجدّد شكري لك و امتناني
إحتراماتي


الملفات المرفقة
.rar   ADDToTabel 2.rar (الحجم : 448.35 ك ب / التحميلات : 19)
الرد
تم الشكر بواسطة:
#4
(26-02-17, 01:00 AM)عبد العزيز البسكري كتب :
السّلام عليكم و رحمة الله و بركاته
بارك الله فيك و لك و جزاك خير الجزاء على المساعدة الرّائعة و البسيطة و المفهومة و الواضحة و على الشّرح و التّوضيح الكافي و الشّافي ..
أخي الفاضل " SENDBAD100 "
لكي أعمل على قاعدة بيانات أكسس 2007 هل المطلوب منّي حذف الأوفيس 2010 و أقوم بتسطيب الأوفيس 2007 ؟؟
و لو أمكن بإضافتيْن أخيرتيْن على نفس الملف :
1 - كيف يمكن عند فتح المشروع تظهر البيانات على الجدول بالفورم تلقائيًّا
أنا عملت هكذا على سبيل المثال لكن لست أدري إذا الكود كامل و الكمال لله أم تنقصه إضافات

2- أحتاج فقط لزر أمر للتّعديل .. لو أمكن عمل مثال فقط بسطر أو سطريْن
أجدّد شكري لك و امتناني
إحتراماتي
شكر جزيلا للاخ SENDBAD100 لجهوده المبذولة 
اخي عبد العزيز عملت لك مثال للحفظ بشكل مختصر وكذلك وضعت زرين احدهما لعرض البيانات والاخر للتعديل حسب طلبكم وهو تعديل للمثال الذي عمله اخي SENDBAD100  جزاه الله كل خير

اسف لم ارفق الملف بعد التعديل وهذا هو في المرفقات


الملفات المرفقة
.rar   ADDToTabel2.rar (الحجم : 1.33 م ب / التحميلات : 38)
   تحيــــــــــــــــــــــــــــاتي لكـــــــــــــــــــم    
الرد
#5
السّلام عليكم و رحمة الله و بركاته
بارك الله فيك أخي الغالي على لطفك و كرمك
دومًا سبّاق للخيرات ..أسأل الله العلي القدير أن يجعل و يعوّض كل حرف و كل نقطة و كل فاصلة ممّا كتبته بما لا نهاية من الحسنات و يرزقك من حيث لا تحتسب أنت و كل من تحب
مثال رائع .. كلّه على بعضه ممتاز .. مثال متكامل أعجبني كثيرًا بكل صدق
جد ممنون لأفضالك اللامنتهية معي أخي الغالي
هذا هو المطلوب و لله الحمد و الشّكر
فائق التحيات و خالص الاحترامات
الرد
تم الشكر بواسطة: السيد الغالي , Ahmed_Mansoor , Amir_alzubidy
#6
اخي عبد العزيز اسف اني لم ارفق الملف ولكن تداركت الامر بمجرد مشاهدتي للرد ولم اجد المرفق فسارعت بتعديل المشاركة وارفاق الملف ارجو قبول اعتذاري
   تحيــــــــــــــــــــــــــــاتي لكـــــــــــــــــــم    
الرد
#7
السّلام عليكم و رحمة الله و بركاته
أخي الكريم و أستاذي الفاضل
أنا  الواجب عليه التأسّف و طلب المعذرة منك نظير تعبك معي بحلولك السحرية باسم الله ما شاء الله تبارك الله
إحتراماتي
الرد
#8
انشغلت قليلا ورجعت الان لاجد اخي / السيد الغالي قد سبقني لعمل الخير كعادته

ويسعدني مرورك اخي / السيد الغالي اشتقنا لاطلالتك


والحمد لله اخي/ عبدالعزيز البسكري انك حصلت على المطلوب

ربنا يوفق الجميع تحياتي

بالنسبة للاوفيس لا تحتاج الى ازالة 2010 فاكسس 2010 يعتبر قاعدة بياناته هي نفس النوع 2007 ولكن ما قبل 2007 يختلف نوعا ما

ممكن تعمل ملف اكسس 2010 بدون ما تحوله الى اي نوع قديم وتتصل به بالطريقة نفسها التي تتصب بملف 2007

والله الموفق
السلام عليكم  احبائي 
بسبب انشغالي  قل  عطائي  -- اعتذر منكم  --  وسال الله العلي القدير  ان لا يشغلنا الا بطاعته.
اشكر كل الاخوة في المنتدى الرائع الذين ساعدوني خاصة والذين يساعدون الجميع -- اسال الله العلي القدير ان يكتب اجرهم مضاعفا ويرزقهم الجنة.
الرد
#9


ألف شكر عزيزي الغالي " SENDBAD100" على التّوضيح
بارك الله فيك و لك و جزاك جنّة النّعيم مع الأنبياء و الصدّيقين إن شاء الله
إحتراماتي
الرد
تم الشكر بواسطة: Ahmed_Mansoor , Amir_alzubidy
#10
امين ولك بالمثل



انا الان فقط  اطلعت على المرفق 


اعتقدت انك لا تريد استخدام المصفوفات  كما فهمت من مشاركتك الاولى  


على العموم طريقة الاخ / السيد الغالي هي الافضل   لانها تختصر الوقت والجهد   وحتى عند التعديل ستجد سهولة كبيره


ممكن ايضاً  تعديل الكود التالي 
من  
PHP كود :
Private Sub Command2_Click()
If 
RS.State 1 Then RS.Close
RS
.Open "Select * From LISTE1 "DBadOpenStaticadLockPessimistic
RS
.AddNew
Dim i 
As Integer
1
Do Until i 101
RS
.Fields(i) = Text1(i)
RS.Update
1
DoEvents
Loop

MsgBox 
"تمت العملية بنجاح"

End Sub 

الى 
PHP كود :
Private Sub Command2_Click()
If 
RS.State 1 Then RS.Close
RS
.Open "Select * From LISTE1 "DBadOpenStaticadLockPessimistic
RS
.AddNew
Dim i 
As Integer
1
Do Until i 101
RS
.Fields(i) = Text1(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 "DBadOpenStaticadLockPessimistic
Dim i 
As Integer
1
Do Until i 101
RS
.Fields(i) = Text1(i)
RS.Update
1
DoEvents
Loop

MsgBox 
"تمت العملية بنجاح"

End Sub 

الى  

PHP كود :
Private Sub Command4_Click()

If 
RS.State 1 Then RS.Close
RS
.Open "Select * From LISTE1 "DBadOpenStaticadLockPessimistic
Dim i 
As Integer
1
Do Until i 101
RS
.Fields(i) = Text1(i)
1
 
Loop

RS
.Update

MsgBox 
"تمت العملية بنجاح"

End Sub 

طبعا  كلها تعمل جيدا القديم والجديد  ولكن   اصح واسرع
السلام عليكم  احبائي 
بسبب انشغالي  قل  عطائي  -- اعتذر منكم  --  وسال الله العلي القدير  ان لا يشغلنا الا بطاعته.
اشكر كل الاخوة في المنتدى الرائع الذين ساعدوني خاصة والذين يساعدون الجميع -- اسال الله العلي القدير ان يكتب اجرهم مضاعفا ويرزقهم الجنة.
الرد


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Photo [vb6.0] المساعدة في تصدير بيانات الى جدول وورد hassan0379 0 47 07-04-18, 11:36 PM
آخر رد: hassan0379
Question [vb6.0] كيف يتم إضهار الترقيم تلقائي المجود في قاعدة البيانات عند النقر على امر جديد ؟ Microformt 4 155 02-04-18, 12:54 PM
آخر رد: mhareek
  السلام عليكم سؤال ممكن اتحكم في قاعدة البيانات من جهاز اخر او عن النت محمد جبريل 1 86 21-03-18, 12:22 PM
آخر رد: ahmedabdelaliem
  نسخ بيانات محددة من جدول إلى آخر مصمم هاوي 3 45 24-02-18, 04:09 PM
آخر رد: مصمم هاوي
  [vb6.0] تأخير نقل البيانات من الجهاز الخارجي الى شاشة البرنامج وادي العوضي 21 431 24-02-18, 12:37 PM
آخر رد: وادي العوضي
Rainbow [vb6.0] ماهي قاعدة بيانات اكسس و اين تستعمل و مثال مفتوح المصدر للفهم anoname 2 211 03-02-18, 01:41 PM
آخر رد: anoname
  طلب كود إلغاء السجلات المتكررة في قاعدة البيانات فيصل علي 0 53 19-01-18, 02:41 PM
آخر رد: فيصل علي
  [ تمّ الحل ] : إضافة الملفات أثناء تصطيب البرامج التّنفيذيّة عبد العزيز البسكري 13 785 18-01-18, 10:22 PM
آخر رد: الوايلي
  استخراج الملفات من قاعدة البيانات anes 8 159 16-01-18, 07:03 PM
آخر رد: مصمم هاوي
  تعديل مثال حفظ بيانات الحضور والغياب مصمم هاوي 1 83 13-01-18, 02:02 AM
آخر رد: مصمم هاوي

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


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