تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  الموقع لا بفتح علي خط تليفوني معين ويفتح مع خط اخر atefkhalf2004 3 56 أمس, 08:57 PM
آخر رد: wared
  اخفاء مؤشر الكتابة من TEXTBOX أبويحيى الجبلاوي 2 70 19-06-19, 03:39 PM
آخر رد: أبويحيى الجبلاوي
  البحث بين تاريخين لاسم معين alshandodi 9 215 18-06-19, 12:06 PM
آخر رد: elgokr
  كيفية استخدام زر في لوحة المفاتيح لتطبيق امر معين Emam emam 5 175 11-06-19, 04:27 AM
آخر رد: Emam emam
  [VB.NET] طلب كود مقارنة إستعلام مع textbox asadtaif 5 161 09-06-19, 01:27 PM
آخر رد: ابراهيم ايبو
  [سؤال] جعل textbox عدد صحيح وعددين عشريين فقط sabil_mart 4 153 05-06-19, 12:57 AM
آخر رد: عبد العزيز البسكري
  [سؤال] كيف اجلب احداثيات الماوس بالنسبة لكونترول معين ولتكن صورة ابراهيم ايبو 5 174 31-05-19, 04:15 AM
آخر رد: sami4
  مقارنة بين قيمتي textbox وحفظ الخطأ في جدول قاعدة بيانات ahmedfa71 0 111 24-04-19, 12:19 PM
آخر رد: ahmedfa71
  formatage لرقم وفق شرط معين ahmedfa71 8 199 11-04-19, 01:50 PM
آخر رد: elgokr
  [VB.NET] [تم الحل] جلب line الذي يحتوي على نص معين DK-x 2 153 09-04-19, 11:11 PM
آخر رد: DK-x

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


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