• 0
المبدعه الصغيره

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

سؤال

اخواني الاعزاء تحيه طيبه .

انا فعلا تعبت جدا في محاولتي لربط كمبو بوكس بقاعدة بيانات ولكني فشلت

فاذا كان احد ان يساعدني في كيفية فعل ذالك سواء بكود او ملف جاهز اكون شاكره له جدا

ياريت منفضلكم ساعدوني اختكم بحاجه الى هذا جدا B) B) B) B)

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

8 إجابة على هذا السؤال .

  • 0

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

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

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

:lol:

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم

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

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 هو اسم الحقل المراد ادراجة في الكمبو

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

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

تم تعديل بواسطه إبراهيم الطيب
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0
الاول هو كيف لي ان ادرج الحقل الى الكمبو بوكس من القاعده دون تكرار

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

والثاني

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 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

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

تم تعديل بواسطه MohamedAliSalim
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
زوار
This topic is now closed to further replies.

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .