ربط كمبو بوكس بقاعدة بيانات

السلام عليكم اختي / المبدعه الصغيره

اليك هذا الملف المرفق إن شاء الله تجدي فيه ماتريديه لقد برمجته سابقا

فيه كيفية ادراج حقل وحساب عدد السجلات التي تم ادراجها للكمبو و الوقوف على السجل التي تريديه تحياتي لكي .

تحميل حقل الى الكمبو بوكس.zip

ساجرب المثال وارد عليك لاحقا وعلى اي حال كانت النتيجه مشكووووووووووور

:lol:

اولا اشكرك شكر كثير على الكود فعال وتمام جدا بس لي لديك سؤالين لو تسمح لي

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

السلام عليكم

اقتباس

الاول هو كيف لي ان ادرج الحقل الى الكمبو بوكس من القاعده دون تكرار

Public Sub loadDataCmb()
Combo1.Clear
SQL = "Select A_Name from Tbl_Aahd GROUP BY A_Name"
Set rs = db.OpenRecordset(SQL) 
With rs
    Do Until .EOF
       Combo1.AddItem !A_Name
       .MoveNext 'Next Record
       DoEvents  
  Loop
  .Close  
 End With

و عند الاستدعاء فقط

loadDataCmb

طبعا Tbl_Aahd هو الجدول و A_Name هو اسم الحقل المراد ادراجة في الكمبو

اما السؤال الثاني ......................... :)

فهو للبروفات :)

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

اقتباس

الاول هو كيف لي ان ادرج الحقل الى الكمبو بوكس من القاعده دون تكرار

السؤال الاول قام الاخ الصديق ابراهيم الطيب بالاجابه عليه .

والثاني

اقتباس

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

فانا قمت عمل هذا ببرنامج اسمه Xara3D 6.0 وليس بالفوتو شوب ولو عيزه رابط التحميل اليك رابط التحميل تحياتي لكي.

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

السلام عليكم

بعد وضع كلمة DoEvents في المكان اللي انت حددته لم يحدث شي من نتحية عدم تكرار البيانات داخل كمبو بوكس

انظر الكود بتاعى

SQL = "select * from addition"
Re.Open SQL, Connection, adOpenDynamic, adLockReadOnly


If Re.EOF And Re.BOF Then

Exit Sub

Else


Do While Re.EOF = False


Combo2.AddItem Re(24)



Re.MoveNext
DoEvents
Loop


End If

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