moiyd

ممكن وضع البرنامج هنا او الخطا الذي يحدث عند تشغيلك للملف من الفيجوال ستوديو لأتمكن من مساعدتك   وشكرا

السلام عليكم بالنسبة للدالة الخاصة بك. يوجد لديك column  غير معرف في دالة الإدخال Insert Into عدد الأعمدة في دالة الإدخال = 9 عدد القيم المنسوبة في دالة الإدخال = 10 day --> datee2.ToString name --> DataGridView1.Rows(i).Cells(0).Value saa --> saa.ToString start --> DataGridView1.Rows(i).Cells(2).Value end --> DataGridView1.Rows(i).Cells(3).Value user --> My.Settings.cruser fr3 --> My.Settings.crfr3 realdate --> Today.Date realtime --> TimeOfDay 'المشكلة في القيمة الزائدة المنسوبة في دالة الإدخال, لم تكتب لها اي column غير معرف في دالة الإدخال --> DataGridView1.Rows(i).Cells(4).Value  

في الكلاس الرئيسي الخاص بالفورم بالعادة يأتي بالصيغة التالية  Public Class Form1    'ضع كودك هنا   End Class تحياتي

أخي الكريم   تأكد من جملة الإتصال, الخطأ هذا ينص على عدم وجود جملة إتصال بقاعدة البيانات, أو جملة الإتصال موجودة ولكن لم يتم طلبها أو تشغيلها   مثال   Private Str As String = "YOUR Connection String to DataBase :P :)" Private con As New SqlConnection(Str) If con.State = ConnectionState.Open Then con.Close() con.Open()ركز على الامر con.open هنا انا قمت بعملية الإتصال لقاعدة البيانات تقبل مروري

أهلا وسهلاً .. أتمنى أنها نفعتك وفادتك   تحياتي

مرحبا   حدد نوع القيمة الي أنت تبحث عنها , هل رقم , هل نصية وبدك تشوف أطول نص , هل تاريخ   على العموم فيك تجرب جملة الإستعلام هذي Select MAX(ID) from Customersغير جملة الإستعلام بما يتناسب مع قاعدة البيانات الخاصة فيك   تقبل تحياتي

مرحيا   يوجد ملايين الطرق لعمل مثل هذا الأمر   وراح أوضحلك طريقتي الي أنا بحب أتبعها, ألا وهي إستخدام أسلوب الـ ( OOP ) في البرمجة   أولا : إنشئ Class وسميها MyClass كما في الكود تحت : Imports System.DataImports System.Data.SqlClientImports System.IOPublic Class MyClassPrivate Str As String = "ضع جملة إتصالك بقاعدة البيانات الي من نوع SQL "Private con As New SqlConnection(Str)Private obj As ObjectPrivate cmd As New SqlCommandEnd Class ثانيا : إنشئ Fucntion في هذا الـ Class وسميها GetCell  ( الكود مكتوب تحت فيك تنسخه وتلصقه ) Public Function GetCell(ByVal SelectStatment As String) As Objectcmd = New SqlCommand(SelectStatment, con)If con.State = ConnectionState.Open Then con.Close()con.Open()obj = cmd.ExecuteScalar()con.Close()Return objEnd Function ثالثاً : إذهب للفورم الي يوجد فيه الـ TextBox وتريد وضع فيه قيمة بشكل مباشر من قاعدة البيانات, عرف متغير إسمه obj كما في الكود : Dim obj As New MyClassرابعاً : دالة سحب البيانات من القاعدة بشكل مباشر كما في الكود : Dim EmpID as Integer = 10TextBox1.Text = obj.GetCell("select CUSTOMERNAME from CUSTOMERS WHERE id LIKE '" & EmpID & "'")تقبل مروري

مرحبا   أول شي أنا أقترح أنك تضبط معيار التاريخ في جهازك إلى US  مش عربي   مثال     لنفرض أنه عندك كنترولين   DateTimePicker1 و DateTimePicker2   راح نخلي الأول خاص بالوقت, بضبط الفورمات بتعه ليتناسب مع صيغة الوقت   كما في الصورة     ,وراح نعدل الفورمات للكنترول الثاني ليتناسب مع صيغة التاريخ   كما في الصورة       فيك تستخدم هذا الكود   Dim td As Date = DateTimePicker2.Value.Date.ToString Dim tt As Date = DateTimePicker1.Value.TimeOfDay.ToString Dim tcom As Date = CDate(td & " " & tt)     المتغير هذا ( tcom ) فيك تستخدمه للمقارنة بجمل الإستعلام الخاصة فيك والي يحوي بدوره على قيمة التاريخ والوقت أيضاً   تقبل تحياتي

 مرحبا   فيك تستخدم السطر التالي : Label1.Text = " تم إضافة " & TextBox1.Text & " بنجاح." تحياتي

  لا شكر على واجب .. يدا بيد نحو برمجية عربية أفضل   تحياتي

السادة أعضاء منتدانا الحبيب   أود تقديم برنامج وتطبيق صناعة رسائل التحذير في البرمجة   كم مننا يقوم ببرمجة وعمل تطبيقات بمختلف أنواعها , هذا التطبيق بإذن الله يسقوم بتوفير وقتك بتصميم رسائل التحذير الخاصة ببرنامجك   البرنامج مبرمج بإستخدام VB.NET   والصيغى البرمجية المصدرة من البرنامج نفسه هي VB.NET ايضا   داعم لللغة العربية والإنجليزية   مجانا ومفتوح المصدر هدية مقدما مني أنا شخصياً لعل تعم الفائدة في أسرة منتدانا الحبيب   انا على دراية تامة بأنه تم يكون تم طرح مثل هذي المواضيع بشكل أو بآخر ولكن أحببت أن تعم الفائدة     إستعراض واجهات البرنامج بشكل سريع    الواجهة الرئيسية         واجهة أزرار التحكم           شعار الرسالة التحذيرية       الأدوات الإضافية       بعد القيام بعمل وتنسيق الرسالة يمكنك إستعراض الرسالة التي تم تصميمها بالضغط على زر إستعراض     في حال الإنتهاء من التصميم يمكنك الضغط على زر نسخ حيث سيقوم التطبيق بنسخ كود في الـ Clipboard    وبالتالي تقوم بلصق هذا الكود اي مكان تشاء داخل برنامجك     في حال إختفاء البرنامج, ستجده في قائمة Notification Area بأسفل يمين شاشة الويندوز .. إضغط زر الفأرة الأيمن وإختر إظهار البرنامج .. كما موضح بالصورة         تحميل البرنامج   http://www.mediafire.com/?n17uesgpad9prz4     أتمنى أن أكون قد نفعت بما لدي, تقبلوا خالص تحياتي

يعطيك العافية أخوي ..

السلام عليكم ورحمه الله وبركاته أخواني فريق عمل ArabTeam أولا وليس آخراً .. نشكركم على المجهود المبذول على الموقع .. وبصراحة موقع يستحق التقدير لكونه يحوي مثل هذا الفريق الفذ والمواضيع ذات الصله. السؤال : انا عندي برنامج تصاريح موظفين يعطيني تحذير من أنه التصريح الفلاني سينتهي بعد شهر كيف ممكن أنا اسوي أو أسترجع البيانات التي شارف على إنتهائها شهر من تاريخ الجهاز او البرنامح ؟! مثال توضويحي تاريخ الجهاز : 2010 - 8 - 24 تاريخ إنتهاء التصريح : 2010 - 9 - 20 نلاحظ هنا أنه باقي على التصريح وينتهي أقل من شهر .. فماهي جمله الإستعلام المناسبة لجلب البيانات السبق ذكرها ..علما بأني أستخدم VB.NET , SQL Server 2005 >> شاكرين لكم حسن تعاونكم تحياتي, م. مؤيد

بسم الله الرحمن الرحيم بصراحة منتدى عربي رائع واتمنالكم التوفيق في جميع خطواتكم قبل كل شي أحب أوضح مشكلتي ألا وهي كيف أنشء جدول للكلية بناءاً على قاعدة أكسس ( باي نوع من أنواع التقارير سواء كان داينمك أو الكريستال أو الريبورت العادي) كما في الصورة وصورة الجدول إلي في القاعدة هذي ألحين الحركة المطلوبة كيف تتم ؟ من الواضع عندي في الجدول أنه في حقلين ألا وهما fromm و tom دلالة لبداية وقت المحاظرة ووقت إنتهائها أريد أن أرص بيانات هذا الجدول بناءا على طريقة معينه ( مش عارف ايش هي ) بس المهم أنها تظهرلي كما الموجود في الصورة الأولى نقارن اليوم والتوقيت وأضع البلوك ( اسم المادة الا وهو subject ) في مكانها المناسب في التقرير وجزاكم الله خير وأعذروني أن أطلت الموضوع عليكم أخوكم مؤيد