yaseralshikh

اشكر الجميع على مشاعرهم الجميلة ، و شكر خاص لأخي 'محمد محمود يوسف' على تجميع الدروس .. :wub:

حل المشكلة التي كنت أتحدث عنها ولم أحصل على جوابها في هذه المشاركه ( لسبب عدم فهم الاخوان جزاهم الله خير لما أريد ) .. Private Sub MyDA_RowUpdated(ByVal sender As Object, ByVal e As System.Data.OleDb.OleDbRowUpdatedEventArgs) Handles MyDA.RowUpdated ' هذا الحدث من اجل الحصول على رقم أخر سجل اضيف وله خاصية الترقيم التلقائي Try If e.Status = UpdateStatus.Continue AndAlso e.StatementType = StatementType.Insert Then 'Get NewID Dim cmdGetIdentity As New OleDbCommand("SELECT @@IDENTITY", MyConnection) cmdGetIdentity.CommandType = CommandType.Text e.Row("ID") = Int32.Parse(cmdGetIdentity.ExecuteScalar().ToString()) e.Row.AcceptChanges() 'MsgBox(e.Row("ID")) End If Catch ex As Exception MessageBox.Show(ex.Message, "الحصول على رقم أخر سجل اضيف", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RtlReading, False) End Try End Sub

هذا مثال بسيط على استخدام الاداة tool tip بعد ضبط ايقونتها وعنوانها ( من خصائصها ) : أولاً : أدرج Textbox وأدرج Tool tip ثانياً : ضع هذا الكود في برنامجك وفي المكان الذي تريد .. Me.ToolTip1.Show(Me.TextBox1.Text, Me.TextBox1) على سبيل المثال لو أردنا أن نضعه في الحدث TextChanged لمربع النص يصبح كالتالي .. Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged Me.ToolTip1.Show(Me.TextBox1.Text, Me.TextBox1) End Sub

شكراً أخي مجهود رائع ،، ولكن اين قمت بحفظ كلمات المرور ، هل في الرجستري أم في مكان ما ، وهل من الممكن أن تقدم لنا المكتبتين مفتوحة المصدر للفائده والدراسة ..

أخي رغيد الطيب شكرا على الرد ورحابة الصدر .. البالون الذي صممته لنا في الاصدار 2003 كان رائعا في ذلك الوقت ، وكذلك كل مداخلاتك وما تقدمه للمبرمجين الناشئن مثلنا ، فلك اخي كل احترامي وتقديري وحبي أيها الجار الغالي .. ما أريده ليس له علاقة بالبريد الإلكتروني ، فقط اريد التراسل بين برنامجين في جهاز واحد بحيث ارسل نص منسق بألوانه وخطوطه من برنامجي إلى برنامج البريد المعتمد في الجهاز أيا كان ، وبعد أن يفتح برنامج البريد المطلوب أجد النص المرسل قد انتقل إليه .. فعند استخدامي للكود التالي .. RTF.SelectAll() RTF.Copy() Dim theStringBuilder As New System.Text.StringBuilder() theStringBuilder.Append("mailto:" & EmailTo & "") theStringBuilder.Append("?subject=" & EmailSubject & "") theStringBuilder.Append("&body=" & My.Computer.Clipboard.GetText ) System.Diagnostics.Process.Start(theStringBuilder.ToString()) أجد أن طلبي قد تحقق لان برنامج البريد الافتراضي يفتح واجد به عنوان المرسل إليه الذي ادخله المستخدم وكذلك عنوان الرسالة والرسالة نفسها ، ولكن نص الرسالة فقد تنسيقه الذي أعد عليه ، وانا ابحث عن حل يجعل النص يصل بالتنسيق الاصلي الذي اعد عليه ، لاني ألاحظ انه عند النسخ واللصق لنص الرسالة بشكل يدوي يصل النص منسق .. هذا كل شيء أرجو أن تكون الفكره واضحه .. وشكرا مجددا ،،،

أريد أن أشكرك .. واضيف أن ذلك لم ينجح معي خاصة مع البريد المجاني مثل hotmail و Gmail .. فهل هناك توضيح أو حل مع البريد المجاني .

أخي رغيد شكرا على كل ما تقدمه ، فأنا ممن لم ينسو جهودك فيما سبق بالذات البالون على سبيل المثال لو تذكر .. اعود وأقول أنه لقد جذبني موضوعك واحب أن استفيد منه أيضا ، ولعلي لم أفهم تماما وما فهمته أنه باستطاعتي أن أرسل لأي برنامج نص معين يستقبله من برنامجي ، إن كان هذا صحيح فأرجو التوضيح لي فأنا أحتاج لذلك كثيرا في برنامجي الحالي ، حيث أني أرغب في استخدام برنامج Windows Live Mail للقيام بمراسلاتي من خلال برنامجي ، وحيث أني استخدم مربع نص غني وأريد أن أرسل النص المنسق الذي بداخله لبرنامج البريد المذكور أنفاً ، وعند استخدامي للكود التالي .. RTF.SelectAll() RTF.Copy() Dim theStringBuilder As New System.Text.StringBuilder() theStringBuilder.Append("mailto:" & EmailTo & "") theStringBuilder.Append("?subject=" & EmailSubject & "") theStringBuilder.Append("&body=" & My.Computer.Clipboard.GetText ) System.Diagnostics.Process.Start(theStringBuilder.ToString()) اجد أن النص المراد نسخه قد فقد رونقه وتنسيقه ، أرجو أن تكون الفكرة واضحة ، وان يكون هذا ما تتحدث عنه واني في صلب الموضوع ولم أذهب بعيداً ، لأني لو استطيع أن أقوم بنسخ النص وبالتنسيق الذي هو عليه ولصقه في برنامج البريد بشكل برمجي فسوف يحل ذلك لي مشكله ، ويفتح لي أفاق جديده في البرمجة ،،

شكرا ..

أخي Free Wily لقد أحضرت لك ما هو أفضل مما ذكرته لك سابقاً ، وسوف تجده في الرابط الموجود في توقيعي والذي يحمل اسم " درس في ADO.NET من الصفر إلى الإحتراف ." وبالتحديد المشاركة رقم 141 ، أرجو أن تنال الفائده منه وان يعجبك ، ولعلمك أنا طبقته على برنامجك قبل التعديلات السابقه وذهبت تلك الرسالة إلى حيث لن تراها بإذن الله .. أخوك / ياسر الشيخ .

بسم الله الرحمن الرحيم وبه أبدا وأستعين ، وأختم بالصلاة والسلام على خاتم الأنبياء والمرسلين نبينا محمد وعلى آله وصحبه أجمعين ، أما بعد .. ============= السلام عليكم ورحمة الله وبركاته .. وكل عام وأنتم بخير .. أحبتي أعود إليكم بعد طوووووووول إنقطاع ، وكلي خجل وأسف على عدم مواصلة الدروس و لا يوجد لدي من أعذار أقدمها سوى أنني سوف أتحمل كل العتب الذي قد يلحقني من جراء ذلك ، ليسى هذا فقط ولكني سوف أمسح بعض الذي قد حملتوه من غيظ على توقفي المفاجئ بهذه الإضافة التي سوف اطرحها اليوم وهي بعنوان : ## إنتهاك التزامن ( Concurrency violation ) ## نصادف أحيانا أثنا قيامنا بعملية التحديث برسائل مزعجة تسمى بإنتهاك التزامن ( Concurrency violation ) ، ويكون نص الرسالة كما يلي : "Concurrency violation: the UpdateCommand affected 0 of the expected 1 records" أو "Concurrency violation: the DeleteCommand affected 0 of the expected 1 records" وسوف نناقش هنا السبب والحل معاً .. الذي يحصل عندما تضيف سجل جديد في الجدول المخزن في DataSet وكان العمود المخصص للـ Primary Key من نوع AutoNumber وعند القيام بعملية التحديث يجب أن تحصل على قيمة رقم الـ AutoNumber الجديد من الجدول المخزن في قاعدة البيانات Access وإلا فإنه سوف يكون هناك إختلاف بين رقم Primary Key لكل من الجدول المخزن في Access والجدول المخزن في DataSet وحينها لو قمنا بعملية التحديث للسجل فإننا سوف نواجه فشل لعملية التحيث لأننا باختصار تسببنا في حصول ما يسمى إنتهاك التزامن ( Concurrency violation ) وهو يحدث لعمليات التحديث عند الإضافة والسبب كما أوضحنا أن قيمة رقم الـ AutoNumber الجديد من الجدول المخزن في قاعدة البيانات Access غير متوفره للكائن DataAdapter الذي سوف يقوم بالتجهيز لعملية التحديث . يبقى السؤال هنا : كيف نحصل على قيمة رقم الـ AutoNumber الجديد من الجدول المخزن في قاعدة البيانات Access ؟ الجواب يتمثل في خطوتين : الأولى - التصريح للكائن DataAdapter مع الأحداث التابعة له ، ويتم ذلك بكتابة العبارة WithEvents أثناء التصريح عن المتغير كما يلي : Dim WithEvents MyDataAdapter As New OleDb.OleDbDataAdapter الثانية - تجهيز الحدث RowUpdated للكائن DataAdapter كي ينطلق عند القيام بعملية التحديث ويقوم بجلب قيمة رقم الـ AutoNumber الجديد من الجدول المخزن في قاعدة البيانات Access ويستخدمها في اتمام عملية التحديث ، وكل ذلك موجود في هذا المثال : ' Event Handler for RowUpdated Event Private Sub MyDataAdapter_RowUpdated(ByVal sender As Object, ByVal e As OleDb.OleDbRowUpdatedEventArgs) Handles MyDataAdapter.RowUpdated If e.Status = UpdateStatus.Continue AndAlso e.StatementType = StatementType.Insert Then 'Get NewID Dim cmdGetIdentity As New OleDb.OleDbCommand("SELECT @@IDENTITY", cn) cmdGetIdentity.CommandType = CommandType.Text ' Get the Identity column value e.Row("ID") = Int32.Parse(cmdGetIdentity.ExecuteScalar().ToString()) e.Row.AcceptChanges() End If End Sub وبذلك نكون قد تخلصنا من مشكلة انتهاك التزامن حيث لن تظهر عند عملية التحديث ، والله الموفق ، فإن أصبت فبتوفيق الله وحده ، وإن أخطأت فمن نفسي والشيطان . أخوكم الفقير إلى الله ياسر الشيخ .. ملاحظة : عند التطبيق يجب استبدال بعض العبارات بما يتناب مع برامجكم من الاسم الذي اخترتموه لكائن الاتصال واسم العمود المخصص للـ Primary Key وغيره . وللمزيد من المعلومات أحيلكم على الرابطين التاليين : http://www.msdner.com/dev-archive/150/2-7-1501099.shtm http://support.microsoft.com/default.aspx?...kb;en-us;815629 ((سبحانك اللهم وبحمدك، أشهد أن لا إله إلا أنت، أستغفرك وأتوب إليك ))

أخي Free Wily الكود الذي كتبته لك صحيح وقد قام بالعمل على أكمل وجه واختفت الرساله المزعجة ، وظهرت لك مشكلة جديده في زر التحديث وحلها هو الاستغناء عن الشرط If dbs.HasChanges = True Then .... بلا بلا بلا .... End If ، وارجو استخدام الخاصية HasChanges في مكانها الصحيح أي عند الحاجه فأنت هنا لا تحتاج إليها ، وللمزيد من المعلومات عنها يمكنك الرجوع الى الدروس التي في توقيعي ففيها ما يغنيك كمبتدئ إن شاء الله ..

:mad: كم أكره هذه الرسالة المزعجة :mad: على حد علمي أنت لا تتعامل مع جداول مترابطه فأنت لا تحتاج إلى فرض التكامل المرجعي بحيث عند حذف السجل الاب يتم حذف السجلات الابناء . وكانت هذه المشكله وما زالت من المشاكل المحيره بالنسبة لي ، وسببها عندي هو كما هو معروف ان التحديث يتم عن طريق رقم الـ ID وعند التحديث يفقد الادبتر هذا الرقم ولا اعرف السبب حالياً ، ولديك حلان إحداهما ان تستخدم المعالج ( كما قيل لي ونفع إلى حد كبير رغم أني غير مقتنع بهذا الحل ) في الاتصال بقاعدة البيانات وتكوين الادوات المساعدة للتحكم بقاعدة البيانات ، والأخر التعديل على كود الحفظ عندك كي يصبح بالشكل التالي ( للمعلومية أنا مجربة على برنامجك ونجح ) : Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click rec = kind.NewRow rec("branch") = TextBox1.Text.Trim kind.Rows.Add(rec) DataGridView1.Refresh() TextBox1.Enabled = False If dbs.HasChanges = True Then cmdb.DataAdapter = ad ad.Update(dbs, "ADDbran") dbs.AcceptChanges() dbs.Tables.Remove("ADDbran") ad.Fill(dbs, "ADDbran") End If End Sub وفي قسم ADO.NET امثلة لا بأس بها . كما أرجو كتابة أي استفسار خاص بـ ADO.NET في قسمه الخاص . والموضوع ما زال قيد البحث ..

لا شكر على واجب .. فيما يخص الجداول والسمايلي احيلك على مشاركه لي وضعت بها ملف مرفق فيه ما تريدين وأكثر ، لكن الله يعينك لان الموضوع من جد يحتاج محترفين ، ولا أقول ذلك للتحبيط ولكن لشحد الهمه وبذل المزيد من الجهد وأنا واثق أن من صمم على شيء وكان صادق يصل إليه أو إلى ما هو أفضل منه .. الرابط ( http://www.arabteam2000-forum.com/index.php?showtopic=146704 )

المشكله في هذه الطريق المذكورة أنفا أنها لا تحافظ على وضوح الصورة عند تغيير حجمها ، هل هناك حلول أخرى ..

اذهبي لقسم ADO.NET فهناك مبتغاك وستجدين الكثير ممن يساعدوك لان ما تطلبينه يخص ذلك القسم ..