منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم...
سؤال بسيط:انا بستخدم كود الاستعلام وافراغ التيجة في التيسكت بوكس بالطريقة اللي في الكود.
بس واجهتني ان حقل الBit عايز اظهر نتيجتة في اداة checkbox فممكن ابدل Text باي امتداد.

كود :

 SQLstr = "SELECT * FROM users1 WHERE اسم_المستخدم = '" & T1.Text & "'"

            DataSet.Clear()

    Dim DataAdapter1 As New SqlDataAdapter(SQLstr, con)

            DataAdapter1.Fill(DataSet, "users1")

            اسم.DataBindings.Add("Text", DataSet, "users1.اسم_الموظف")

            اسم.DataBindings.Clear()

            checkbox1.DataBindings.Clear()

            checkbox1.DataBindings.Add("Text", DataSet, "users1.تسجيل_مرضي")

(03-02-20, 03:11 PM)اسامه الهرماوي كتب : [ -> ]السلام عليكم...
سؤال بسيط:انا بستخدم كود الاستعلام وافراغ التيجة في التيسكت بوكس بالطريقة اللي في الكود.
بس واجهتني ان حقل الBit عايز اظهر نتيجتة في اداة checkbox فممكن ابدل Text باي امتداد.

كود :

SQLstr = "SELECT * FROM users1 WHERE اسم_المستخدم = '" & T1.Text & "'" DataSet.Clear() Dim DataAdapter1 As New SqlDataAdapter(SQLstr, con) DataAdapter1.Fill(DataSet, "users1") اسم.DataBindings.Add("Text", DataSet, "users1.اسم_الموظف") اسم.DataBindings.Clear() checkbox1.DataBindings.Clear() checkbox1.DataBindings.Add("Text", DataSet, "users1.تسجيل_مرضي")

بدل Text الى Checked

للأسف لم تفلح.

(05-02-20, 12:55 AM)اسامه الهرماوي كتب : [ -> ]للأسف لم تفلح.

لو انا فاهم صح وانتا عايز قيمة الشيك تظهر من قاعدة البيانات حيث (تسجيل_مرضي.users1 ) هوا عمود القيمة true or false

كود :

If DataSet.Tables("users1").Rows.Count > 0 Then

                CHECK_ADDEMPLO.Checked = DataSet.Tables("users1").Rows(0)("users1.تسجيل_مرضي").ToString

                Exit Sub

            End If

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

(06-02-20, 02:25 AM)اسامه الهرماوي كتب : [ -> ]السلام عليكم...
كلا الطريقتين صحيحتين ولكن عندي الجهاز فصل مرة واحدة ففقد مكتبات فكان بيعطي خطأ وانا شاكرا لكم اخواني الاعزاء.

خير إنشاء الله اهم شيء مشكلتك اتحلت .

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

اسامه الهرماوي

alsalamoni

اسامه الهرماوي

egypt 2020

اسامه الهرماوي

egypt 2020