[Abdh111]

بالله عليكم ياجماعة انا تعبت والله من امس في الكود مش راضي يشتغل


عاوز أبحث عن اسم واضع بياناته في تكستات


انا رفعت المثال في ردي السابق

---

(10-11-15, 01:34 AM)VB.NET كتب :

---

الحمد لله وجزاكم الله خيرا ياجماعة الخير

الكود اشتغل معي بفضل الله عزوجل ثم بفضل عونكم لي

لكن ظهرت لي مشكلة أخري

انا بختار اسم من الكمبو بوكس في شاشة اليوزر 
اضغط عرض يعرض بيانات الاسم 

لكن المشكلة تاني مرة لما اختر اسم ثاني واختر عرض لا يعرض الاسم الأول مهما غيرت الاسم اللي بختاره ؟؟

PHP كود :

   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        '\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
        'عرض كل بيانات المستخدم بعد اختياره من الكمبو بوكس      
        Try
            'Call conecDB() مازال الاتصال مفتوحاً من من فورم لود                   'SQL = "SELECT * FROM Tab_Users Where G_ID =" & (Cmb_All_Users.SelectedIndex"

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

            Call conecDB() : Call initCMD()

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

            ad = New SqlDataAdapter(SQL, Conn)

            ad.Fill(ds, "tab_Users")

            Txt_User_Name.Text = ds.Tables("Tab_Users").Rows(0).Item(1)
            Txt_Pwd.Text = ds.Tables("Tab_Users").Rows(0).Item(2)
            Cmb_User_Kind.Text = ds.Tables("Tab_Users").Rows(0).Item(3)

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