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

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

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

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

اخواني جزاكم الله الف خري توصلت لكود نقل بيانات من قاعدة البيانات اكسس الى الداتا قريد حسب المشاركة رقم 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 

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

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

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

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

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

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

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

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

aftfm

aftfm

aftfm

aftfm

aftfm