samir_ibrahim_

البيانات الموزعة يعني للحصول على المحصلة النهائية للمعلومات عليك ان تاتي بها باكثر من مصدر وليس من مكان واحد واذا اختفى او خرب احد المصادر فانك لن تستطيع الحصول على نتيجة قاعدة بيانات موزعة  

(انا استعملت 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  

هذا الكود يبحث في فورم عن نوع محدد من الكونترول الذي انت تريد تغيير لونه هذا الكود ثابت لا يتغير بكتب لمرة واحدة Form_Load انت تنفذ هذا اكود ب  :) (بعدين لما تقول انو في خطأ قول وين الخطأ وما هو الخطأ (انا ما زلت اعمل على تقوبة الحاسة السادسة عندي ولم اصل لمرحلة معرفة ما بحدث عندك بعد

ممكن. هذا مثال 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  

اذا كنت مهتما بعمل ارشيف او معرفة معلومات عن الافلام وخلق قاعدة بياتات لك لتحفظ فيها معلومات الافلام فان هذه المكتبة imdb.dll تسمخ لك بذلك انها مجانية الاستعمال. كل ما عليك فعله هو تحميلها وتحمبل المشروع الذي يشرح لك كيفية استعمالها. راجع المشروع المرفق. واقرا readme.txt واسال اذا وجدت صعوبة ان هذه dll تقوم باستخراج معلومات الافلام من www.imdb.com Have Fun imdb_dll_v6.7.28.rar imdbtest_v6.7.28.zip للمزيد من المعلومات اقرأ المدونة : مدونتي بخصوص imdb.dll

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

اهلا و سهلا

With ComboBox1 .DataSource = DataSet1.Tables("class").DefaultView.ToTable(True,"type") .DisplayMember = "type" End With

 '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

انا جربت على database التي ارسلتها واشتغلت. ضع =Sum([Time_of_Stop]) في التقرير وليس في الاستعلام.

  اذا اردت البداية فاني انصح ب EMU8086    لاحقا يمكنك الانتقال الى   MASM32/64 or WINASM or RedAsm   اما الطريقة فهي ايحاد كتاب او قيديو وملاحقته (مع العلم ان هناك كثير من الكتب السيئة) سوف احاول ايجاد كتاب جيد وارشدك اليه

هل جربت  =Sum([Time_of_Stop])

قرات الموضوع اكنر مرة ما فهمت شو النهاية.    المشروع بدو يكون للجميع؟ مجاني مع كود؟ او مشروع تجاري؟ اذا مجاني. يعني بس يخلص المشروع لازم ينجط النحلبل وال كود اذا تجاري. ما حدا غير اللى اشتغلوا عليه سوف يستفيدو منه (من حيث الاكواد او التعلم)   انا عامل 3 مشاريع تجارية (ليست مخازن ومحاسبة)   شو الفكرة بالزبط؟

انا اجيد 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

  هذه ليست linq انها ADO.NET   غير الاستعلام الى هذا   INSERT INTO SUBJECTS select student.* from subjects inner join student on student.id <> subjects.id

اعمل 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

هل يمكنك رفع المشروع؟

اين اضفت primary key?    لا تكفي ان تضيف PK في dataset. يجب ان تضيف ال pk في sql server table وثم تعمل update للجدول الموجود في dataset وذلك ب right click on the tableadapter >> configure

هذا معناه ان الجدول لا يحتوي على primary key

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

بامكانك استعمال 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

جرب انشاء المجلد في program files يدويا، ثم تشغيل برنامج الإعداد وتثبيته على نفس المجلد

باي FOLDER نزلت ACCESS DATABASE? اذا في PROGRAM FILES ممكن تعطي مشكلة نزلها في PROGRAM DATA   افحص ال DATABASE اذا كانت READONL بواسطة right click on the database >> properties

انا اؤيد طريقة ِ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

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