[Abdh111]

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

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 


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


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

[ناجي إبراهيم]

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

حسب ما فهمت، الـ 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) 


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