املاء DBComboBox1 من قاعدة البايانات

[hmidadz]

كيف املئ DBComboBox1
teams عن طريق قاعدة البايانات اكسس

[cosinuszero]

عندك الخاصية Items.

[h-farid]

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

جرب هذا الإجراء :

كود :

procedure TVente.Q_ArticlesAfterOpen( DataSet: TDataSet ); begin if not( Q_Articles.IsEmpty ) then begin ComboBox1.items.Clear; Q_Articles.First; repeat begin ComboBox1.items.Add( Q_Articles.Fields[ 1 ].asstring ); Q_Articles.Next; end; until Q_Articles.Eof; end else ComboBox1.items.Clear; end;

ملاحظة : استعمل Combobox عادي بدل DBCombobox

و الله هو الموفِق للخير.

[hmidadz]

merci mon frére

[h-farid]

merci mon frére

يا أخي على الأقل "حلبنا" إذا كان الكود يعمل أم لا او به أخطاء. :d

[code]

يعبا عن طريق الاكسيس ثم توضع الاداة الكمبو بكس تبع الدي بي وستظهر معك جميع الايتمز التي كتبتها بالاكسيس