عمران عماري

حبذا لو ترفق ملف قاعدة البيانات

Imports System Imports System.Data.OleDb Public Class Form1 Dim b As Boolean Dim Con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0 ;Data Source=" & Application.StartupPath & "\Tel.mdb") Dim sqlstr1 As String = "SELECT T1.ID, T1.Fname, T1.Lname, T1.T…

السلام عليكم ورحمة الله، النقطتين معا يمكن تحقيقهما بشكلين مختلفين إذا استعملنا الوضع المتصل أو المنفصل 1. بالنسبة للرقم الذي يتم توليده تلقائيا، يمكن اختيار NumAuto أثناء إنشاء الجدول في Access وأثناء إعداد أمر الإدراج InsertCommand تجاهل الحقل الأول، ولا تجع…

:) تفضل أخي على الرحب والسعة

على الرحب والسعة أخي، يمكنك جعل الكتابة من اليمين إلى اليسار بتغيير الخاصية RightToLeft إلى القيمة yes أثناء التصميم من خلال نافذة الخصائص أو عبر الكود كالتالي: ComboBox1.RightToLeft = Windows.Forms.RightToLeft.Yes توسيط النص في comboBox غير متوفر كخاصية مباشر…

طريقة الأخ عبد الرحمن المرشود مفيدة، لكن تأكد أنه لا يتم حذف الطلاب بعد تسجيلهم وإلا فسيحدث الأمر التالي أضفت أربع طلاب، رقم قيد الأخير هو 4 قمت بحذف الثاني رقم الأخير هو 4، وعددهم هو 3 سيتم توليد ID = 4 ويحدث خطأ عند إضافته لأن الطالب ذو الرقم 4 موجود بالفعل …

عندما يكون الزر مخفي، يمكن التعامل معه من خلال الكود طبعا باستخدام إسمه button1.text= "click here" button1.visible = true button1.hide() button1.show أما بالنسبة للمستخدم فلن يستطيع التعامل مع الزر مادام لا يظهر له

في فترة التجريب "Developement Time" لا بأس بذلك أبدا، سواء بوضعها في مجلد الملف التنفيذي، أو في مكان محدد المكان ليس مصدر المشكلة هنا أخ mero5000

هذا ما عليك أن تضيفه DB.Open() Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, DB) Dim DataAdapter2 As New OleDbDataAdapter(SQLstr1, DB) DataAdapter1.Fill(DataSet1, "gen") DataAdapter2.Fill(DataSet2, "kinder") DB.Close() TextBox1.DataBindings.Add("Text", Data…

إستعمل OLE OBJECT FIELD أثناء إنشاء الجدول، إذار أردت إدراج الصور مباشرة من access أنقر بيمين الفأرة على الخلية الخاصة بالصورة وستجد خيار Insert Ole Object ثم اختر إدراج الصورة من مف بعد ربطها مع VisualBasic قم بإضافة DataBinding لخاصية Image ل PictureBox الخا…

السلام عليكم ورحمة الله تعالى وبركاته، يمكنك ملاحظة علامة التحرير (قلم صغير) بجانب السطر الذي تقوم بالنقر عليه، وهذا يشير إلى أنه لم يتم اعتماد القيم الجديدة بعد (CellEndEdit) ومعنى هذا أنه في أي حدث قمت بوضع هذا الكود فقيمة (الخلية) التي نقرت عليها أخيرا لاتز…

الأمر يعتمد على طريقة ملأ ComboBox الأول، أقترح عليك ما يلي: أن تنشئ DataTable مع DataAdapter يجلب البيانات من جدول الصفوف (يجلب ID و الإسم ..) dim cmd as oledbCommand cmd = conn.createCommand cmd.commandtext = "select ID, Name from ..." dim DT as new datatabl…

إذا كنت تقصد بكلمة "برمجيا" أنك قمت بإضافة الأسماء إلى ComboBox في حلقة while Rdr.read، فاقترح عليك التالي 1.في Command الخاصة بالوكلاء قم بجلب الإسم و المعرف ID معا وليس الإسم فقط cmd.CommandText = "Select ID,Name From ..." 2 قم بعد ذلك بإنشاء جدول و datatAda…

السلام عليكم ورحمة الله، يمكن بدل قاعدة بيانات أن تعمل مع ملف نصي عادي عن طريق عمل Structure تحتوي على التاريخ والوقت، وتخزن فيها المواعيد التي حددها المستخدم، عند الحدث المطلوب (فتح البرنامج، أو timer_tick ) يتم عمل حلقة على محتويات الملف (يمكن تحميلها إلى li…

عند نقر المستخدم على Panel معين سيقوم باستدعاء Panel_Click التي قمت بإسناد handler لها، لذلك Sender هوة نفسه Panel الذي تم النقر عليه Sub panel_click(ByVal sender As Object, ByVal e As System.EventArgs) Dim clickedPanel As System.Windows.Forms.Panel = CType(se…

السلام عليكم ورحمة الله تعالى وبركاته، قمت في السابق ببناء User Control مشتق من فئة button يستجيب لهذا التأثير، بل له خصائص أخرى: * عند التأشير عليه تظهر صورة محددة في خاصية ImageHover * عند النقر عليه تظهر صورة محددة في خاصية ImageDown * يمكن أن يعمل مثل Chec…