[mohamedgadain61]

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

اخواني الكرام اعاني من فترة طويلة من تاخير بالفورم يتاخر لمدة 8 ثواني حتى يجلب البيانات من قاعدة البيانات وياخذ وفت طويل علما بان قاعدة البيانات يوجد بها مئات الاف من البيانات

ارفقت لكم الكود ادناه ... هل من حل يقوم بتسريع العمل داخل الفورم دون تأخير مجرد فتح الفورم يقوم بجلب البيانات وشكرا 

PHP كود :

 Private Sub Orders_Load(sender As Object, e As EventArgs) Handles Me.Load
        notee()
        landryInfo()
        SelectAll_Customers()
        GetSub_User()
         LoadCategory()
        LoadData()
    End Sub


 Private Sub notee()
        Dim dp As New OleDbDataAdapter("SELECT ID, notee FROM notess", conn)
        Dim dt As DataTable = New DataTable()
        dp.Fill(dt)
        CheckedListBox1.DataSource = dt
        CheckedListBox1.DisplayMember = "notee"
        CheckedListBox1.ValueMember = "ID"
    End Sub


 Private Sub landryInfo()
        Dim dp As New OleDbDataAdapter("select * from landryInfo where ID =" & 5 & " ", conn)
        Dim ds As New DataSet
        dp.Fill(ds)
        If ds.Tables(0).Rows.Count <> 0 Then
            statusvat = ds.Tables(0).Rows(0).Item("Status_vat")
            valuvat = ds.Tables(0).Rows(0).Item("Value_VAT")
            paytype = ds.Tables(0).Rows(0).Item("type")
            typevat = ds.Tables(0).Rows(0).Item("Type_VAT")
        End If
    End Sub



  Private Sub SelectAll_Customers()
        Dim Cmmd As New OleDbCommand("Select mobilenumber,customername from Customers1", conn)
        Dim da As New OleDbDataAdapter(Cmmd)
        Dim dt As New DataSet
        da.Fill(dt)
        Dim cloumn1 As New AutoCompleteStringCollection
        Dim cloumn2 As New AutoCompleteStringCollection
        Dim i As Integer
        For i = 0 To dt.Tables(0).Rows.Count - 1
            cloumn1.Add(dt.Tables(0).Rows(i)("mobilenumber").ToString())
        Next
        TextBox11.AutoCompleteSource = AutoCompleteSource.CustomSource
        TextBox11.AutoCompleteMode = AutoCompleteMode.SuggestAppend
        TextBox11.AutoCompleteCustomSource = cloumn1
      End Sub



        Private Sub GetSub_User()

        Dim dp As New OleDbDataAdapter("Select * FROM Sub where ID =" & 1 & "", conn)
        Dim ds As New DataSet
        dp.Fill(ds)
        If ds.Tables(0).Rows.Count <> 0 Then
            subscription = ds.Tables(0).Rows(0).Item("Sub_Customer")
            Tailor = ds.Tables(0).Rows(0).Item("Tailor")
            Laundery = ds.Tables(0).Rows(0).Item("Laundery")
        End If
   

        Dim dp1 As New OleDbDataAdapter("Select ID, user_name FROM login", conn)
        conn.Open()
        Dim dt As DataTable = New DataTable()
        dp1.Fill(dt)
        ComboBox1.DataSource = dt
        ComboBox1.DisplayMember = "user_name"
        ComboBox1.ValueMember = "user_name"
        ComboBox2.DataSource = dt
        ComboBox2.DisplayMember = "ID"
        ComboBox2.ValueMember = "ID"
        conn.Close()
    End Sub


  Private Sub LoadCategory()
        FlowLayoutPanel3.Controls.Clear()
        Using Cmd As New OleDbCommand("select * from Proudect_items", conn)
            conn.Open()
            rdr = Cmd.ExecuteReader
            While rdr.Read
                Dim button = New Button
                button.Font = New Font("Tahoma", 10, FontStyle.Bold)
                button.Width = 125
                button.Height = 60
                button.Text = rdr.Item("item_NameA").ToString
                button.Tag = rdr.Item("ID").ToString
                button.FlatStyle = FlatStyle.Flat
                button.BackColor = Color.FromArgb(72, 4, 156)
                button.ForeColor = Color.White
                FlowLayoutPanel3.Controls.Add(button)
                button.Cursor = Cursors.Hand
                AddHandler button.Click, AddressOf button_Click
            End While
        End Using
        rdr.Close()
        conn.Close()
        FlowLayoutPanel3.AutoScroll = True
    End Sub


 Private Sub LoadData()
        FlowLayoutPanel1.Controls.Clear()
        If _action = "StartUp" Then Cmd = New OleDbCommand("SELECT pic,ID,ProductNameA,ProductNameE from Proudect Where ProductNameA like '%" & TextSerch.Text & "%' ", conn)
            If _action = "Search1" Then Cmd = New OleDbCommand("SELECT pic,ID,ProductNameA,ProductNameE from Proudect Where id_Proudect_items =" & _query1 & "", conn)
            conn.Open()
            rdr = Cmd.ExecuteReader(CommandBehavior.CloseConnection)
            While rdr.Read
                Dim len As Long = rdr.GetBytes(0, 0, Nothing, 0, 0)
                Dim array(CInt(len)) As Byte
                rdr.GetBytes(0, 0, array, 0, CInt(len))
                pic = New PictureBox
                pic.Width = 150
                pic.Height = 150
                pic.BackgroundImageLayout = ImageLayout.Stretch
                pic.Tag = rdr.Item("ID").ToString
                AddHandler pic.Click, AddressOf lblD_Click
                '-----------------------------------------------------
                lblD1 = New Label
                lblD1.Font = New Font("Tahoma", 10, FontStyle.Bold)
                lblD1.ForeColor = Color.FromArgb(72, 4, 156)
                lblD1.BackColor = Color.GhostWhite
                lblD1.Dock = DockStyle.Top
                lblD1.Tag = rdr.Item("ID").ToString
                lblD1.Text = rdr.Item("ID").ToString
                '-----------------------------------------------------
                lblD = New Label
                lblD.Font = New Font("Tahoma", 9, FontStyle.Bold)
                lblD.ForeColor = Color.FromArgb(72, 4, 156)
                lblD.BackColor = Color.GhostWhite
                lblD.Dock = DockStyle.Bottom
                lblD.Tag = rdr.Item("ID").ToString
                lblD.Text = rdr.Item("ProductNameE").ToString & "-" & rdr.Item("ProductNameA").ToString
                AddHandler lblD.Click, AddressOf lblD_Click
                '-----------------------------------------------------
                Dim ms As New System.IO.MemoryStream(array)
                Dim bitmap As New System.Drawing.Bitmap(ms)
                pic.BackgroundImage = bitmap
                '-----------------------------------------------------
                pic.Controls.Add(lblD)
                pic.Controls.Add(lblD1)
                FlowLayoutPanel1.Controls.Add(pic)
                '--------------------------------------------------------------------------------------------------------------
            End While
            FlowLayoutPanel1.AutoScroll = True
            rdr.Close()
            conn.Close()
    End Sub