[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