تعبئة textbox عن طريق combo box المرتبطة بالكود بقاعدة البيانات

أخواني المبرمجين رجائا .......... ليزال سؤالي قايما ارجو الرد ان تفضلتم

السلام عليكم

بالنسبة لطريقة تعبئة الكمبو الطريقة الاخرى كتالي

for i as onteger = 0 to tabel.count -1
combobox1.items.add(tabel(i).Fieldname
next

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

والتي تقوم بالدوران على عدد العناصر في الجدول ثم وضعها في الكمنو

لكن بصراحة بالنسبة لي هناك حلقة مفقودة لا اعرف ما هي ولكن سوف احاول

بالنسبة لطلبك الثاني

يمكنك ان تقوم بأنشاء جملة استعلام حسب الحقل الذي ملئته بالكمبو

ثم تحضر البيانات وتقوم بوضعها بالتكست

كتالي

data.textcommand = "Select * from tabelname where id = ' " & combobox1.text & " ' "
data.excuteQuerye()
textbox1.bindingdata.add("text",dataset,"tabelname")

هذا الكود سوف يساعد

بالتوفيق

السيد عبد الرحمن المرشود

شكرا جزيلا على مداخلتك الموجزة و المفيدة و على مساهتك لايجاد حل لسؤالي ,,,,, لكن ارجو منك ان تفضلت بان تطبق هذا الحل على المثال المرفقان ان امكن لاني اجد صعوبة في تطبيقه ولك جزيل الشكر مجددا

almohib_alsaghir كتب:

السيد عبد الرحمن المرشود

شكرا جزيلا على مداخلتك الموجزة و المفيدة و على مساهتك لايجاد حل لسؤالي ,,,,, لكن ارجو منك ان تفضلت بان تطبق هذا الحل على المثال المرفقان ان امكن لاني اجد صعوبة في تطبيقه ولك جزيل الشكر مجددا

السلام عليكم

اخي الفاضل انا اعتذر على طول الغياب والسبب هو مشاكل بجهازي

إن شاء الله سوف ارفقك لك الملف المطلوب

بالتوفيق

ربنا يعطيك العافية .............. لا زلت انتظر الرد يا عزيزي مشكور

السلام عليكم شباب

الأخ عبدالرحمن المرشود

ارجوا تكملة الموضوع للأهمية

السلام عليكم و رحمة الله و بركاته

انا اعمل على نسخة 2010 هذا كودك اللي في المثال مع تعديل صغير

Imports System.Data
Imports System.Data.OleDb
Public Class Form1

    Public constr As String = " provider = microsoft.ace.oledb.12.0;" & "data source = " & Application.StartupPath & "\md.accdb"
    Dim conn As New OleDbConnection(constr)
    Dim sqlstr As String = "select * from inf_cors"
    Dim dataset1 As New DataSet
    Dim bind As New BindingSource

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        conn.Open()
        Dim dataadapter1 As New OleDbDataAdapter(sqlstr, conn)
        dataadapter1.Fill(dataset1, "inf_cors")
        conn.Close()
        fill_comb()

        bind = New BindingSource(dataset1, "inf_cors")

        bindtexts()
    End Sub


    Sub fill_comb()

        ComboBox1.DataSource = dataset1.Tables("inf_cors")
        ComboBox1.DisplayMember = "na_cors"
        ComboBox1.ValueMember = "ID"
    End Sub


    Sub bindtexts()
        TextBox1.DataBindings.Add(New Binding("Text", dataset1.Tables("inf_cors"), "na_cors"))
        TextBox2.DataBindings.Add(New Binding("Text", dataset1.Tables("inf_cors"), "na_cen"))

    End Sub

End Class

السلام عليكم جميعا

اوجه اعتذار للاخ almohib_alsaghir وذلك لطول غيابي وتركي للموضوع والمنتدى لفترة وذلك

لعدم تفرغي بسبب الجامعة

وإن شاء الله سوف اكمل الموضوع مع مثال كما قلت سابقا وهذا وعد

بالتوفيق للجميع

السلام عليكم

الاخ العزيز عبدالرحمن المرشود

نحن في انتظارك وشكراً

السلام عليكم

هذا طلبك بالكامل

بالتوفيق

fill combobox with code.rar