[هاوي1995]

السلام عليكم ورحمة الله وبركاته
اخواني عندي كومبو بكس 1 واريد اعبئيه من قاعدة بيانات من العمود رقم 5 مثلا

ماهي الطريقة لتعبئته عن طريق الكود وليس عن طريق المعالج

[سعود]

عن طريق خاصيتي:
DataSource
DisplayMember

[هاوي1995]

(23-09-16, 09:13 PM)سعود كتب : عن طريق خاصيتي:
DataSource
DisplayMember

ممكن الكود

[أبو عمر]

لا

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

[جميل علي]

PHP كود :

   Try
            Dim sql As String = "Select * from ta"
            Dim da1 As New SqlDataAdapter(sql, con)
            ds1.Clear()
            ComboBox3.DataSource = Nothing
            da1.Fill(ds1, "اسم الجدول")
            ComboBox3.DataSource = ds1.Tables("اسم الجدول")
            ComboBox3.DisplayMember = "اسم الحقل"
            ComboBox3.ValueMember = "اسم الحقل"
           Con.Close()
        Catch ex As Exception
            MsgBox(Err.Description)
 Con.Close()
        End Try 


[جميل علي]

او شاهد هذا الرابط
http://vb4arb.com/vb/thread-16110.html

[هاوي1995]

(24-09-16, 12:03 AM)khodor1985 كتب : بتقنية Linq لغة سي شارب :

PHP كود :

List<Employee> EmpList = context.Employees.ToList();
EmpList.ForEach(c=> {
cmbTest.Items.Add(Field1)
}); 


الطريقة صعبة جدا
الافضل نبقى مع اللغه الاسهل والتي احنا دايم متعودين عليها

تسلم مشرفنا على الاضافة الرائعة التي يستفيد منها محبي لغة السي شارب

[سعود]

مثال بسيط جدا

آمل ان تجد به المطلوب

PHP كود :

Public Class Form1
    Dim con As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=db.accdb")
    Dim dt As DataTable
    Dim da As OleDb.OleDbDataAdapter
    Dim cm As OleDb.OleDbCommandBuilder

    Private Sub gd()
        dt = New DataTable
        da = New OleDb.OleDbDataAdapter("select * from tb where countryid=0", con)
        cm = New OleDb.OleDbCommandBuilder(da)
        da.Fill(dt)
        countries.DataSource = dt
        countries.DisplayMember = "countryorcity"
    End Sub
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        gd()
    End Sub

    Private Sub countries_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles countries.SelectedIndexChanged
        If dt.Rows.Count <= 0 Then Exit Sub
        If countries.Items.Count <= 0 Then Exit Sub
        Dim dt2 As New DataTable
        Dim da2 As New OleDb.OleDbDataAdapter("select * from tb where countryid=" & dt.Rows(countries.SelectedIndex)(0), con)
        da2.Fill(dt2)
        cities.DataSource = dt2
        cities.DisplayMember = "countryorcity"
    End Sub

   
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Dim a As String = InputBox("أكتب اسم دولة")
        If a.ToString.Trim = "" Then Return

        Dim row As DataRow = dt.NewRow
        row(1) = a
        row(2) = 0
        dt.Rows.Add(row)
        da.Update(dt)
        countries.Refresh()
    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim a As String = InputBox("أكتب اسم مدينة")
        If a.ToString.Trim = "" Then Return

        Dim row As DataRow = dt.NewRow
        row(1) = a
        row(2) = dt.Rows(countries.SelectedIndex)(0)
        dt.Rows.Add(row)
        da.Update(dt)
        gd()
        cities.Refresh()

    End Sub
End Class 


[هاوي1995]

ليه تتعاملون مع الاوامر المتصلة نفس
da.fill
da.updates

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

[سعود]

(24-09-16, 10:19 AM)هاوي1995 كتب : ليه تتعاملون مع الاوامر المتصلة نفس
da.fill
da.updates

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

مافهمت سؤالك الاول لكن da.fill و update هذي لتعبئة قاعدة البيانات المؤقتة او الجدول المؤقت وهكذا لن يكون متصلا لان التحديثات تكون متاخرة.
 ماذا تعني بـ 

إقتباس :اوامر السيكوال