لمنع تكرار البيانات فى الكمبو بوكس

جرب الكود التالى

dim sql as string
sql="select distinct(company_name) from tablename"
adodc1.recordsource=sql
adodc1.refresh

حيث tablename هو اسم الجدول و company_name هو الحقل الذي تريد عدم تكراره

مشكووووووووووووور اخى

الكود لايعمل

السلام عليكم

ما الخطأ فيه أو أين طهر الخطأ ؟؟؟؟

حاول كمان :

private Sub Fillcombo ( )
Combo1.Clear
SQL = "Select Q_Distination from Tbl_Grods GROUP BY Q_Distination"
Set rs = db.OpenRecordset(SQL) 
With rs
    Do Until .EOF
       Combo1.AddItem !Q_Distination
       .MoveNext 'Next Record
       DoEvents 
    Loop
    .Close  
End With

End Sub

Q_Distination : اسم الحقل المعني

Tbl_Grods : اسم الجدول

مشكور اخى العزيز الرجاء تحديد اين يوضع هذا الكود فى اللود

أخى العزيز

أولا :

عند تصميم جداول قاعدة البيانات حاول بفدر الامكان ان تتلاشى البيانات المكررة فى الجداول وذلك عن طريق عمل جدولأخر للبيانات التى قد تتكرر وعم مفتاح اساسى للجدول عبارة عن autonumber

و يتم التعويض بهذا الرقم فى أى جدول اخر ... يعنى فى هذا المثال أعمل جدول للأصناف فقط ويكون لكل صنف رقم مميز خاص به وأعمل جدول ثانى للشركات ولكل شركة رقم مميز واعمل جدول ثالث يحمل للتوفيق بين الجدولين السابقين ويكون فيه خانة لرقم الشركة وخانة لرقم الصنف وخانة لكمية الصنف

وهذه العلاقة تسمى Many to Many وبذلك فأنت سوف تتلافى تكرار البيانات ... تعلم طرق التصميم الصحيح للجداول حتى تجد الكود سهل فى التعامل معها بعد ذلك

ثانيا :

أنت الوحيد الذى يعرف أين سيكتب هذا الكود فقد تكتبه عتد تحميل الفورم أو عند الضغط على زر مثلا

السلام عليكم

الشكر لك أخي العزيز " VB6-Rocket " علي هذه المداخله الطيبة بطيبة اهلها ....

حسناً قمت بتعديل الكود السابق

ضع الكود السابق في الجزء العام للتعريفات

و عندما تريد ان تملاء الكمبو بوكس قم بمناداة الأجراء أعلاه , و يكون ذلك فقط بكتابة اسمة و الافضل ان يكون أو ان تكون المناداة في حدث تحميل النموزج

Fillcombo

و بالتوفيق ان شاء الله ...

بشكركم جميعا اخوتى ساطبق ما قولتو عليه

الله الموفق

MRAHMED2100@YAHOO.COM