منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
سؤال في تحرير صف معين في الجدول ؟ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : سؤال في تحرير صف معين في الجدول ؟ (/showthread.php?tid=15045)

سؤال في تحرير صف معين في الجدول ؟ - Abdh111 - 09-03-16

[attachment=9759]السلام عليكم جميعا ورحمة الله وبركاته
أنا أريد اختيار اسم مستخدم من كمبوبوكس ليظهر بياناته في تكستات ليتم تحريرها ومن ثم حفظها
PHP كود :
   Private Sub bt_Edit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Edit.Click
        Edit_Or_Save = 0
        Call conecDB()

        '\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
        'عرض كل بيانات المستخدم بعد اختياره من الكمبو بوكس      
        Try
            Call initCMD()

            Dim Cindx As Integer = Val(Cmb_Users.SelectedIndex + 1)

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

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

            Txt_User_ID.Text = DS.Tables("Tab_Users").Rows(Cindx).Item(1)
            Txt_Pwd.Text = ds.Tables("Tab_Users").Rows(Cindx).Item(2)
            'Cmb_User_Kind.Text = ds.Tables("Tab_Users").Rows(0).Item(3)

            Da.Dispose()
            Da = Nothing
            closeDB()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        'تعبئة الكمبيو بوكس من قاعدة البيانات
        '\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
        'End Sub

    End Sub 


مع العلم أن هذه الكمبو بوكس التي أقوم بالاختيار منها تم تعبئتها في الفورم لود من نفس الجدول ( المستخدمين )


عند الضغط علي زر تحرير تظهر لي الرسالة التالية
بالصورة

RE: سؤال في تحرير صف معين في الجدول ؟ - ناجي إبراهيم - 10-03-16

السلام عليكم...

حسب ما فهمت، الـ ComboBox يحتوي على أسماء المستخدمين، و أنت بالتالي تريد البحث عن المستخدم المحدد باسمه لإحضار بياناته. لكن ما هو مكتوب أنك تأخذ رقم العنصر + 1 من الـ ComboBox و المفروض أن تقرأ الاسم المحدد فيه، ثم تستعمله في جملة SELECT:

PHP كود :
Dim UName As String = Cmb_Users.SelectedItem.ToString
SQL = "SELECT * FROM Tab_Users WHERE (u_name = '" & UName & "')" 

* طبعاً بدل u_name ستضع اسم الحقل أو العمود المحتوي على أسماء المستخدمين في الجدول.

و باعتبار أن جملة SELECT هذه ستجلب سجلاً واحداً فإنك ستستخدم الصف (Row) رقم صفر (0) فقط. مثلاً:

PHP كود :
Txt_User_ID.Text = DS.Tables("Tab_Users").Rows(0).Item(1) 

نرجو الاستفادة و السلام.