تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] محتويات Textbox تتاثر باختيار كائن معين من Combobox
#1
الاخوة الافاضل
السلام عليكم ورحمة الله وبركاته
اسعد الله لحظاتكم
لدي مشروع فيجول بيسك مرتبط بقاعدة بيانات اكسيس
بها جدول اسمه stat (الحالة) مقسم الى (stat_code) و  (stat_name) 
فى الفورم تم ربط الــ Combobox  بعمود (stat_name)
كل ما اريده هو عندما اختار اسم الحالة (مستمر - منتهى - جاري التجديد) من الــ Combobox يظهر فى الــ Textbox الكود الخاص به فى الجدول
وشكرا لكم
كود :
Imports System.Data.OleDb
Public Class lett
    Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=letdb.mdb")
    Dim da As New OleDbDataAdapter()
    Dim dt As New DataTable
    Sub save_data()
        Dim save As New OleDbCommandBuilder(da)
        save.QuotePrefix = "["
        save.QuoteSuffix = "]"
        da.Update(dt)
        dt.AcceptChanges()
    End Sub
    Sub load_data()
        Dim dt As New DataTable
        da = New OleDbDataAdapter("select * from LETTERS", con)
        da.Fill(DT)
        Dim dtJobTicketNo As New DataTable
        Dim cmd As New OleDbCommand("select * from LETTERS where let_code =" & TextBox1.Text & "", con)
        Dim dcJobTicketNo As New OleDb.OleDbCommand("SELECT MAX(let_code)+1 AS JobTicketNo from LETTERS", con)
        con.Open()
        TextBox1.Text = dcJobTicketNo.ExecuteScalar
        con.Close()
        filldata1()
    End Sub
    Sub filldata1()
        da = New OleDbDataAdapter("select * from stat", con)
        da.Fill(dt)
        ComboBox3.DataSource = dt
        ComboBox3.DisplayMember = "stat_name"
    End Sub
    Private Sub lett_load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        load_data()
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Close()
    End Sub
End Class
الرد
تم الشكر بواسطة: elgokr , baha
#2
السادة اعضاء المنتدي المتميز جدا جدا جدا
شكرا لكم على كل ما يحتويه المنتدي من علم وجزاكم الله خيرا

بالنسبة لسؤالي لقد وجدة الحل فى هذه المشاركة
انشرها لكم لتعم الفائدة
http://vb4arb.com/vb/showthread.php?tid=10978
وتقبلوا تحياتي
الرد
تم الشكر بواسطة: elgokr , baha
#3
وعليكم السلام ورحمة الله وبركاته

يمكنك الاستفادة من هذا الكود
كود :
SqlConnection con = new SqlConnection(connString);
SqlDataAdapter da = new SqlDataAdapter("SELECT * FROM stat", con);
DataSet ds = new DataSet();
da.Fill(ds, "stat");
ComboBox3.DataSource = ds.("stat")
        ComboBox3.DisplayMember = "stat_name"
textBox1.DataBindings.Add("text", ds, "stat.stat_code");



أتمنى لك التوفيق
الرد
تم الشكر بواسطة: elgokr , mr_hso
#4
(27-02-19, 02:43 AM)baha كتب : وعليكم السلام ورحمة الله وبركاته

يمكنك الاستفادة من هذا الكود
كود :
SqlConnection con = new SqlConnection(connString);
SqlDataAdapter da = new SqlDataAdapter("SELECT * FROM stat", con);
DataSet ds = new DataSet();
da.Fill(ds, "stat");
ComboBox3.DataSource = ds.("stat")
        ComboBox3.DisplayMember = "stat_name"
textBox1.DataBindings.Add("text", ds, "stat.stat_code");



أتمنى لك التوفيق
سالمت وسالِمت يداك اخى بهاء
جزاك الله خيراً
الرد
تم الشكر بواسطة: baha , baha



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


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