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

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

نقل بيانات من قاعدة اكسس الى داتاجريدفيو - aftfm - 28-02-13

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

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

المطلوب
اظهار بيانات الاسم في داتاجريدفيو في العمود الأول
اظهار اليوم الأول من الشهر في العمود الثاني
اظهار اليوم الثاني من الشهر في العمود الثالث
وهكذا حتى نهاية الشهر
بعد اليوم ٣١
نظهر الشهر
والعمود الأخير نظهر السنه

نقل بيانات من قاعدة اكسس الى داتاجريدفيو - aftfm - 12-03-13

اخواني جزاكم الله الف خري توصلت لكود نقل بيانات من قاعدة البيانات اكسس الى الداتا قريد حسب المشاركة رقم 1

لكن واجهتني مشكلة في حالى ان السجل لبعض الاشخاص في يوم 1 فارغ وليس به بيانات لحقل المبلغ وفي يوم 2 يوجد بيانات لا يظهر في القريد.
إلا في حالة تعبة يوم 1 ولو برقم 0

هذا الكود
PHP كود :
Dim sql As String = " SELECT DISTINCT Customer_Name " & _
                    "   FROM Purchasing             " & _
                    "  WHERE Month(Listing_Date1) = " & Val(Me.lblMonth.Text)
        Dim dt As New DataTable
        Dim da As New OleDbDataAdapter(sql, Con)
        da.Fill(dt)
        If dt.Rows.Count > 0 Then
            If dt.Rows.Count + 1 > Me.DGVExp.Rows.Count Then Me.DGVExp.RowCount = dt.Rows.Count + 1
            For i = 0 To dt.Rows.Count - 1
                Me.DGVExp.Rows(i).Cells(0).Value = dt.Rows(i).Item("Customer_Name")
            Next
        End If
        Dim ST As String = ""
        For Each Row As DataGridViewRow In Me.DGVExp.Rows
            ST = Row.Cells(0).Value
            Con.Open()
            Dim cmd1 As New OleDbCommand("SELECT Amount_Pur FROM Purchasing WHERE Listing_Date1 = #" & Me.DTPDay1.Text & "# AND Customer_Name LIKE '" & ST & "'", Con)
            Dim cmd2 As New OleDbCommand("SELECT Amount_Pur FROM Purchasing WHERE Listing_Date1 = #" & Me.DTPDay2.Text & "# AND Customer_Name LIKE '" & ST & "'", Con)
            Dim cmd3 As New OleDbCommand("SELECT Amount_Pur FROM Purchasing WHERE Listing_Date1 = #" & Me.DTPDay3.Text & "# AND Customer_Name LIKE '" & ST & "'", Con)
            Dim cmd4 As New OleDbCommand("SELECT Amount_Pur FROM Purchasing WHERE Listing_Date1 = #" & Me.DTPDay4.Text & "# AND Customer_Name LIKE '" & ST & "'", Con)
            Try
                Row.Cells(1).Value = cmd1.ExecuteScalar.ToString
                Row.Cells(2).Value = cmd2.ExecuteScalar.ToString
                Row.Cells(3).Value = cmd3.ExecuteScalar.ToString
                Row.Cells(4).Value = cmd4.ExecuteScalar.ToString
            Catch ex As Exception
            End Try
            Con.Close()
        Next 


نقل بيانات من قاعدة اكسس الى داتاجريدفيو - aftfm - 12-03-13

من لديه حل يفيدني جزاكم الله خير

ام سؤالي غير واضح ام الكود غير مفهوم

نقل بيانات من قاعدة اكسس الى داتاجريدفيو - aftfm - 13-03-13

هذا مثال
ارجوا التعديل علية

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

نقل بيانات من قاعدة اكسس الى داتاجريدفيو - aftfm - 13-03-13

للمعلومية لمن حمل البرنامج تغيير فورمات التاريخ في الاجراء ControlDate

الى MM/dd/yyyy بدلا من dd/MM/yyyy

لا اعلام لماذ لم يقبلها كما هي