محمدvb

حمل المرفق. مثال2.rar

الرابط الخاص بي

المفروض انه عند النقر على رفض يتم شطبه من القائمة او اي شي ... وعند النقر على اضافة يتم اضافته فورا ليش ناخذ سيشن في صفحة ثانية ونطول العملية ...وجهة نظر

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

حلو لو حبيت اقرا الآيبي من الأداة هكذا MessageBox.Show(IpTextBox1.IP) طيب لو حبيت اكتب الآيبي في الأداة يعني عندي رقم آيبي وابي اكتبه في الأداة كيف يكون الكود؟

جزاك الله خير . لو بالإمكان تعمل أداة للتاريخ تكست واحد مقسم إلى ثلاث خانات مثل اللي بالمرفقات. ولكن تحتاج لتعديل مثلا عند النقر بالماوس على خانة اليوم يتم تحديده وكذلك الشهر والسنة ... تحياتي ArabicDate.rar

جزاك الله خير ، ومبروك الاشراف فعلا تستحقه بكل جداره , وكل عام وانتم بخير

SqlCommand Cmd = new SqlCommand("backup database mydatabase to disk = 'D:\\mydatabase.bak'", conn); conn.Open(); Cmd.ExecuteNonQuery(); conn.Close();

مثال في المرفقات لعله يفيدك JavaScript Database.rar

شفت المثال المشكلة في اسماء الحقول (First And second And third) هنالك اسماء محجوزة لا يجب التعدي عليها فاليجوال بيسك لا يقبلها الحل تغيير First مثلا لتصبح First1 وهكذا لبقية الحقول فقط

المشكلة كانت فقط في القوس وعلامة كوتيشن لما اضفتها خلاص تعدل الكود // تم تعديل المشاركة العلوية لجميع الأكواد وأيضاً هنا كود الحفظ تم تعديله ليصبح بهذه الطريقة Dim Cmd As New OleDbCommand("INSERT INTO table1 (First,second,third) VALUES (@First,@second,@third)"…

& الأمل & Sql يقابلها OleDb مثلا (SqlCommand) يقابلها (OleDbCommand) أيضاً (SqlDataAdapter) يقابلها (OleDbDataAdapter) بمعنى آخر فقط كلمة (Sql) تستبدل بـ (OleDb) وللمعلومية (Sql) لقواعد البيانات (SQLSERVER) و (OleDb) لقواعد البيانات (ACCESS) على العموم تم تعدي…

كود الاضافة Dim Cmd As New OleDbCommand("INSERT INTO table1 (feild1,feild2,feild3) VALUES (@feild1,@feild2,@feild3)", conn) Cmd.Parameters.AddWithValue("@feild1", TextBox4.Text) Cmd.Parameters.AddWithValue("@feild2", TextBox5.Text) Cmd.Parameters.AddWithValue(…

داخل الكوماند 1 اضف الكود التالي Button2.PerformClick()

وعليكم السلام ورحمة الله وبركاته ، وكل عام والمسلمين بخير ، اعاده الله علينا وعليكم بالخير والعافية في الكوماند يوضع الكود التالي فقط اسم الجدول table1 اسم الحقل المراد البحث فيه feild1 اسم التكست الخاص بالبحث TextBox1 جملة الاتصال conn Dim dp As New OleDbData…

ستكون الكود كامل هكذا Private Sub Command1_Click() Dim i As Long i = 0 Set Rs = CN.Execute("SELECT * FROM tb1 WHERE Today_date Between '" & Text1.Text & "' and '" & Text2.Text & "' and start_time>='" & Text3.Text & "' or Today_date Between '" & Text1.Text & "'…

تفضل : مصطفى2.rar

تفضل جاهز كل اللي طلبته الدعاء لي ولك وللمسلمين بحسن الخاتمة مصطفى1.rar

Private Function RandomNumBetween(ByVal LowerLimit As Long, ByVal UpperLimit As Long) As Long RandomNumBetween = Rnd * (UpperLimit - LowerLimit) + LowerLimit End Function Private Sub Command1_Click() For i = 1 To 50 List1.AddItem RandomNumBetween(1000000, 2000…