كيف عرض جداول قاعدة بيانات access في ComboBox1 ؟

[Mustapha29]

سواء أ كان  ADOQuery أو ADOTable
في حدث ما  (Button1)

كود :

أو من الأحسن FormShow


ComboBox1.Clear;
with ADOTable1 do
 begin
   First;
   While Not EOF do
   begin
    ComboBox1.Items.Add(ADOTable1code_C.value);  // adotable1code_c =  الحقل المراد إظهاره في comboBox
    Next;
   end;
 end;
 ComboBox1.ItemIndex := 0;
end;