[nouribenyahia]

السلام عليكم أيها الإخوة الكرام لدي في قاعدة بيانات سكوال سيرفر 2014 أصناف بضاعة  حوالي 4000 صنف
عندما أريد تحميلها في كومبوبوكس لايتم دلك بطريقة سريعة بل بطيئة تماما حوالي دقيقة من لديه فكرة بارك الله فيكم
علما عند تحميلها في الداتا قريد فيو تطون بسرعة وشكرا

[asemshahen5]

ضع هذا الكود في مديول :

PHP كود :

   'ضع هذا الكود في مديول'
    Public Sub FillComboBoxXT(ComboName As ComboBox, TableName As String, ColumnName As String)
        Dim StrSQL As String = "Select DISTINCT " & ColumnName & " From " & TableName
        Dim dt As New DataTable
        dt = FillDataTableXT(StrSQL)
        If dt Is Nothing Then
            dt = FillDataTableXT(StrSQL)
        End If
        If dt Is Nothing Then
            Exit Sub
        End If
        ComboName.DataSource = Nothing
        ComboName.DataSource = dt
        ComboName.DisplayMember = ColumnName
    End Sub
    'ضع هذا الكود في مديول'
    Public CnnStringXT As String = "Data Source=(Local);Initial Catalog=DatabaseNameXT;Integrated Security=True"
    'ضع هذا الكود في مديول'
    Public CnnXT As New SqlConnection(CnnStringXT)
    'ضع هذا الكود في مديول'
    Public Function FillDataTableXT(StrSQL As String) As DataTable
        Dim dt As New DataTable
        Try
            CnnXT = New SqlConnection(CnnStringXT)
            If CnnXT.State = ConnectionState.Closed Then CnnXT.Open()
            Dim da As New SqlDataAdapter(StrSQL, CnnXT)
            dt.Clear()
            da.Fill(dt)
            If CnnXT.State = ConnectionState.Open Then CnnXT.Close()
            If dt Is Nothing Then
                dt = FillDataTableXT(StrSQL)
            End If
            If dt Is Nothing Then
                dt = FillDataTableXT(StrSQL)
                If dt Is Nothing Then
                    Return Nothing
                    Exit Function
                End If
            End If
            Return dt
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error :" & ex.HelpLink)
            Return FillDataTableXT(StrSQL)
        End Try
    End Function 


---

ضع هذا في حدث تحميل الفورم :

PHP كود :

FillComboBoxXT(ComboBox1, "TableName", "ColumnName") 


[nouribenyahia]

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

[asemshahen5]

و بارك الله فيك و جزاك عنا كل خير و الحمد الله رب العالمين و الشكر الله رب العالمين .

موفق انشاء الله .