ارسال بيانات من قاعدة البيانات الى القريد

كود :

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

كود :

Using MYDataAdapter As New OleDbDataAdapter("Select DISTINCT E_Name From tbl1", Con)

            Dim DataSet1 As New DataSet

            Call MYDataAdapter.Fill(DataSet1, "E_NameTable")

            For Each MYRow As DataRow In DataSet1.Tables("E_NameTable").Rows

                Dim b As String = MYRow.Item("E_Name")

                If String.IsNullOrEmpty(b) = Nothing Then

                    Re = b

                    MsgBox(Re)

                    Me.TextBox1.Text = b

                    'Me.DataGridView1.Rows.Clear()

                    'Me.DataGridView1.Columns.Clear()

                    'Me.DataGridView1.Refresh()

                    'For n As Integer = 1 To Me.TextBox1.Text

                    '    Me.DataGridView1.Columns.Add("Columns", n)

                    'Next

                    'For o As Integer = 0 To Me.TextBox1.TextLength - 1

                    '    Me.DataGridView1.Columns(o).Width = 30

                    'Next

                End If

            Next MYRow

        End Using

كود :

If Con.State = ConnectionState.Open Then Con.Close()

        Con.Open()

        Using MYDataAdapter As New OleDbDataAdapter("SELECT DISTINCT E_Name FROM tbl1", Con)

            Call MYDataAdapter.Fill(DataSet1, "E_NameTable")

            For Each MYRow As DataRow In DataSet1.Tables("E_NameTable").Rows

                Dim a As String = MYRow.Item("E_Name")

                Me.DataGridView1.Columns.Add("Columns", a.ToString)

            Next MYRow

        End Using

كود :

If Con.State = ConnectionState.Open Then Con.Close()

        Con.Open()

        Dim DataSet2 As New DataSet

        DataSet2.Clear()

        Me.DataGridView1.Rows.Clear()

        Using MYDataAdapter As New OleDbDataAdapter("SELECT E_Type FROM tbl1 Where E_Name like '" & Me.DataGridView1.Columns(0).HeaderText & "'", Con)

            Call MYDataAdapter.Fill(DataSet2, "E_TypeTable")

            For Each MYRow As DataRow In DataSet2.Tables("E_TypeTable").Rows

                Dim a As String = MYRow.Item("E_Type")

                ' Me.DataGridView1.Rows.Add(a.ToString)

                Me.DataGridView1.Rows.Add(Me.DataGridView1.Rows(0).Cells(0).Value, a.ToString)

            Next MYRow

        End Using