• الإعلانات

    • فيصل الحربي

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

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

samir_ibrahim_

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

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

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

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

  1. قواعد بيانات موزعة

    البيانات الموزعة يعني للحصول على المحصلة النهائية للمعلومات عليك ان تاتي بها باكثر من مصدر وليس من مكان واحد واذا اختفى او خرب احد المصادر فانك لن تستطيع الحصول على نتيجة قاعدة بيانات موزعة  
  2. (انا استعملت 4.0 وانت 3.5) framework version يبدو ان الخطأ في استعمال  ويبدو ان "=" لا تعمل في 3.5 ولكنها تعمل في 4.0 غير الكود الى :  For Each c In f.Controls If c.GetType() Is ctrl c.ForeColor = ForeColor c.BackColor = BackColor End If Next  
  3. هذا الكود يبحث في فورم عن نوع محدد من الكونترول الذي انت تريد تغيير لونه هذا الكود ثابت لا يتغير بكتب لمرة واحدة Form_Load انت تنفذ هذا اكود ب  :) (بعدين لما تقول انو في خطأ قول وين الخطأ وما هو الخطأ (انا ما زلت اعمل على تقوبة الحاسة السادسة عندي ولم اصل لمرحلة معرفة ما بحدث عندك بعد
  4. ممكن. هذا مثال Module Module1     Sub ChangeControlColor(f As Form,ctrl As type, BackColor As Color,ForeColor As Color)         For Each c In f.Controls             If c.GetType() = ctrl                 c.ForeColor = ForeColor                 c.BackColor = BackColor             End If         Next     End Sub End Module Public Class Form1 Private Sub Form1_Load( sender As Object, e As EventArgs) Handles MyBase.Load Module1.ChangeControlColor(Me,GetType(TextBox),Color.Yellow,Color.Blue) Module1.ChangeControlColor(Me,GetType(ComboBox),Color.Aqua,Color.Black) End Sub End Class  
  5. اذا كنت مهتما بعمل ارشيف او معرفة معلومات عن الافلام وخلق قاعدة بياتات لك لتحفظ فيها معلومات الافلام فان هذه المكتبة imdb.dll تسمخ لك بذلك انها مجانية الاستعمال. كل ما عليك فعله هو تحميلها وتحمبل المشروع الذي يشرح لك كيفية استعمالها. راجع المشروع المرفق. واقرا readme.txt واسال اذا وجدت صعوبة ان هذه dll تقوم باستخراج معلومات الافلام من www.imdb.com Have Fun imdb_dll_v6.7.28.rar imdbtest_v6.7.28.zip للمزيد من المعلومات اقرأ المدونة : مدونتي بخصوص imdb.dll
  6. مشكله في حذف البيانات مش عارف احلها ازاي

    عندما تعمل ds.Tables["buy"].Rows[bmb.Position].Delete() فانه كما قلت انت bmb.postion اتغير طبعا واخد القيم الجديده انما ال index بتاع ال row في ال collection لسه زي ما هوه عندك حلان 1- بعد كل delete اكتب ds.Tables["buy"].AcceptChanges 2- استعمل bmb لل delete bmb.RemoveCurrent
  7. تحميل محتوى حقل في combobox دون تكرار

    اهلا و سهلا
  8. تحميل محتوى حقل في combobox دون تكرار

    With ComboBox1 .DataSource = DataSet1.Tables("class").DefaultView.ToTable(True,"type") .DisplayMember = "type" End With
  9. اظهار فورم داخل panel

     'Button1 In Form1 Click Event Private Sub Button1_Click( sender As System.Object,  e As System.EventArgs) Handles Button1.Click     Dim f As new Form2         f.TopLevel = False            f.Parent = Me.pnl_frm1     ()f.Show     End Sub
  10. انا جربت على database التي ارسلتها واشتغلت. ضع =Sum([Time_of_Stop]) في التقرير وليس في الاستعلام.
  11.   اذا اردت البداية فاني انصح ب EMU8086    لاحقا يمكنك الانتقال الى   MASM32/64 or WINASM or RedAsm   اما الطريقة فهي ايحاد كتاب او قيديو وملاحقته (مع العلم ان هناك كثير من الكتب السيئة) سوف احاول ايجاد كتاب جيد وارشدك اليه
  12. هل جربت  =Sum([Time_of_Stop])
  13. هيا بنا نتعلم برمجة برامج تجاريةول

    قرات الموضوع اكنر مرة ما فهمت شو النهاية.    المشروع بدو يكون للجميع؟ مجاني مع كود؟ او مشروع تجاري؟ اذا مجاني. يعني بس يخلص المشروع لازم ينجط النحلبل وال كود اذا تجاري. ما حدا غير اللى اشتغلوا عليه سوف يستفيدو منه (من حيث الاكواد او التعلم)   انا عامل 3 مشاريع تجارية (ليست مخازن ومحاسبة)   شو الفكرة بالزبط؟
  14. انا اجيد ASSEMBLY - BASIC - COBOL - PASCAL - FPD -VFP - VB6-JAVASCRIPT (NOT JAVA) - C (NOT C++) - C# AND VB.NET     مع العلم ان تركيزي منصب على اللغات التي تتعاطي مع قواعد البيانات مثل VFP ب 14 سنة خبرة و C# AND VB.NET  ب 6 سنين خبرة. لذلك ربما ليست لدي رغبة في تعلم لغة جديدة   كنت اود ان تعلم ال JAVA لاعمل برنامج ANDROID ولكني عندما اكتشفت ان وضع 2 TEXTBOX ووضع المحموع في TEXTBOX ثالث جعلني اكتب 23 سطر غيرت رايي   ربما ما اريد تعلمه الان هو كيفية اختراق البنك المركزي الامريكي  :D
  15. اضافة السجلات المختلفة من جدول الي اخر

      هذه ليست linq انها ADO.NET   غير الاستعلام الى هذا   INSERT INTO SUBJECTS select student.* from subjects inner join student on student.id <> subjects.id
  16. اعمل right-click على ClientTableAdapter اختار configure اضغط next ثم next بعد ال next الثانية سوف يسالك ان الاستعلامات لن تنخلق بشكل الي لانك primary key field غير موجود في جملة ال select (اضغط yes) ثم finish انت اخطات حين اخترت client  primary key. ال primary key  يجب ان يكون ID من الداتاست احذف primary ley عن حقل client يجب ان يتطابق ال primary key بجدول access مع dataset
  17. اين اضفت primary key?    لا تكفي ان تضيف PK في dataset. يجب ان تضيف ال pk في sql server table وثم تعمل update للجدول الموجود في dataset وذلك ب right click on the tableadapter >> configure
  18. هذا معناه ان الجدول لا يحتوي على primary key
  19. معرفة النوع البياني للحقول

    هكذا يعمل datatable ولا تستطيع تغييره وهو يعمل بشكل ممتاز   لماذا تريد ان تكون حقول datatable مثل حقول sqlserver?
  20. الاستعلام مع dataset

    بامكانك استعمال qty.CopyToDataTable ولكن هذا سوف لن يعطيك نتيجة صحيحة حيث انك لما عملت select row سوف تخنار الحقول من جدول واحد فقط وهي id و name ولن ياتي بي حقل salary   هذا الكود ياتيك بهم Dim qry = From t1 In ds.Tables(0), t2 In ds.Tables(1) Where t1("id") = t2("id") Select New With {.id=t1("id"),.name=t1("fname"),.salary=t2("salary")} Dim bs As New BindingSource bs.DataSource = qry dataGridView1.DataSource = bs
  21. جرب انشاء المجلد في program files يدويا، ثم تشغيل برنامج الإعداد وتثبيته على نفس المجلد
  22. باي FOLDER نزلت ACCESS DATABASE? اذا في PROGRAM FILES ممكن تعطي مشكلة نزلها في PROGRAM DATA   افحص ال DATABASE اذا كانت READONL بواسطة right click on the database >> properties
  23. الاستعلام مع dataset

    انا اؤيد طريقة ِAbo_Yossof باستعمال Linq to Dataset  ليس هناك داعي لحفظ النتيجة في datatable   اذا افترضنا code كما استعمله Abo_Yossof Dim qry As IEnumerable(Of DataRow) = From row In ds.Tables("tbl1").AsEnumerable(), row2 In ds.Tables("tbl2").AsEnumerable() Where (row.Field(Of Integer)("id") = row2.Field(Of Integer)("id")) And row2.Field(Of Integer)("sallary") > 1000 Select row2 Dim bs As New BindingSource bs.DataSource = qry.ToList DataGridView1.datasource = bs
  24. أيش معنى هذا الخطاء

    هذا معناه ان الجدول الذي لديك لا يوجد به primary Key اذا لم يوجد ال PK بالجدول في المصدر (SQL SERVER) فان SQL Generator لا يستطيع توليد جمل الاستعلام اللازم لل Delete و Update