منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : تحويل منتج إلى عمود بقاعدو بيانات أكسس
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم
لدي جدول مبيعات بالشكل التالي



أريد تحويله إلى جدول آخر بهذا الشكل 



حيث أحتفظ فقط بمنتج أو اثنين حسب حاجتي و أعرضهم أفقيا  كما هو موضح بالصورة أعلاه

أنا أستخدم فيجوال بيسيك مع قاعدة بيانات أكسس

شكرا مسبقا
(25-04-21, 04:10 AM)ADAM12 كتب : [ -> ]السلام عليكم
لدي جدول مبيعات بالشكل التالي



أريد تحويله إلى جدول آخر بهذا الشكل 



حيث أحتفظ فقط بمنتج أو اثنين حسب حاجتي و أعرضهم أفقيا  كما هو موضح بالصورة أعلاه

أنا أستخدم فيجوال بيسيك مع قاعدة بيانات أكسس

شكرا مسبقا


وعليكم السلام ورحمة الله

حاول التالي:

كود :
Dim da As New OleDbDataAdapter()
    Dim da1 As New OleDbDataAdapter()


      Dim dt As New DataTable()
      da.SelectCommand = New OleDbCommand("Select first(date) , first(client), first(product), sum(quantity) from table1 where product = ‘” & “product 1” & “’ and date = #” & Yourdate & “# order by product", cn)
      da.Fill(dt)

      Dim dt1 As New DataTable()
      Da1.SelectCommand = New OleDbCommand("Select first(date) , first(client), first(product), sum(quantity) from table1 where product = ‘” & “product 2” & “’ and date = #” & Yourdate & “# order by product", cn)
      Da1.Fill(dt1)
وهذه هي الجملة لالحاقها في الجدول الثاني
“insert into table2(f1,f2,f3,f4) values(dt.row(0).items(0), dt.row(0).items(1), dt.row(0).items(2), dt1.row(0).items(3))”

الكود غير مجرب لعطل في الفيجوال عندي

ربنا يوفقك
(25-04-21, 04:10 AM)ADAM12 كتب : [ -> ]السلام عليكم
لدي جدول مبيعات بالشكل التالي



أريد تحويله إلى جدول آخر بهذا الشكل 



حيث أحتفظ فقط بمنتج أو اثنين حسب حاجتي و أعرضهم أفقيا  كما هو موضح بالصورة أعلاه

أنا أستخدم فيجوال بيسيك مع قاعدة بيانات أكسس

شكرا مسبقا

وعليكم السلام ورحمة الله وبركاته

ما تريد عمله اسمه استعلام Crosstab او الاستعلام الجدولي


شاهد هذا الفيديو




وشاهد هذا الرابط اذا كنت تجيد اللغة الانجليزيه
Make summary data easier to read by using a crosstab query
شكرا لكما
سأجرب اقتراحيكما هذا المساء حال عودتي من العمل
جازاكما الله كل خير
أعتذر عن التأخر

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

تحياتي