[alfaiz678]

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

لدي اكواد انتفعت بها واحببت مشاركتها

في هذا المنتدى الذي استفدنا منه الكثير والكثير

وسارسلها على شكل متسلسل ومتقطع

إن شاء الله تعالى

---

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

كود :

ComboBox1.Items.Clear()

       Dim DT As New DataTable
       Dim DA As New SQLiteDataAdapter

       ConOpen()
       DA = New SQLiteDataAdapter("select Name from T1", conne)
       DA.Fill(DT)
       ConClose()

       Dim items = DT.AsEnumerable().Select(Function(d) DirectCast(d(0).ToString(), Object)).ToArray()
       ComboBox1.Items.AddRange(items)

يتبع إن شاء الله