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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] اريد كيفية عمل اتصال بموقع معين ramygamalvb 3 655 13-08-19, 02:24 PM
آخر رد: dasktop
Lightbulb [سؤال] كيفية جعل textbox يكتب ارقام الهاتف بوضع علامة بعد كل رقمين الرائد 3 93 07-08-19, 11:18 AM
آخر رد: الرائد
  طلب كود معين MOSTAFA.KAMEL 4 728 19-07-19, 02:04 AM
آخر رد: bakriano30@yahoo.com
  [VB.NET] عندما يكون حقل معين في الداتا جريد فيو ممتلا يمنع التعديل khairallah 3 165 13-07-19, 10:24 AM
آخر رد: ابراهيم ايبو
  [VB.NET] سؤال حول فرز البيانات في Combobox Al Wilaya 5 268 11-07-19, 12:12 AM
آخر رد: Al Wilaya
  عمل امر معين فى زر كل مدة معينة! mostafa nada 2 139 07-07-19, 07:58 PM
آخر رد: mostafa nada
  الوصول الى مسار مجلد معين mostafa nada 5 239 29-06-19, 07:50 PM
آخر رد: سامي محمد
  الموقع لا بفتح علي خط تليفوني معين ويفتح مع خط اخر atefkhalf2004 3 169 25-06-19, 08:57 PM
آخر رد: wared
  اخفاء مؤشر الكتابة من TEXTBOX أبويحيى الجبلاوي 2 171 19-06-19, 03:39 PM
آخر رد: أبويحيى الجبلاوي
  البحث بين تاريخين لاسم معين alshandodi 9 376 18-06-19, 12:06 PM
آخر رد: elgokr

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


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