+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] محتويات Textbox تتاثر باختيار كائن معين من Combobox (/showthread.php?tid=28778)
محتويات Textbox تتاثر باختيار كائن معين من Combobox - mr_hso - 26-02-19
الاخوة الافاضل
السلام عليكم ورحمة الله وبركاته
اسعد الله لحظاتكم
لدي مشروع فيجول بيسك مرتبط بقاعدة بيانات اكسيسبها جدول اسمه 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 ClassRE: محتويات Textbox تتاثر باختيار كائن معين من Combobox - mr_hso - 26-02-19
السادة اعضاء المنتدي المتميز جدا جدا جدا
شكرا لكم على كل ما يحتويه المنتدي من علم وجزاكم الله خيرا
بالنسبة لسؤالي لقد وجدة الحل فى هذه المشاركة
انشرها لكم لتعم الفائدة
http://vb4arb.com/vb/showthread.php?tid=10978
وتقبلوا تحياتي
RE: محتويات Textbox تتاثر باختيار كائن معين من Combobox - baha - 27-02-19
وعليكم السلام ورحمة الله وبركاته
يمكنك الاستفادة من هذا الكود
كود :
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");أتمنى لك التوفيق
RE: محتويات Textbox تتاثر باختيار كائن معين من Combobox - mr_hso - 05-03-19
(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");
أتمنى لك التوفيق
جزاك الله خيراً