الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

list viwe

مغلق
بدأه maram12 في 27 مارس 2006 · 6 رد · 986 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

انا قمت بعمل قاعدة بيانات على اكسس يحتوي على حقلين وقمت بربطها على الفيجوال بيسك دوت نت

و نجحت الفكرة لكن انا اريده مجرد ان يختار اي قيمة من الليست فيو او لست بوكس وتلقائيا بمجرد الاختيار

يضع قيمة الحقل الاول في التيكست بوكس الاول

وقيمة الحقل الثاني داخل التيكست بوكس الثاني

اقتباس
Dim red As OleDb.OleDbDataReader

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim LIST As ListView

        Me.OleDbConnection1.Open()

        Dim red As OleDb.OleDbDataReader

        red = Me.OleDbCommand1.ExecuteReader(CommandBehavior.CloseConnection)

        Do While red.Read

            ListBox1.Items.Add(red.GetInt32  & vbTab & red.GetString(1))

        Loop

        red.Close()

        Me.OleDbConnection1.Close()

    End Sub

http://www.almiluoooooon.com/up/uploads/8f7c77b256.jpg

http://www.almiluoooooon.com/up/uploads/fdd2d572db.jpg

تم تعديل هذه المشاركة بواسطة maram12 في 27 مارس 2006 في 16:51

#2

انا بساعدك بس ماني فاهم بالزبط اش تبغي او بالأصح حاسس اني مو قادر اربط كلامك ببعض

<span style='color:green'>سؤل ابن عباس عن علمه كيف جمعه فقال :( أوتيت لسانا سؤولا وقلبا عقولا)</span>

#3

-9

اقتباس
انا اريده مجرد ان يختار اي قيمة من الليست فيو او لست بوكس وتلقائيا بمجرد الاختيار

يضع قيمة الحقل الاول في التيكست بوكس الاول

وقيمة الحقل الثاني داخل التيكست بوكس الثاني

إذا كنت تريدين بمجرد ما تختارى القيمة من الlist box تظهر تلقائيا فى الtext box فعليك كتابة هذا الكود

 Private Sub ListBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.Click
        TextBox1.Text = ListBox1.SelectedItem()
    End Sub

وأن كنت تريدين بمجد ضغطك على الزر تظهر القيمة المختارة في الtextbox

بعد كود Me.OleDbConnection1.Close()

TextBox1.Text = ListBox1.SelectedItem()

ولكن في هذة الحالة سوف تضغطى على الزر مرتين المرة الأولى لإحضار البيانات والثانية لوضع القيمة في الtextbox طبعا بعد إختيارها من الlistbox

ولذلك أعتقد أنه من الأفضل أن تجعلي الزر لإحضار البيانات وتستخدمى الطريقة الأولى لوضع القيمة في الtextbox

-waf

تم تعديل هذه المشاركة بواسطة enjyshahin في 27 مارس 2006 في 17:55

يا حى يا قيوم برحمتك أستغيث اصلح لى شأنى كله ولا تكلنى إلى نفسى طرفة عين

اللهم أعنا على ذكرك وشكرك وحسن عبادتك

اللهم انك عفو كريم حليم تحب العفو فاعفو عنا

اللهم إنى أسألك رضاك والجنة وأعوذ بك من سخطك والنار

اللهم إرحمنا فوق الأرض وإرحمنا تحت الأرض وإرحمنا وإعتق رقابنا يوم العرض

اللهم لا تدع لنا ذنبًا إلا غفرته ولا همًا إلا فرجته ولا مريضًا ولا دينًا إلا قضيته ولا عيبا إلا سترته ولا حاجًا هى لك رضا إلا قضيتها

اللهم انى أسألك موجبات رحمتك وعزائم مغفرتك والسلامة من كل إثم والغنيمة من كل بر والفوز بالجنة و النجاة من النار اللهم أمين يا رب العالمين

#4

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

جربت الطريقة لكن ظهر لي خطأ

red = Me.OleDbCommand1.ExecuteReader(CommandBehavior.CloseConnection)

2c0cedd6f3.jpg

شكرا جزيلا على المساعدة

#5

ممكن ترفقى البرنامج حتى يمكننى المساعدة

يا حى يا قيوم برحمتك أستغيث اصلح لى شأنى كله ولا تكلنى إلى نفسى طرفة عين

اللهم أعنا على ذكرك وشكرك وحسن عبادتك

اللهم انك عفو كريم حليم تحب العفو فاعفو عنا

اللهم إنى أسألك رضاك والجنة وأعوذ بك من سخطك والنار

اللهم إرحمنا فوق الأرض وإرحمنا تحت الأرض وإرحمنا وإعتق رقابنا يوم العرض

اللهم لا تدع لنا ذنبًا إلا غفرته ولا همًا إلا فرجته ولا مريضًا ولا دينًا إلا قضيته ولا عيبا إلا سترته ولا حاجًا هى لك رضا إلا قضيتها

اللهم انى أسألك موجبات رحمتك وعزائم مغفرتك والسلامة من كل إثم والغنيمة من كل بر والفوز بالجنة و النجاة من النار اللهم أمين يا رب العالمين

#6

شكرا جزيلا

على مساعدتك

اريد تطبيق هذه الفكرة على لست بوكس او ليست فيو

_____________.rar

_____________.rar

#7

السلام عليكم

الحل بسيط فقط عندما تضع الداتا سورس اختار اسم الداتا الست و لا تختار اسمالداتا ست . اسم الجدول

ستلاحظ انه تلقائيا سيتم تحويل الحقل المقابل للحقل المختار في الكمبو بوكس

ارجو ان اكون قد افدتك

:D

هذا الموضوع مغلق.

مواضيع مشابهة