[aftfm]

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

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

فكرته لدي القسم 100 يحمل عدة ارقام مثلا 12345 و 555555
والقسم 101 يحمل عدة ارقام مثلا 666666و 888888 و 999999

المطلوب ارسال بيانات 100الى القريد بحيث يكون العمود الاول عنوانه 100 وبياناته تأتي في القريد تحت العمود الاول
وارسال بيانات 101 الى القريد بحيث يكونت العمود الثاني عنوانه 101 وبياناته تأتي في القريد تحت العمود الثاني

الكود المرفق يظهر فقط واحد سجل المطلوب ارسال كل السجلات

الكود

كود :

Dim MYFilter As String = ""
        Dim MinDate As Date = Nothing
        Dim MaxDate As Date = Nothing
        Dim a, b As String
        Try
            MinDate = Me.DateTimePicker1.Text
        Catch ex As Exception
            MinDate = Nothing
        End Try
        Try
            MaxDate = Me.DateTimePicker2.Text
        Catch ex As Exception
            MaxDate = Nothing
        End Try

        '------ تشييك التاريخ --------------'
        If Me.DateTimePicker1.Text <> "" And DateTimePicker2.Text = "" Then
            MsgBox("يجب تعبئة خانة التاريخ الى")
            Exit Sub
        End If
        If MinDate > MaxDate Then
            MsgBox("عفواً يجب  ان يكون بداية تاريخ البحث أقل أو تساوي نهاية تاريخ البحث")
            DateTimePicker2.Text = ""
            Exit Sub
        End If
        '----------------------بداية الفلترة للبحث---------------------'
        If Not (MinDate = Nothing) AndAlso Not (MaxDate = Nothing) Then
            MYFilter = "WHERE (Msg_Date BETWEEN #" & Format(MinDate, "yyyy/MM/dd") & "# AND #" & Format(MaxDate, "yyyy/MM/dd") & "#)"
        ElseIf Not (MinDate = Nothing) Then
            MYFilter = "WHERE (Msg_Date  >= #" & Format(MinDate, "yyyy/MM/dd") & "#)"
        ElseIf Not (MaxDate = Nothing) Then
            MYFilter = "WHERE (Msg_Date  <= #" & Format(MaxDate, "yyyy/MM/dd") & "#)"
        End If

        a = "100"
        b = "101"
        Try
            For Each row As DataGridViewRow In Me.DataGridView1.Rows
                Dim cmdNC1 As New OleDbCommand("SELECT Fre FROM Msg_InformationB " & MYFilter & " AND Tar like '" & a & "'", Con)
                Dim cmdNC2 As New OleDbCommand("SELECT Fre FROM Msg_InformationB " & MYFilter & " AND Tar like '" & b & "'", Con)
                Con.Open()
                row.Cells(0).Value = cmdNC1.ExecuteScalar.ToString
                row.Cells(1).Value = cmdNC2.ExecuteScalar.ToString
                Con.Close()
            Next
        Catch ex As Exception

        End Try