07-10-22, 11:49 PM
(آخر تعديل لهذه المشاركة : 07-10-22, 11:50 PM {2} بواسطة mohamedgadain61.)
السلام عليكم اريد تعديل على الكود بالأسفل عندما يقوم بتعبئة كومبو بوكس من قاعدة بيانات ياخذ الكثير من الوقت علما بان التعبئة تكون ل 102الف حقل ... مرفق لكم المثال
Using sda As OleDbDataAdapter = New OleDbDataAdapter("Select Cust_Id, Cust_Phone FROM Customers", Con)
Con.Open()
'Fill the DataTable with records from Table.
Dim dt As DataTable = New DataTable()
sda.Fill(dt)
'Insert the Default Item to DataTable.
Dim row As DataRow = dt.NewRow()
row(0) = 0
row(1) = "Please Select"
dt.Rows.InsertAt(row, 0)
'Assign DataTable as DataSource.
ComboBox1.DataSource = dt
ComboBox1.DisplayMember = "Cust_Phone"
ComboBox1.ValueMember = "Cust_Id"
End Using
Con.Close()
Using sda As OleDbDataAdapter = New OleDbDataAdapter("Select Cust_Id, Cust_Phone FROM Customers", Con)
Con.Open()
'Fill the DataTable with records from Table.
Dim dt As DataTable = New DataTable()
sda.Fill(dt)
'Insert the Default Item to DataTable.
Dim row As DataRow = dt.NewRow()
row(0) = 0
row(1) = "Please Select"
dt.Rows.InsertAt(row, 0)
'Assign DataTable as DataSource.
ComboBox1.DataSource = dt
ComboBox1.DisplayMember = "Cust_Phone"
ComboBox1.ValueMember = "Cust_Id"
End Using
Con.Close()