[Abdelazez.Ahmad]

السلام عليكم ورحمة الله وبركاته
كل عام أنتم جميعا بخير بمناسبة عيد الأضحي المبارك أعاده عليكم جميعا بالخير والبركات

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

تظهر لي هذه الرسالة عند اختيار احد المستخدمين في لست بوكس
مع العلم قمت بارجاع البيانات لاسم المختار من لست بوك بداتاست مرة وبداتا تيل مرة أخري وتظهر نفس الرسالة

وهذا كود ربط اللست بوكس

كود :

       ' تعبئة لستبوكس المستخدمين
       '=========================================================================================
       SQL = "SELECT * FROM Tab_Users order by G_ID"
       Da = New SqlDataAdapter(SQL, connDB)
       Try
           Lst_Users.DataSource = Nothing
           Lst_Users.Text = ""

           Dt = New DataTable
           Da.Fill(Dt)

           Lst_Users.Items.Clear()
           For r = 0 To Dt.Rows.Count - 1
               Lst_Users.Items.Add(Dt(r)(1))
           Next

           Dt.Clear()
 Da.Dispose()
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
       ' تعبئة لستبوكس المستخدمين
       '=========================================================================================

وهذا كود ارجاع بيانات الاسم المختار من لست بوكس

كود :

       '\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
       'عرض كل بيانات المستخدم بعد اختياره من اللست بوكس      
       Try
           Cindx = Val(Lst_Users.SelectedIndex)
           DS = New DataSet

           SQL = "Select * from Tab_Users where G_ID = '" & Cindx & "' "

           Da = New SqlDataAdapter(SQL, connDB)
           Da.Fill(DS, "tab_Users")

           Lbl_New_User.Text = DS.Tables(0).Rows(Cindx).Item(0)
           Txt_User_Name.Text = DS.Tables("Tab_Users").Rows(Cindx).Item(1)

           Cmb_User_Kind.SelectedIndex = Val(DS.Tables(0).Rows(Cindx).Item(2))
           Txt_PWD.Text = DS.Tables("Tab_Users").Rows(Cindx).Item(4)

           If DS.Tables(0).Rows(Cindx).Item(3) = 1 Then Rdbt_User_Active.Checked = True
           If DS.Tables(0).Rows(Cindx).Item(3) = 0 Then Rdbt_User_Not_Active.Checked = True

           Da.Dispose() : Da = Nothing : closeDB()
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
       'عرض كل بيانات المستخدم بعد اختياره من اللست بوكس    
       '\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

[سعود]

اخي الكريم لما لا  تربط كل الادوات بمصدر واحد؟.
هل سؤالك نفس السؤال هنا  خصوصا ردي هذا؟.

[Abdelazez.Ahmad]

(03-09-17, 05:48 PM)سعود كتب : اخي الكريم لما لا  تربط كل الادوات بمصدر واحد؟.
هل سؤالك نفس السؤال هنا  خصوصا ردي هذا؟.

أشكرك أخي سعود نعم هو السؤال
لكني جربت اربطهم من نفس المصدر وتظهر نفس الرسالة
لكني سأجرب الأن كما بالمثال وجزاكم الله خيرا

[Abdelazez.Ahmad]

(03-09-17, 05:48 PM)سعود كتب : اخي الكريم لما لا  تربط كل الادوات بمصدر واحد؟.
هل سؤالك نفس السؤال هنا  خصوصا ردي هذا؟.

جزاك الله خيرا أخي الكريم سعود
انا ربطت اللست بوكس بالداتا تيبل ماعندي مشكلة
لكن
أريد عند اختيار اسم من اللست بوكس تظهر بياناته في التسكتات لكي يتم التعديل عليه

[سعود]

(03-09-17, 09:07 PM)Abdelazez.Ahmad كتب :

(03-09-17, 05:48 PM)سعود كتب : اخي الكريم لما لا  تربط كل الادوات بمصدر واحد؟.
هل سؤالك نفس السؤال هنا  خصوصا ردي هذا؟.

جزاك الله خيرا أخي الكريم سعود
انا ربطت اللست بوكس بالداتا تيبل ماعندي مشكلة
لكن
أريد عند اختيار اسم من اللست بوكس تظهر بياناته في التسكتات لكي يتم التعديل عليه

قصدي اخي الكريم انك مخير بين عدة امور ولقد ذكرت لك ابسطها وهي انك لو ربط مربعات النص بنفس المصدر فلن تحدث مشكلة مادام ان الداتاتيبل ليست مفرغة.
الخيار الثاني انك تربط فقط الليست بوكس وتقوم بالاسناد بالشكل التالي:

كود :

tname.text=dt(listbox1.selectedindex)(1)
mobile.text=dt(listbox1.selectedindex)(2)

---

هل تقصد هكذا؟

الملف مرفق

[Abdelazez.Ahmad]

أشكرك أخي الكريم / سعود لتعبك معي جزاكء الله خيرا
انا طبقت بالمثال المرفق ولكن توجد أخطاء كثيرة 
انا استعمل سكوال سيرفر


أنا أريد

1  - تعبئة اللست بوكس في بداية تحمل الفورم ( بدون تعبئة التكستات في الفورم لود )

2 - عند اختيار اي اسم من اللست بوكس تظهر بياناته في التكستات ليتم التعديل عليه
جزاك الله خيرا

[سعود]

(04-09-17, 03:07 AM)Abdelazez.Ahmad كتب : أشكرك أخي الكريم / سعود لتعبك معي جزاكء الله خيرا
انا طبقت بالمثال المرفق ولكن توجد أخطاء كثيرة 
انا استعمل سكوال سيرفر


أنا أريد

1  - تعبئة اللست بوكس في بداية تحمل الفورم ( بدون تعبئة التكستات في الفورم لود )

2 - عند اختيار اي اسم من اللست بوكس تظهر بياناته في التكستات ليتم التعديل عليه
جزاك الله خيرا

اخي الكريم انت لازم تعدل على المثال ... لان تعرف حتى لو المثال سويته لـ sqlserver اكيد حيكون مختلف ونقع في مشاكل اخرى ..فلذلك بارك الله فيك الطريقة واحدة مع DataTable او Dataset سواء في MicrosoftAccess او Sqlserver
 
شوف الاكواد وعدل ما يلزم ومثالي الاخير فيه اللي انت طبته لم اربط مربعات النص وانما فقط تعبئة عبر خاصية Text.

---

وجدت خطا 

كود :

 If connDB.State <> ConnectionState.Closed Then connDB.Close()
If connDB.State <> ConnectionState.Open Then connDB.Open()

---

مثالك به خليط من اكواد الاتصال المتصل و المنفصل...
حدد نوع واستمر به بدل مشاكل غلق الاتصال.

[سعود]

سويت فورم جديد وتم المطلوب

---

كود :

Public Class Form2
    Dim constring As String = "Data Source=(Local)\sqlexpress;Initial Catalog=elec;MultipleActiveResultSets=False;Trusted_Connection=True;"
    Dim con As New SqlClient.SqlConnection(constring)
    Dim dt As DataTable
    Dim da2 As SqlClient.SqlDataAdapter
    Dim cmd As SqlClient.SqlCommandBuilder
    Private Sub gd()
        dt = New DataTable
        da2 = New SqlClient.SqlDataAdapter("select * from Tab_Users", con)
        cmd = New SqlClient.SqlCommandBuilder(da2)
        da2.Fill(dt)
        ListBox1.DataSource = dt
        ListBox1.DisplayMember = dt.Columns(1).ColumnName.ToString
    End Sub
    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        gd()
    End Sub
    Private Sub ListBox1_MouseClick(sender As Object, e As MouseEventArgs) Handles ListBox1.MouseClick
        If e.Button = Windows.Forms.MouseButtons.Left Then
            TextBox1.Text = dt(ListBox1.SelectedIndex)(1)
            TextBox2.Text = dt(ListBox1.SelectedIndex)(2)
            TextBox3.Text = dt(ListBox1.SelectedIndex)(3)
        End If
    End Sub
End Class

---

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

[Abdelazez.Ahmad]

(04-09-17, 05:31 AM)سعود كتب : سويت فورم جديد وتم المطلوب

---

كود :

Public Class Form2
   Dim constring As String = "Data Source=(Local)\sqlexpress;Initial Catalog=elec;MultipleActiveResultSets=False;Trusted_Connection=True;"
   Dim con As New SqlClient.SqlConnection(constring)
   Dim dt As DataTable
   Dim da2 As SqlClient.SqlDataAdapter
   Dim cmd As SqlClient.SqlCommandBuilder
   Private Sub gd()
       dt = New DataTable
       da2 = New SqlClient.SqlDataAdapter("select * from Tab_Users", con)
       cmd = New SqlClient.SqlCommandBuilder(da2)
       da2.Fill(dt)
       ListBox1.DataSource = dt
       ListBox1.DisplayMember = dt.Columns(1).ColumnName.ToString
   End Sub
   Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       gd()
   End Sub
   Private Sub ListBox1_MouseClick(sender As Object, e As MouseEventArgs) Handles ListBox1.MouseClick
       If e.Button = Windows.Forms.MouseButtons.Left Then
           TextBox1.Text = dt(ListBox1.SelectedIndex)(1)
           TextBox2.Text = dt(ListBox1.SelectedIndex)(2)
           TextBox3.Text = dt(ListBox1.SelectedIndex)(3)
       End If
   End Sub
End Class

---

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

جزاك الله أخي الكريم / سعود
جاري التجربة

[Abdelazez.Ahmad]

نعم فاهمك لانك مرقم الأعمدة ولم تناد عليها باسماءها

كود :

       If e.Button = Windows.Forms.MouseButtons.Left Then
           TextBox1.Text = dt(ListBox1.SelectedIndex)(1)
           TextBox2.Text = dt(ListBox1.SelectedIndex)(2)
           TextBox3.Text = dt(ListBox1.SelectedIndex)(3)
       End If

ولكن لي عدة أسئلة إن استطعت إلي جوابها سبيلاً
1  - ما هو نوع الاتصال الذي استخدمته في المثال الذي تكرمت بارساله لي
2 - أنا عندي خلفية بسيطة عن الفارق بين
SqlCommandBuilder
و
SqlCommand
فلما فضلت التعامل مع SqlCommandBuilder
وما هو دور Cmd في المثال الذي أرسلته ؟

كود :

   Private Sub gd()
       dt = New DataTable
       da2 = New SqlClient.SqlDataAdapter("select * from Tab_Users", con)
       cmd = New SqlClient.SqlCommandBuilder(da2)
       da2.Fill(dt)
       ListBox1.DataSource = dt
       ListBox1.DisplayMember = dt.Columns(1).ColumnName.ToString
   End Sub