• الإعلانات

    • فيصل الحربي

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

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

Khodor1985

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

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

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

السمعه بالموقع

69 جيد

عن Khodor1985

  • الرتبة
    عضو فعال
  • تاريخ الميلاد 09/03/1985

معلومات الملف الشخصي

  • الجنس ذكر
  • الدولة : لبنان
  • اهتمامات Programming

أحدث الزائرين لملفلك الشخصي

1,508 زياره للملف الشخصي
  1. سؤال ليس له اجابة

    السلام عليكم ورحمة الله وبركاته تفضل أخي العزيز لقد تم إنشاء مثال بناء لطلبك المرفق :    khodor1985 - Test.rar
  2. السلام عليكم أخي العزيز ورحمة الله وبركاته أعتقد أن السؤال المطروح ليس بحاجة إلى خبير للإجابة عليه، فلو كلفت نفسك البحث في المواقع المتعلقة بهذا الشأن لوجدت الكثير الكثير، والدليل على ما أقول هو الإجابة على سؤالك، أنظر وتأمل إلى هذه الجملة الإستعلامية "بدها خبير" : 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));  
  3. تفضل أخي العزيز لقد تم حل المشروع بناء لطلبك المشروع بعد التعديل :  khodor1985 - d1.rar
  4. المصفوفات الثنائية

    السلام عليكم أخي العزيز ورحمة الله وبركاته هل تقصد Multi Array؟
  5. السلام عليكم أخي العزيز ورحمة الله وبركاته الأكواد : 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
  6. اتصالا بالاكسس مشكله

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

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

    السلام عليكم أخي العزيز ورحمة الله وبركاته، نرجو رفع المشروع أو مثال مصغر عن المشروع لإجراء التعديل عليه توفيرا للجهد والوقت، وشكرا.
  9. لنفترض أن قاعدة البيانات عندك بعنوان 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 أتمنى لك التوفيق
  10. السلام عليكم ورحمة الله وبركاته، كيف نضيف موضوع جديد في قسم محدد في المنتدى.
  11. 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 أتمنى لكم التوفيق    
  12. السلام عليكم أخي العزيز ورحمة الله وبركاته ما تفضلت به لا يمكن أن يتحقق عند فتح قاعدة البيانات في أكسس أو إغلاقها إلا في حال شغلنا أداة أخرى من خارج قاعدة البيانات وأقصد من هذا المعنى نظام التشغيل.  ما المانع من المنطق البرمجي أن نقوم بإنشاء نموذج نضمنه كودي النسخ الإحتياطي عند الفتح والإغلاق لقاعدة البيانات، وبطبيعة الحال عند قتح قاعدة البيانات يتم تشغيل النموذج في وضعية الإخفاء بحيث ينفذ النسخ الإحتياطي وعند الإغلاق ينفذ نفس العملية. إذا كنت موافق على هذا الطرح أرجو الرد وأنا مستعد لمعالجة مشروعك أتمنى لك التوفيق
  13. مطلوب كود لفتح اوت لوك مباشره

    الكود لفتح برنامج 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أتمنى لك التوفيق
  14. السلام عليكم أخي العزيز ورحمة الله وبركاته تفضل لقد تم معالجة المشروع بناء لطلبك   confirm-Khodor.rar   تصحيح الكود : If Not IsNull(DLookup("[cno]", "emdata", "[cno] = '" & Me.cno1 & "'"))  يعني إذا كان رقم الموظف المدخل في النموذج يتطابق مع رقم الموظف في جدول emdata قم بإجراء معين.   أتمنى لك التوفيق