منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
حفظ مجموعة تكست بوكس فى قاعدة البيانات بضغطة حفظ واحدة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=22264)



حفظ مجموعة تكست بوكس فى قاعدة البيانات بضغطة حفظ واحدة - المبرمج العتيق - 26-10-17

أساتذتى وأخوانى بعد التحية بسلام الله عز وجل وتمنياتى لكم بالتوفيق فى حياتكم العملية 
أما بعد ...
أخص بالشكر الأستاذ محمد عنان على مساعدتى فى الخطوة الأولى فى نفس البرنامج المرفق 
وتحياتى لأساتذتى أستاذ أحمد منصور واستاذ عبد العزيز البسكرى وإدارة المنتدى 
سؤالى :: فى نفس المشروع المرفق مسبقا ولكن هذه المرة بطريقة مختلفة 
مطلوب جعل كل عامود من أعمدة التكست بوكس يحفظ فى القاعدة كما هو 
والصفوف كل صف بسجل فى القاعدة 
ولكم منى جزيل الشكر والعرفان بالجميل 
تحياتى أخوكم أحمد أبو فرغلى 
مرفق المثال المعدل بيد أستاذ محمد عنان


RE: حفظ مجموعة تكست بوكس فى قاعدة البيانات بضغطة حفظ واحدة - Mohamad Anan - 26-10-17

مرحبا أخي الكريم

تم تعديل المرفق


RE: حفظ مجموعة تكست بوكس فى قاعدة البيانات بضغطة حفظ واحدة - المبرمج العتيق - 27-10-17

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


RE: حفظ مجموعة تكست بوكس فى قاعدة البيانات بضغطة حفظ واحدة - Mohamad Anan - 27-10-17

مرحبا أخي الكريم
لا شكر على واجب
في هذه الحالة لا فائدة من ربط الأدوات كنت فقط أوضح فكرة
هنا يجب التعامل بالكود و يكون الكود الصحيح هو:

PHP كود :
Private Sub Command1_Click()

 
   Dim i       As Integer

    For i 
0 To Text1().Count 1
        Adodc1
.Recordset.AddNew
        
        Adodc1
.Recordset.Fields(1).Value Text1(i).Text
        Adodc1
.Recordset.Fields(2).Value Text2(i).Text
        Adodc1
.Recordset.Fields(3).Value Text3(i).Text
        
        Adodc1
.Recordset.Update
        
    Next

End Sub 



RE: حفظ مجموعة تكست بوكس فى قاعدة البيانات بضغطة حفظ واحدة - المبرمج العتيق - 28-10-17

أخى الحبيب أستاذ محمد عنان أسأل الله ان يجعل مساعداتك لى فى ميزان حسناتك وجزاك الله عنا كل خير
أستفسارى :: أنا حاولت أطبق الكلام دة معرفتش وجربت بطرق كتير .
ممكن توضحلى بالتعديل على المثال المرفق . مع العلم أن البيانات عند إدخالها بتظهر رسالة خطأ بيقول فيها ان البيانات فى السجلات غير مكتملة وهو قصده طبعا أنى ادخلت بيانات فى صف واحد وسبت الباقى . إزاى أقدر اتغلب على المشكلة دى on error resume next منفعتش
ولك منى جزيل الشكر ووافرالأحترام


RE: حفظ مجموعة تكست بوكس فى قاعدة البيانات بضغطة حفظ واحدة - Mohamad Anan - 28-10-17

مرحبا أخي الكريم

انت عامل حقل الرقم من نوع رقم و هو لا يقبل نص فارغ

استخدم الدالة val أو اجعل نوع الحقل نص لانه رقم هاتف لا يدخل في عمليات حسابية

تم تعديل المرفق


RE: حفظ مجموعة تكست بوكس فى قاعدة البيانات بضغطة حفظ واحدة - المبرمج العتيق - 28-10-17

الله يفتح عليك والله عاجز عن الشكر