منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[vb6.0] كيفية اضافة سجل جديد - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+--- الموضوع : [vb6.0] كيفية اضافة سجل جديد (/showthread.php?tid=13533)

كيفية اضافة سجل جديد - وادي العوضي - 16-10-15

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

RE: كيفية اضافة سجل جديد - vb6_coder - 16-10-15

اقولك عن شي اخوي وادي العوضي
انا اقترح عليك تتخلص من طريقة الربط بالادوات
وتتعلم طريقة الربط بالكود ( صدقني ترتاح) وتختصر على حالك وقت
يعطيك العافية Smile

RE: كيفية اضافة سجل جديد - وادي العوضي - 16-10-15

السلام عليكم اخي الفاضل vb6_coder ورحمة الله وبركاته
اولا شكرا جزيلا لردك السريع
ثانيا انا رابط قاعدة بيانات اكسس 2003 عن طريق الكود ولهذا ما اعرف الكود الخاص باضافة سجل جديد
مع فائق الشكر والاحترام

RE: كيفية اضافة سجل جديد - vb6_coder - 16-10-15

انا اعتذر ما انتبهت
[attachment=8253]

جرب وعطني النتيجة :Smile
يعطيك العافية

RE: كيفية اضافة سجل جديد - وادي العوضي - 16-10-15

استاذي الفاضل vb6_coder شكرا لاهتمامك بالموضوع
لكن الكود لم يضبط معي
لكني بعد محاولات توصلت الى الحل وهو كالاتي :
داخل زر الامر كتب هذا الكود فنجح معي الكود هو :
If rs.EOF = False Then
rs.Addnew
Text1.text = ""
text2.text = ""
الى نهاية ال Textn.text
End If
ضبط عندي هذا بعد التجربة
المهم شكرا لتعاونك معي استاذي الفاضل ربي يوفقك يارب

RE: كيفية اضافة سجل جديد - vb6_coder - 16-10-15

(16-10-15, 01:00 PM)وادي العوضي كتب : استاذي الفاضل vb6_coder  شكرا لاهتمامك بالموضوع
لكن الكود لم يضبط معي
لكني بعد محاولات توصلت الى الحل وهو كالاتي :
داخل زر الامر كتب هذا الكود فنجح معي الكود هو :
If rs.EOF = False Then
rs.Addnew
Text1.text = ""
text2.text = ""
الى نهاية ال Textn.text
End If
ضبط عندي هذا بعد التجربة
المهم شكرا لتعاونك معي استاذي الفاضل ربي يوفقك يارب

على الرحب والسعة

RE: كيفية اضافة سجل جديد - احمداحمداحمد6 - 17-10-15

حاول تغيير النسق الى 97 لانه يتلائم مع فيجوال بيسك اكثر...

RE: كيفية اضافة سجل جديد - وادي العوضي - 17-10-15

استاذي الفاضل احمد بارك الله فيك وجزاك الله خير الجزاء
سوف اقوم بتحويل قاعدة بيانات اكسس من 2003 الى 97 لمعرفة النتيجة والفرق
جزاك الله خير الجزاء