+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] عدة جداول و مشكلة في الحفظ (/showthread.php?tid=36082)
عدة جداول و مشكلة في الحفظ - gharib - 11-08-20
السلام عليكم جميعا
مشكورين سلفا
عندما انقل بيانات من جدول الى جدول ثاني برمجيا يتم النقل ولكن لا يتم الحفظ ارجو المساعدة
التفاصيل ستتضح من خلال المرفق
[attachment=25432]
RE: عدة جداول و مشكلة في الحفظ - gharib - 12-08-20
صباح الخير للجميع
اللهم علمنا ما ينفعنا امين
ارجو ان اجد الاجابة لديكم اساتذتنا الكرام
RE: عدة جداول و مشكلة في الحفظ - اسامه الهرماوي - 12-08-20
وعليكم السلام...
صراحة طلبك غامض ولكن إذا كنت تريد نقل بيانات من جدول إلى جدول أخر فهذا هو الكود المطلوب.
كود :
Dim cmd As New SqlCommand
cmd.Connection = con
cmd.CommandText = "INSERT INTO printt SELECT Name, age, addris FROM basket;"
cmd.ExecuteNonQuery()
con.Close()RE: عدة جداول و مشكلة في الحفظ - خالد كامل1 - 12-08-20
اخى واضح ان فيه فرق فى الحقول فى الجدولين
RE: عدة جداول و مشكلة في الحفظ - gharib - 12-08-20
(12-08-20, 03:04 PM)اسامه الهرماوي كتب : وعليكم السلام...الأخ أسامة شكرا لتفاعلك
صراحة طلبك غامض ولكن إذا كنت تريد نقل بيانات من جدول إلى جدول أخر فهذا هو الكود المطلوب.
ملحوظة: يجب أن يكون الجدولين يحتويان نفس الحقول.كود :
Dim cmd As New SqlCommand
cmd.Connection = con
cmd.CommandText = "INSERT INTO printt SELECT Name, age, addris FROM basket;"
cmd.ExecuteNonQuery()
con.Close()
الفكرة هي كالتالي
لدي قاعدة بيانات اكسس تدعى asc
وهي تحوي مجموعة غير محددة من الجداول المتشابهة تبدأ من الرقم 1 و تنتهي برقم معين غير محدد (يحدده طبيعة المشروع المدروس -مشروع هندسي)
كذلك تحوي على جدول وحيد اسمه ccc
المجموعة الاولى من الجداول و الجدول ccc يحويان عمودا فيه اسماء لنقاط هندسيةمثلا N و F و T و U و هكذا
المطلوب هو اخذ كل نقطة(كل سطر ) من الجدول CCC ثم البحث عنها في كل جداول المجموعة الأولى( 1-2-3-.........) و من ثم أينما وجدها يضيف محتويات سطرCCC لهذا الجدول
وهذا الأمر قد وفقني الله لاتمامه (كما أعتقد) و بقي الأهم و هو حفظ هذه المنقولات فعند خروجي من البرنامج و البحث في قاعدة اكسس لا أجد ما هو من المفروض ان يكون قد نقل لكي أجري عليه الحسابات اللازمةلاحقا علما انني استخدمت INSERT و UPDATE و لكن دون جدوى و لا أخفيك بأنني من الجدد الذين يحاولون الأنتقال من VB6 الى
VB.NET
أاسف للإطالة و لكن مكره أخاك لا بطل و المرفق فيه الكودات التي تعبر عما سبق من الشرح
و كل الشكر لهذا المنتدى الذي أفتخر و أعتز به و له و لأساتذته الكرام الفضل في تعلمي لغة VB6 من بعد الله سبحانه