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

السلام عليكم ورحمة الله وبركاته
هذا مثال لما طلبته اخي الكريم قم بتغيير اسم السيرفر فقط حسب الاسم الذي عندك


الملفات المرفقة
.rar   fill_Combo_DB.rar (الحجم : 66.8 ك ب / التحميلات : 27)
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
تم الشكر بواسطة: elgokr
#3
كود :
Dim cnn As New SqlConnection("Data Source=.\SQLEXPRESS;Integrated Security=True;User Instance=True")
Dim da As New SqlDataAdapter("SELECT name FROM master.dbo.sysdatabases WHERE dbid>6",cnn)
Dim dt As New DataTable
da.Fill(dt)
ComboBox1.DataSource=dt
ComboBox1.DisplayMember="name"
الرد }}}
#4
استخدم هذه الدالة :


كود :
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 عناصر :
  1. الأول : الكويري : "SELECT * FROM tbPersonnel"
  2. الثاني : إسم العمود في قاعدة البيانات : "Matricule"
  3. الثالث : إسم اكمبوبكس : ComboBoxAddIntervenantPrev
  4. الرابع : إسم العمود في قاعدة البيانات : "Matricule"

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

الرد }}}
تم الشكر بواسطة: elgokr , elgokr


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  محتاج طريقة لتنسيق نص الرسالة المرسلة إلى الواتس اب new_programer 2 163 04-03-24, 07:15 AM
آخر رد: new_programer
  تظليل التكست بوكس عند وضع المؤشر مصمم هاوي 2 142 02-03-24, 08:48 AM
آخر رد: مصمم هاوي
  بحث بالكومبو بوكس لا ى جزء من النص Lathe1 3 440 28-02-24, 02:59 AM
آخر رد: معاند الحظ
  [VB.NET] حل مشكلة الاتصال بقواعد البيانات access loay775 2 158 25-02-24, 06:29 AM
آخر رد: loay775
  سؤال عن عملية حذف سجل من قاعدة البيانات assuhimi 3 249 11-02-24, 08:43 PM
آخر رد: assuhimi
  طريقة اجراء نسخة احتياطية و استرجاعها ؟ Osama NY 2 461 07-02-24, 08:59 PM
آخر رد: Kamil
  [VB.NET] منع تكرار البيانات في عند الادخال مبرمج صغير 1 2 255 24-01-24, 05:18 PM
آخر رد: مبرمج صغير 1
  [VB.NET] مساعدة في استدعاء البيانات معينه من form الأول إلى form 2 بدون التعديل loay775 2 273 18-01-24, 05:04 PM
آخر رد: loay775
  [VB.NET] إعادة استدعاء البيانات من قاعدة بيانات اكسس والاهم الصورة مبرمج صغير 1 1 273 13-01-24, 01:17 PM
آخر رد: مبرمج صغير 1
  ماهي طريقة نقل محتويات checkedlistbox الى داتاقريدفيو صالح عبدالله 3 253 06-01-24, 03:20 PM
آخر رد: Kamil

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


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