تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] طريقة ملئ COMBOBOX بقواعد البيانات الموجودة على السيرفر
#1
طريقة ملئ كومبو بوكس بقواعد البيانات الموجودة على السيرفر
استخدم هذه الدالة :

كود :
Public Sub Charger_CB(cmd As String, tableau As String, cb As ComboBox, val As String)
       Try
           If myConnection.State = ConnectionState.Closed Then
               myConnection.Open()
           End If
           ds = New DataSet 'vider ds
           Dim da As New OleDbDataAdapter(cmd, myConnection)
           da.Fill(ds, tableau)
           dv = New DataView(ds.Tables(tableau))
           cb.DataSource = dv
           cb.ValueMember = val
           cb.DisplayMember = val
           myConnection.Close()
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
   End Sub


مثال  على كيفية إستدعاء الدالة :

كود :
Charger_CB("SELECT * FROM tbPersonnel", "Matricule", ComboBoxAddIntervenantPrev, "Matricule")


الدالة لها 4 عناصر :
الأول : الكويري : "SELECT * FROM tbPersonnel"
الثاني : إسم العمود في قاعدة البيانات : "Matricule"
الثالث : إسم اكمبوبكس : ComboBoxAddIntervenantPrev
الرابع : إسم العمود في قاعدة البيانات : "Matricule"



دعواتكم بالتوفيق

{ وَقُل رَّبِّ زِدْنِي عِلْمًا }

ساهم دائماً فى تقديم    لكل من يقوم بالمساهمة
فى حل اى مشكلة او استفسار لديك مع اضافة رد بشكره ودعوة له
فالجميع هنا يعمل على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
ساهم دائماً فى تقديم    لكل من يقوم بالمساهمة
فى حل اى مشكلة او استفسار

الرد
#2
السلام عليكم
جزاك الله خيرا علي الكود الجميل
بس في ملاحظات
بعض المتغيرات مش شعالة ودا لانها مش متعرفةزي مثلا DA فياريت التوضيح
لاني كتبت الكود وتقريبا اغلبهم عايز اعلان
وشكرا
الرد


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طريقة عمل برنامج لارسال رسائل sms ryrryt22@gmail.com 3 378 06-11-20, 04:24 PM
آخر رد: kiki
  [سؤال] اريد كود او طريقة رجاءا Mina Botros 0 20,450 11-04-20, 05:22 AM
آخر رد: Mina Botros
  [كود] طريقة إضافة زر للفورم عن طريق الكود + في حدث معين mohammed moh 20 14,731 06-02-20, 03:00 PM
آخر رد: asemshahen5
Heart [سؤال] طريقة سحاب النصوص من كمبوبوكس دخل الموقع Ali Edal 4 736 30-01-20, 12:33 AM
آخر رد: Ali Edal
  [كود] أبسط طريقة للبحث في الــDataTable سعود 2 1,155 12-08-19, 05:27 PM
آخر رد: سعود
  [كود] خاص بقواعد البيانات ابو يوسف 6 3,658 02-06-19, 08:32 PM
آخر رد: Abdalazim19
  [VB.NET] تشغيل قاعدة البيانات التي على السيرفر من اي جهاز على الشبكة ahmed saleh 4 4,031 10-03-19, 09:49 AM
آخر رد: معتز حسن
  [كود] هذا كود للكمبو بوكس يقوم بعرض البيانات داخل التيكست بوكس حسب الرقم احمد عبد الحكيم 5 3,597 11-11-18, 01:24 AM
آخر رد: عماد السيد
  [كود] طريقة ملئ DATAGRIDVIEW بقواعد البيانات الموجودة على السيرفر galas 0 1,250 13-08-18, 04:17 PM
آخر رد: galas
  [VB.NET] مطلوب كودات تصدير البيانات الناتجه من تكس بوكس الى الاكسل abdulla omran 0 1,142 18-11-17, 10:26 PM
آخر رد: abdulla omran

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم