moon_hish

السلام عليكم ورحمة الله  هذا الكود غير صالح لان مفيش انستانس للكلاس الداخلية اخي تعامل بالطريقة السابق ذكرها وان شاء الله نافعة وايضا تستطيع نقل المتغير الخاص بالكلاس الي الموديول اذا اردت بالتوفيق ان شاء الله

السلام عليكم ورحمة الله جرب تستخدم المعامل الخاص بالحماية في الموفر يعني ضيفة في الكونكشن استرنج  Persist Security Info=Trueوالله اعلي واعلم

السلام عليكم ورحمة الله  بخصوص سؤالك اخي العزيز كما في مثالك ستفعل ولكن تزود عليه الاتي    Public Class Persons#Region "Members"    Dim _Pproperty As New cPProperty    Dim _PMethod As New cPMethods#End Region    Public ReadOnly Property Pproperty() As cPProperty        Get            Return _Pproperty        End Get    End Property    Public ReadOnly Property PMethod() As cPMethods        Get            Return _PMethod        End Get    End Property    Public Class cPProperty        Public Property FName As String        Public Property LName As String    End Class    Public Class cPMethods        Public Property Speed() As String        Public Property Pstop As String    End ClassEnd Class  وتستطيع  ان تستخدم هذا المثال كالتاي    Dim c As New Persons    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click        c.Pproperty.FName = "Hisham"        c.Pproperty.LName = "Saad"    End Sub    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click        c.PMethod.Pstop = "No"        c.PMethod.Speed = "200"    End Sub    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click        MsgBox(String.Format("{0} {1}{2}{3}:--{4}", c.Pproperty.FName, c.Pproperty.LName, vbCrLf, c.PMethod.Pstop, c.PMethod.Speed))    End Subاتمني ان اكون افدتك ان شاء الله

السلام عليكم ورحمة الله  في كلامك الحل ده لو انا فهمت كلامك صح  اولا انت ليس لك علاقة بالجهاز ولكن سوف تربط برنامجك بالسكوال سرفر   واقترح انك تعمل تايمر كل خمس دقائق مثلا يفتح اتصال مع قاعدة البيانات وتأخذ منه القيم وتحفظها ثم تقارنها بالقيم الموجودة والتي تم اخذها عند تحميل البرنامج وممكن نعمل الجورسم بسيط كالاتي  1- تحميل البرنامج  2- الاتصال ثم اخذ قيم x,y في متغير عام 3- تنشيط المؤقت كل خمس دقائق مثلا 4 - الاتصال ثم اخذ قيم x,y مره اخر من قاعدة البيانات 5- مقارنه القيمة في رقم 2 مع القيمه في رقم 4 6- المعالجة المطلوبة علي حسب نتيجة شرط رقم 5 7- تقرار من اول رقم 3   اتمني ان اكون افدتك 

السلام عليكم ورحمة الله Split Container  موجودة قائمة الادوات في الفيجوال استديو في التاب الخاص بال Container 

السلام عليكم ورحمة الله   والله اعلم obj هو متغير يأخذ instance من فئه class الا اسمها DB بعد كده بيرسل جملة سكوال الي دالة داخل هذه الفئه من خلال ال obj instance الا هي GetData  وهي الدالة ترجع Dataset   المهم بمنطق الكود ده يدل علي انه الا كاتبه يتعامل بطريقة الطبقات يعني عامل كلاس للتعامل مع البياناات وكلاس تانيه لتعالج البيانات الا راجعه منها اي بسنس لاير والله اعلي واعلم

السلام عليكم ورحمة الله ممكن تجعل صفحتك تتعامل مع التاريخ الهجري كمثال ان اردت ظهور التاريخ الهجري في الكاليندر الخاصة بالتاريخ اتبع الاتي    اضف الي صفحتك Script Manger  الخاصة بميكروسوفت او الخاصة بأجكس اضف لها هذا الاتربيوت  EnableScriptGlobalization="true"اذهب الي رأس الصفحة واضف هذا الاتربيوت بداخلها  Culture="ar-SA"حمل الصفه سوف تري التاريخ بصيغة الهجري    ارجوا ان اكون افدتك وبالتوفيق

السلام عليكم ورحمة الله   ضيف هذه الدالة  في النموذج الذي تريده وستفي بالغرض وستلغي وظيفة زر اغلاق الفورم بالتوفيق  Private Const CP_NOCLOSE_BUTTON As Integer = &H200      Protected Overloads Overrides ReadOnly Property CreateParams() As CreateParams        Get            Dim myCp As CreateParams = MyBase.CreateParams            myCp.ClassStyle = myCp.ClassStyle Or CP_NOCLOSE_BUTTON             Return myCp        End Get    End Property

السلام عليكم  شوف جملة السكوال الا فتحت بها الاتصال بقاعدة البيانات لو فيها اكثر من جدول لن يتم الحفظ وتظهر هذه الرسالة 

السلام عليكم me.close  انا استخدمها وتفي بالغرض ثانيا المثال غير موجود بالمفرقات

السلام عليكم ممكن انت تستخدم الدالة BeginTransaction من كائن الاتصال الخاص بأوراكل oracleconnection كالاتي  'نعرف متغير من اوراكل ترانس اكشنdim trans as new oracletransaction'وبعد فتح الاتصال تكتب الجملة الاتيه لبدء عملية التعامل مع حركات متعددة داخل قاعدة البياناتtrans = connString.BeginTransaction()' بعد ذلك تضيف متغير الحركات الذي عرفناه الي الاوراكل كوماند كالاتي cmd.transaction=trans' بعد ذلك تتعامل بطريقة طبيعية مع الكود من اضافة حذف او كما تريد وعند الانتهاء تكتب الجملة الاتيهcmd.transaction.commitملحوظة : trans = oracletransaction object connString= oraclconnection object cmd = oracleCommand object

السلام عليكم ورحمة الله اسف علي الخطأ    غير الكود الا فيه خطأ الي  if textbox1.text.length >= 14 thensendkeys.send ("{BACKSPACE}")end لا انصحك بإستخدام الرسالة في حدث تغير النص   if

السلام عليكم ورحمة الله    اظن انه يجب ان يكون كلا جملتي السكوال التي تجلب بيانات الجدولين يجب ان تكون متوافقه مع الاعمدة التي انشئاتها خلاص ال html  بمعني انه يجب ان تكون الاعمدة التي عرفتها للجريد فيو موجودة داخل جملة السكوال 

السلام عليكم ورحمة الله    تم التعديل واتمني الافادة     Excel with OLEDB.rar

السلام عليكم ورحمة الله   يوجد خاصية ضمن خصائص الصندوق النصي اسمها طول النص  Length ضع بها الطول الذي تريده    او ممكن عن طريق الكود في حدث تغير النص للصندوق النصي TEXTBOX1_TextChanged  وتكتب هذا الكود البسيط if textbox1.text.length >= 14 thensendkey.send ("{BACKSPACE}")end ifارجوا ان اكون افدتك