• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

Khodor1985

اعضاء
  • عدد المشاركات

    492
  • تاريخ الانضمام

  • تاريخ اخر زياره

كل شيء نشر بواسطة Khodor1985

  1. الدرس الأول : تصميم برنامج الكاشير الدرس الثاني : تصميم برنامج الكاشير
  2. C# Dapper And DevExpress With SQL Database Part 1 C# Dapper And DevExpress With SQL Database Part 2 C# Dapper And DevExpress With SQL Database Part 3 C# Dapper And DevExpress With SQL Database Part 4 C# Dapper And DevExpress With SQL Database Part 5 C# Dapper And DevExpress With SQL Database Part 6 C# Dapper And DevExpress With SQL Database Part 7 C# Dapper And DevExpress With SQL Database Part 8 C# Dapper And DevExpress With SQL Database Part 9
  3. أخ SENDBAD.COM شكرا لك على نشر الفيديو
  4. سؤال ليس له اجابة

    السلام عليكم ورحمة الله وبركاته تفضل أخي العزيز لقد تم إنشاء مثال بناء لطلبك المرفق :    khodor1985 - Test.rar
  5. السلام عليكم أخي العزيز ورحمة الله وبركاته أعتقد أن السؤال المطروح ليس بحاجة إلى خبير للإجابة عليه، فلو كلفت نفسك البحث في المواقع المتعلقة بهذا الشأن لوجدت الكثير الكثير، والدليل على ما أقول هو الإجابة على سؤالك، أنظر وتأمل إلى هذه الجملة الإستعلامية "بدها خبير" : SELECT Table1.ID, Table1.Fname, Table1.Num, Sum(Table1.Price) AS PriceTotal FROM Table1 GROUP BY Table1.ID, Table1.Fname, Table1.Num HAVING (((Table1.Num)=2));  
  6. تفضل أخي العزيز لقد تم حل المشروع بناء لطلبك المشروع بعد التعديل :  khodor1985 - d1.rar
  7. السلام عليكم ورحمة الله وبركاته، كيف نضيف موضوع جديد في قسم محدد في المنتدى.
  8. المصفوفات الثنائية

    السلام عليكم أخي العزيز ورحمة الله وبركاته هل تقصد Multi Array؟
  9. السلام عليكم أخي العزيز ورحمة الله وبركاته الأكواد : Imports System.Data.OleDb Public Class Form1 Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\MyDB.accdb") Dim cmd As OleDbCommand Dim da As OleDbDataAdapter Dim ds As DataSet Dim sqlstr As String 'إخفاء عامود الرقم المعرف Private Sub visibledID() dgvData.Columns(0).Visible = False End Sub 'تحميل البيانات من قاعدة البيانات Private Sub FilldgvData() Try con.Open() sqlstr = "Select * From Person" cmd = New OleDbCommand(sqlstr, con) da = New OleDbDataAdapter(cmd) ds = New DataSet ds.Clear() da.Fill(ds, "Person") dgvData.DataSource = ds.Tables("Person") da.UpdateCommand = New OleDbCommandBuilder(da).GetUpdateCommand con.Close() visibledID() Catch ex As Exception If con.State = ConnectionState.Open Then con.Close() MsgBox(ex.Message) End Try End Sub 'استدعاء الإجراء FilldgvData إلى الحدث Load للنموذج Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load FilldgvData() End Sub 'حفظ البيانات Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click da.Update(ds.Tables("Person")) FilldgvData() End Sub End Class النتيجة :   المشروع :  khodor1985 - SaveData.rar
  10. اتصالا بالاكسس مشكله

    السلام عليكم ورحمة الله وبركاته، نرجو من الأخ العزيز رفع المشروع أو مثال مصغر عنه لإجراء التعديل اللازم عليه، وشكرا.
  11. هل يوجد دالة حفظ datagrid view

    السلام عليكم ورحمة الله وبركاته، نرجو من الأخ العزيز رفع المشروع أو مثال مصغر عن الفكرة للتعديل عليها وشكرا.
  12. سؤال في البحث ضمن dataGridView

    السلام عليكم أخي العزيز ورحمة الله وبركاته، نرجو رفع المشروع أو مثال مصغر عن المشروع لإجراء التعديل عليه توفيرا للجهد والوقت، وشكرا.
  13. لنفترض أن قاعدة البيانات عندك بعنوان Test، قم بإنشاء NewQuery ثم ضع بداخلها الكود التالي : Use Test go create proc GetDataByID @MyID integer as begin Select * From Person Where ID = @MyID end ثم في شريط الأدوات إضغط Execute لتشغيل الإستعلام ثم قم بإنشاء NewQuery وضع الكود التالي : Use Test go Exec GetDataByID 3 سوف يستدعي السجل الذي يحمل الرقم 3 أتمنى لك التوفيق
  14. VB .NET - Tutorial الدرس الأول - الجزء الأول : الإتصال بقاعدة البيانات من نوع Access https://www.youtube.com/watch?v=Nv7FX7zmkqI VB .NET - Tutorial الدرس الأول - الجزء الثاني : الإتصال بقاعدة البيانات من نوع Access https://www.youtube.com/watch?v=f9uUWdpAf0I VB.NET - Tutorial الدرس الثاني - الجزء الأول : التعامل مع قاعدة البيانات من نوع Access من خلال جملة الإستعلام Select https://www.youtube.com/watch?v=AuHUkQG3YPI VB.NET - Tutorial الدرس الثاني - الجزء الثاني : التعامل مع قاعدة البيانات من نوع Access من خلال جملة الإستعلام Select https://www.youtube.com/watch?v=zf1JL2I3gas VB.NET - Tutorial الدرس الثاني - الجزء الثالث : التعامل مع قاعدة البيانات من نوع Access من خلال جملة الإستعلام Select https://www.youtube.com/watch?v=ivNkbAQltS4 VB.NET - Tutorial الدرس الرابع : التعامل مع قاعدة البيانات من نوع Access من خلال جملة الإستعلام Insert Into https://www.youtube.com/watch?v=RP0bcYNOASc VB.NET - Tutorial الدرس الخامس : التعامل مع قاعدة البيانات من نوع Access من خلال جملة الإستعلام Update https://www.youtube.com/watch?v=YzqA_cLI_-o VB.NET - Tutorial الدرس السادس - الجزء الأول : التعامل مع قاعدة البيانات من نوع Access من خلال جملة الإستعلام Delete https://www.youtube.com/watch?v=VWA3TzbW6Jw VB.NET - Tutorial الدرس السادس - الجزء الثاني: التعامل مع قاعدة البيانات من نوع Access من خلال جملة الإستعلام Delete https://www.youtube.com/watch?v=hkGTEK7zj1o أتمنى لكم التوفيق    
  15. السلام عليكم أخي العزيز ورحمة الله وبركاته ما تفضلت به لا يمكن أن يتحقق عند فتح قاعدة البيانات في أكسس أو إغلاقها إلا في حال شغلنا أداة أخرى من خارج قاعدة البيانات وأقصد من هذا المعنى نظام التشغيل.  ما المانع من المنطق البرمجي أن نقوم بإنشاء نموذج نضمنه كودي النسخ الإحتياطي عند الفتح والإغلاق لقاعدة البيانات، وبطبيعة الحال عند قتح قاعدة البيانات يتم تشغيل النموذج في وضعية الإخفاء بحيث ينفذ النسخ الإحتياطي وعند الإغلاق ينفذ نفس العملية. إذا كنت موافق على هذا الطرح أرجو الرد وأنا مستعد لمعالجة مشروعك أتمنى لك التوفيق
  16. مطلوب كود لفتح اوت لوك مباشره

    الكود لفتح برنامج outlook : قم بإنشاء زر أمر وضمنه الكود التالي : On Error Resume NextSet objOL = CreateObject("Outlook.Application")Set objNS = objOL.GetNameSpace("MAPI")Set objFolder = objNS.GetDefaultFolder(olFolderContacts)الكود لإغلاق برنامج outlook : Dim objOLook As ObjectSet objOLook = CreateObject("Outlook.Application")objOLook.Application.Quitأتمنى لك التوفيق
  17. السلام عليكم أخي العزيز ورحمة الله وبركاته تفضل لقد تم معالجة المشروع بناء لطلبك   confirm-Khodor.rar   تصحيح الكود : If Not IsNull(DLookup("[cno]", "emdata", "[cno] = '" & Me.cno1 & "'"))  يعني إذا كان رقم الموظف المدخل في النموذج يتطابق مع رقم الموظف في جدول emdata قم بإجراء معين.   أتمنى لك التوفيق  
  18. السلام عليكم أخي العزيز ورحمة الله وبركاته تفضل هذا المثال سيفي بالغرض وأي إستفسار أنا بالخدمة   backup-khodor.rar              
  19. أخي أحمد أرسل المشروع وسوف يتم حل المشكلة إن شاء الله
  20. السلام عليكم أخي العزيز ورحمة الله وبركاته هذا يعود لطريقة تصميم قاعدة البيانات، ولكن المنطق يقول إذا أردت تصميم برنامج لإدارة المخازن والمبيعات والمشتريات لا بد أولا من البدء في إنشاء جدول المخزن وبطاقة الصنف لأنهما يعدان المحور الأساس الذي تدور حولهما كافة الجداول الأخرى في قاعدة البيانات، ثم نقوم بإنشاء الجداول الأخرى التي تعبر عن هوية الفواتير ونقوم بربطها بجدول المخزن. وبما أن جدول المخزن يعد الجهة الإبن في العملية العلائقية فإنه من السهل إظهار رسالة تحدد رصيد الصنف في المخزن. وشكرا
  21. تلوين يوم الجمعة(يوم عطلة)

    السلام عليكم أخي العزيز ورحمة الله وبركاته تفضل لقد تم معالجة المشروع بناء لطلبك   ColorVacation - Khodor.rar     تبصرة : أخي العزيز لقد لاحظت مشكلة في الجدول f2 في الحقل txtDay حيث قمت حضرتك بتحديد نوع بياناته DateTime لعرض اليوم كنص وهذا خطأ لأن اليوم هو قيمة نصية لذا من المفترض أن يكون نوع الحقل نصي لكي نتمكن من استرجاع اليوم من حقل التاريخ txtDate . طبعا وقد ظهر هذا أيضا في النموذج حيث قمت بتحديد Control Source للـ txtDay هو txtDate ثم قمت بتعديل الـ Format  إلى "dddd".   أخي العزيز بعد أن طرحنا الأخطاء في البرنامج إليك الجل البسيط: أولا نقوم بتغيير نوع البيانات للحقل txtDay إلى ShortText ثانيا ندخل إلى النموذج وفي النموذج الفرعي نحدد مربع النص txtDate وفي الحدث AfterUpdate نضع الكود التالي: الإعلان عن متغيرDim x As Stringتحديد قيمة المتغير x= Format(Me.txtDate,"ddd")يساوي قيمة المتغيرme.txtDay = x
  22. السلام عليكم أخي العزيز ورحمة الله وبركاته نرجو منك وضع مرفق عن مشروعك لكي يتسنى لنا مساعدتك وشكرا
  23. اظهار اخر سجل من نمودج

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