12-08-20, 11:14 PM
(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 من بعد الله سبحانه

