[Al Wilaya]

السلام عليكم
الرجاء إفادتنا بكود ملء كومبوبوكس بعامودين أو أكثر , وكود إخفاء العامود الأول لأنني سأستخدم الكومبوبوكس بعملية بحث , وسيكون العامود الأول عبارة عن كود لنوع البحث الذي أريد تحديده من القائمة

[alsalamoni]

(26-01-20, 02:44 PM)Al Wilaya كتب : السلام عليكم
الرجاء إفادتنا بكود ملء كومبوبوكس بعامودين أو أكثر , وكود إخفاء العامود الأول لأنني سأستخدم الكومبوبوكس بعملية بحث , وسيكون العامود الأول عبارة عن كود لنوع البحث الذي أريد تحديده من القائمة

اربط الكمبوبوكس بالجدول وحدد اسم العودين مثل

كود :

combobox1.datasource = dtable
combobox1.displaymember = "empname"
combobox1.valuemember="empid"

عند الاختيار تجد كود البحث في combobox1.selectedvalue

[alsalamoni]

(29-01-20, 06:33 PM)Al Wilaya كتب :

(29-01-20, 04:28 PM)alsalamoni كتب :

(26-01-20, 02:44 PM)Al Wilaya كتب : السلام عليكم
الرجاء إفادتنا بكود ملء كومبوبوكس بعامودين أو أكثر , وكود إخفاء العامود الأول لأنني سأستخدم الكومبوبوكس بعملية بحث , وسيكون العامود الأول عبارة عن كود لنوع البحث الذي أريد تحديده من القائمة

اربط الكمبوبوكس بالجدول وحدد اسم العودين مثل

كود :

combobox1.datasource = dtable
combobox1.displaymember = "empname"
combobox1.valuemember="empid"

عند الاختيار تجد كود البحث في combobox1.selectedvalue

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

حتى انا لم افهم كيف بتجيب الجدول و الاعمده والكود وضعته لك بشكل عام
ضع الكود اللي عندك لاعدل عليه

[alsalamoni]

(29-01-20, 06:48 PM)Al Wilaya كتب :

(29-01-20, 06:36 PM)alsalamoni كتب :

(29-01-20, 06:33 PM)Al Wilaya كتب :

(29-01-20, 04:28 PM)alsalamoni كتب :

(26-01-20, 02:44 PM)Al Wilaya كتب : السلام عليكم
الرجاء إفادتنا بكود ملء كومبوبوكس بعامودين أو أكثر , وكود إخفاء العامود الأول لأنني سأستخدم الكومبوبوكس بعملية بحث , وسيكون العامود الأول عبارة عن كود لنوع البحث الذي أريد تحديده من القائمة

اربط الكمبوبوكس بالجدول وحدد اسم العودين مثل

كود :

combobox1.datasource = dtable
combobox1.displaymember = "empname"
combobox1.valuemember="empid"

عند الاختيار تجد كود البحث في combobox1.selectedvalue

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

حتى انا لم افهم كيف بتجيب الجدول و الاعمده والكود وضعته لك بشكل عام
ضع الكود اللي عندك لاعدل عليه

أخي الكريم
أنا لدي جدول في الأكسس وفيه 3 أعمدة ، العامود الأول هو ID  
أريد أن أستدعي 3 أعمدة إلى COMBOBOX  على أن تظهر الأعمدة الثلاثة في ال COMBOBOX 
وسيكون ID هو الأساس في عملية البحث لاحقا

ضع مشروعك عشان اعدل عليه

[Al Wilaya]

(29-01-20, 06:49 PM)alsalamoni كتب :

(29-01-20, 06:48 PM)Al Wilaya كتب :

(29-01-20, 06:36 PM)alsalamoni كتب :

(29-01-20, 06:33 PM)Al Wilaya كتب :

(29-01-20, 04:28 PM)alsalamoni كتب : اربط الكمبوبوكس بالجدول وحدد اسم العودين مثل

كود :

combobox1.datasource = dtable
combobox1.displaymember = "empname"
combobox1.valuemember="empid"

عند الاختيار تجد كود البحث في combobox1.selectedvalue

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

حتى انا لم افهم كيف بتجيب الجدول و الاعمده والكود وضعته لك بشكل عام
ضع الكود اللي عندك لاعدل عليه

أخي الكريم
أنا لدي جدول في الأكسس وفيه 3 أعمدة ، العامود الأول هو ID  
أريد أن أستدعي 3 أعمدة إلى COMBOBOX  على أن تظهر الأعمدة الثلاثة في ال COMBOBOX 
وسيكون ID هو الأساس في عملية البحث لاحقا

ضع مشروعك عشان اعدل عليه

لقد وضعته

[alsalamoni]

(29-01-20, 07:30 PM)Al Wilaya كتب :

(29-01-20, 06:49 PM)alsalamoni كتب :

(29-01-20, 06:48 PM)Al Wilaya كتب :

(29-01-20, 06:36 PM)alsalamoni كتب :

(29-01-20, 06:33 PM)Al Wilaya كتب : أخي الكريم السلام عليكم
الرجاء إرسال الكود كاملا لو سمحت لأنني لم أفهم كيفية التنفيذ ولك الشكر الجزيل

حتى انا لم افهم كيف بتجيب الجدول و الاعمده والكود وضعته لك بشكل عام
ضع الكود اللي عندك لاعدل عليه

أخي الكريم
أنا لدي جدول في الأكسس وفيه 3 أعمدة ، العامود الأول هو ID  
أريد أن أستدعي 3 أعمدة إلى COMBOBOX  على أن تظهر الأعمدة الثلاثة في ال COMBOBOX 
وسيكون ID هو الأساس في عملية البحث لاحقا

ضع مشروعك عشان اعدل عليه

لقد وضعته

للاسف لا يوجد في المشروع اي كود للتعديل عليه

---

لكن تكرم عيونك اعمل انا الكود

هذا الكود للكمبو الاول اما الباقي لم افهم ما تريد

كود :

Imports System.Data.OleDb

Public Class Form1

    Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\New Microsoft Access Database.accdb;Persist Security Info=True")

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Me.RightToLeft = Windows.Forms.RightToLeft.Yes
        Me.RightToLeftLayout = True
        Me.ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList

        Dim dt As New DataTable
        Dim da As New OleDbDataAdapter("SELECT ID,(STR(ID)+': '+NAM+' ('+AGE+')') AS P FROM PERSON ", con)
        da.Fill(dt)
        Me.ComboBox1.DataSource = dt
        Me.ComboBox1.DisplayMember = "P"
        Me.ComboBox1.ValueMember = "ID"

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim dt As New DataTable
        Dim da As New OleDbDataAdapter("SELECT * FROM PERSON WHERE ID=" + Me.ComboBox1.SelectedValue.ToString, con)
        da.Fill(dt)
        If dt.Rows.Count = 1 Then
            Me.DataGridView1.Rows.Add(dt.Rows(0).Item("ID"), dt.Rows(0).Item("NAM"), dt.Rows(0).Item("AGE"))
        End If

    End Sub

End Class

[Al Wilaya]

بارك الله بك أخي الكريم
وهذا ما كنت أصبو إليه بالضبط
وشكرا جزيلا لك على تعبك وندعو الله لك بالتوفيق وزيادة في العلم
------------------------------------
أعذرني لقد أرسلت لك سابقا الملف فارغاً من الكودات بالخطأ
------------------------------------


وسوف أرسل لك الملف الذي كنت سوف أرسله لك , للعلم فقط

بارك الله بمسعاك لكل خير

[alsalamoni]

(29-01-20, 08:26 PM)Al Wilaya كتب : بارك الله بك أخي الكريم
وهذا ما كنت أصبو إليه بالضبط
وشكرا جزيلا لك على تعبك وندعو الله لك بالتوفيق وزيادة في العلم
------------------------------------
أعذرني لقد أرسلت لك سابقا الملف فارغاً من الكودات بالخطأ
------------------------------------


وسوف أرسل لك الملف الذي كنت سوف أرسله لك , للعلم فقط

بارك الله بمسعاك لكل خير

العفو اخي