• الإعلانات

    • فيصل الحربي

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

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

رحيّم

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

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

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

كل شيء نشر بواسطة رحيّم

  1. عمل فلترة لبيانات قريد

    الحمد لله .. بفضل الله ثم بفضل عدد من مواضيعكم المتعددة ... توصلت إلى الحل If Me.TextBox2.Text.Trim <> "" Then comm.Parameters.AddWithValue("@req_name", "%" & Me.TextBox2.Text.Trim & "%" )
  2. السلام عليكم ورحمة الله وبركاته كيفكم أساتذتي وإخواني ...   عندي داتا قريد فيو ... أريد عمل فلترة للبيانات التي فيها .. بعيداً عن الداتاسيت ( مصدر القريد ) .. هل يمكن ذلك ... وإذا لم يمكن هذا ... فهذا كود تعبئة القريد لمساعدتي في عمل فلتر للداتاسيت ... مع العلم أن الفلترة ستكون لأكثر من عمود ( ثلاثة أو أربعة ) وكلها عبارة عن حقول بوليون (( 0 / 1 ) - نعم - لا ) أريد في الفلترة أن تكون ثلاث خطوات ( نعم - لا - الإثنين معاً )   هذا كود تعبة القريد Dim LSQL As String = "SELECT Req.* where req_name like '%" & TextBox2.Text.Trim & "%' and req_no like '%" & TextBox4.Text.Trim & "%' " Dim LAdapter As New SqlDataAdapter(LSQL, Con) LDataSet = New DataSet Dim RowsCount As Integer Dim i As Integer ' مسح الداتاقريدفيو من قيم سابقة محتملة DataGridView1.Rows.Clear() LAdapter.Fill(LDataSet, "LoadingData") RowsCount = LDataSet.Tables("LoadingData").Rows.Count If RowsCount = 0 Then ' يتم فحص السجلات المسترجعة من جمل اس كيو ال، فإن كان عددها صفرا ' معناها لا يوجد سجلات والجدول فارغ ' فيتم إغلاق الاتصال وعدم عرض اي شيء DataGridView1.Rows.Clear() LDataSet.Reset() Con.Close() Exit Sub Else DataGridView1.Rows.Add(RowsCount) ' هذه هي عملية تعبئة البيانات من الداتاسيت إلى الداتاقريد فيو For i = 0 To RowsCount - 1 With DataGridView1 .Rows(i).Cells(0).Value = LDataSet.Tables("LoadingData").Rows(i).Item("req_no") .Rows(i).Cells(1).Value = LDataSet.Tables("LoadingData").Rows(i).Item("req_name") .Rows(i).Cells(2).Value = LDataSet.Tables("LoadingData").Rows(i).Item("req_name2") .Rows(i).Cells(3).Value = LDataSet.Tables("LoadingData").Rows(i).Item("Typ_name") .Rows(i).Cells(4).Value = LDataSet.Tables("LoadingData").Rows(i).Item("Rejected") .Rows(i).Cells(5).Value = LDataSet.Tables("LoadingData").Rows(i).Item("Waiting") .Rows(i).Cells(6).Value = LDataSet.Tables("LoadingData").Rows(i).Item("accepted") End With Next LDataSet.Reset() Con.Close() End If
  3. عمل فلترة لبيانات قريد

    الحمد لله أولاً والشكر للأستاذ محمد على تجاوبه ... لقد حلت المشكلة بما ذكره أستاذنا ( أبو رائد ) في موضوعه في منتدى فيجوال بسط لكل العرب : http://vb4arb.com/vb/showthread.php?tid=367 وهذا الكود الأخير الذي عمل ما أردته ولكن بقيت مشكلة واحدة أذكرها بالأسفل : Dim sql As String = "SELECT Req.* " Dim where As String = "" If Me.TextBox2.Text.Trim <> "" Then where &= "AND [req_name] like @req_name " If Me.TextBox4.Text.Trim <> "" Then where &= "AND [req_no] = @req_no " If Me.CheckBox1.CheckState = 1 Then where &= "AND [rejected] = @ rejected " If Me.CheckBox1.CheckState = 0 Then where &= "AND [rejected] is null " If Me.CheckBox2.CheckState = 1 Then where &= "AND [accepted] = @accepted " If Me.CheckBox2.CheckState = 0 Then where &= "AND [accepted] is null " If where <> "" Then sql &= "WHERE " & where.Substring(4) Dim comm As New SqlCommand(sql, con) If Me.TextBox2.Text.Trim <> "" Then comm.Parameters.AddWithValue("@req_name", Me.TextBox2.Text.Trim) If Me.TextBox4.Text.Trim <> "" Then comm.Parameters.AddWithValue("@req_no", Me.TextBox4.Text.Trim) If Me.CheckBox1.CheckState = 1 Then comm.Parameters.AddWithValue("@ rejected", Me.CheckBox1.CheckState) If Me.CheckBox2.CheckState = 1 Then comm.Parameters.AddWithValue("@accepted", Me.CheckBox2.CheckState)المشكلة المتبقية : لا أستطيع البحث بجزء من الإسم ... حاولت ووضعت % مع الكومات بعد كلمة like بطرق وكيفيات مختلفة ولم أوفق إلى الطريقة الصحيحة ... كيف يمكنني ذلك ...
  4. عمل فلترة لبيانات قريد

    شكراً أستاذ محمد لقد قمت سابقاً بتطبيق الكود ولكنه لم يعمل في حالة أكثر من عمود .. والآن : في مشروعي هذا لم يعمل نهائياً لأن الداتاسيت يتم تصفيرها بعد ملئ القريد ... فوضعت الكود التالي بعد كود عملية ملئ الداتاسيت بالبيانات فأصبح كالتالي : LAdapter.Fill(LDataSet, "LoadingData") LDataSet.Tables("LoadingData").DefaultView.RowFilter = " req_quickly=" & CheckBox1.Checked RowsCount = LDataSet.Tables("LoadingData").Rows.Countولكن بدون فائدة لم يفلتر أبداً .. حتى ولو وضعت بدل CheckBox1.Checked   كلمة true  أو 1   أين أضع هذا الكود ؟؟؟
  5. هل من موضح  ؟
  6. السلام عليكم ورحمة الله وبركاته أساتذتي الكرام ... عملت برنامج بالفيجول بيسك دوت نت 2010 بروفيشنال ... مرتبط بقاعدة بيانات sql  ( عندي 2008    وعند العميل  2005 ) ... والبرنامج شغال على شبكة تمام والحمد لله   المشكلة : عدلت بعض الأشياء في بعض النوافذ ... وعدلت بعض أكواد الإستدعاء من قاعدة البيانات  ... عندي شغال على ما أريده تماماً  لكن عند نقلي للتطبيق إلى عند العميل ظهرت بعض التعديلات تمام وبعضها لم يتغير بل بقي على حالته القديمة ( مثلاً أخفيت تكست بوكس فظهر مجدداً عند العميل وفي فورم آخر تم حفظ التعديلات !!! )  كذلك أكواد الإستدعاء من قاعدة البيانات واحد منها أو أكثر لم يطبق صح هذه الأحداث عند تغيير حالة chekbox المفروض يأخذ ترقيم كل واحد وفق عدده ... عندي تمام  عند العميل عند أي تغيير لأي شيكبوكس يأخد عدد الأول فقط (where Req_W like 1 ) حتى وإن كان المتغير هو  ( Req_a )   Private Sub Req_W_CheckedChanged "SELECT * FROM Req UNION Select * FROM O_Req where Req_W like 1 "Private Sub Req_a_CheckedChanged"SELECT * FROM Req UNION Select * FROM O_Req where Req_a like 1 "req_r_no.Text = req2.Tables(0).Compute("Max(Req_r_no)", "Req_r_no >= 0") + "1"لماذا ؟؟؟
  7. البحث بجزء من الكلمة

    الطريقة التي أستخدمها وشغالة مائة في المائة ليس عن طريق الفلترة وإنما عن طريق الإستعلام ذاته  "SELECT be_no,be_name where be_name like '%" & TextBox1.Text.Trim _ & "%'
  8. يمكن أن تضع متغير في النموذج الأساسي قيمته مثلاً "" ثم في النموذج الفرعي تسند قيمة التكست إلى ذلك المتغير .. ومنه تتغير قيمة تكست النوذج الأساسي   مثلاً  dim x as string =""   في النموذج الفرعي :   mainform.x=me.text1.text  
  9. البحث بجزء من الكلمة

    لعل الإشكال في نهاية الجملة حيث أنك كتبتها (TextBox1.Text) & "'%"والأصح حسب اعتقادي (TextBox1.Text) & "%' "فأنت قدمت الكوما على علامة النسبة
  10. السلام عليكم ورحمة الله وبركاته أساتذتي الفضلاء : طلب مني بعض من لا أستطيع رد طلبه .. نسخة من برنامج عملته ... البرنامج يحتوي على قاعدة بيانات sql server  وتقارير كريستال وملفات أخرى .. ليس عندي مشكلة في استفادته من البرنامج أو الملفات ... إلا أن تقاريري وقاعدة بياناتي بها جهد وأفكار خاصة بي ... وما أخافه هو إعادة استخدامها في بريمج جديد مبني على هذه القاعدة ويحتوي هذه التقارير   سؤالي أساتذتي :            كيف يمكنني إعطائه طلبه من دون مجال للخوف  بصيغة أخرى : كيف أجعله لا يستطيع فتح قاعدة البيانات ورؤية أكوادها .. ولا يستطيع رؤية آلية تصميم التقارير .. أريدها أن تعمل مع البرنامج فقط .. ولا يستطيع أن ينسبها لنفسه ... هذا كود فتح التقارير الذي أستخدمه في حدث ضغط زر فتح التقرير con.Open() Dim cmd As New SqlCommand("Select * from count_s", con) Dim dt As New DataSet Dim da = New SqlDataAdapter(cmd) 'dt.Clear() da.Fill(dt, "count_s") Dim rpt As New count_square rpt.Load(Application.StartupPath & "\count_s.rpt") rpt.SetDataSource(dt) Dim newviewre As New count newviewre.CrystalReportViewer1.ReportSource = rpt newviewre.Text = " كشف " newviewre.CrystalReportViewer1.Refresh() newviewre.Show() 'dt.Clear() con.Close()رجاءً لا تبخلوا علي  وفقكم الله وأعانكم
  11. جزاك الله خيراً على هذا التوضيح أحسنت : كل ما أريده هو حماية كود الفيو view ( الاستعلامات ) فقط بحيث لا يعرف كيف وضعتها ولا حقولها
  12. جزاك الله خيرا أستاذ محمد بالنسبة للكريستال ماوجدت هذا الخيار     عندي كريستال 13   و 10   وبالنسة للتشفير لم أفهم شيء من الروابط  :cry:  فبعضها يتكلم عن تشفير البيانات فقط والبعض الآخر يحذر من عدم قدرتي على الدخول إليها فيما بعد  وبعضها يتحدث عن وقوع أخطاء والبعض  الآخر يفترض وجود حساب خاص بي على السيرفر !!! ولا أملك السيرفر أرجو أن تتفضل بشرح الموضوع في موضوع مستقل ومتكامل حتى تعم الفائدة
  13. السلام عليكم ورحمة الله وبركاته أساتذتي الكرام .... كيف أستطيع أن أفعّل خاصية paging في تقارير الكريستال ريبورت ؟؟؟ أصل المشكلة : كما هو الحال في القريدفيو  عند كثرة البيانات يتأخر تحميل البيانات إلى القريد فجاءت فكرة paging وهي فكرة حلوة .... الآن لدي تقارير كريستال قد يصل البعض منها إلى فوق 40 صفحة وربما أكثر في وقت يأتي ...  لاحظت أنه كلما زادت الصفحات زاد تأخر تحميل التقرير .. فما هو الحل لتسريع تحميلها ؟؟  من هنا وهناك ( عملية القريد ) فكرت أنه ربما هناك paging ولكني لم أصل إليه ؟؟
  14. جزاك الله خيراً أستاذي مصدر البيانات هو ما ذكرته في الموضوع http://arabteam2000-forum.com/index.php/topic/278273-%D8%AA%D8%BA%D9%8A%D9%8A%D8%B1-%D8%A7%D9%84%D8%B3%D9%8A%D8%B1%D9%81%D8%B1-%D9%84%D8%AA%D9%82%D8%A7%D8%B1%D9%8A%D8%B1-%D9%83%D8%B1%D9%8A%D8%B3%D8%AA%D8%A7%D9%84-%D8%B1%D9%8A%D8%A8%D9%88%D8%B1%D8%AA/
  15. هلا وضحت أكثر أخي عاطف  ... فالرد السابق فيه توضيح كاف  هل تقصد مثلاً لا يكتب أكثر من خانات معينة ؟؟؟ وبالنسبة لما ذكره أخي عرفات ... يمكن أن تجعله في حدث textbox1_LostFocus  فلا يستطيع الخروج من ذلك التكست إلا بوضع صحيح Private Sub textbox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles textbox1.LostFocus If val(textbox1.Text) > 25 Then MessageBox.Show("أدخل رقم من 1 حتى 25 ... سيعاد الرقم إلى 12 إفتراضياً", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error) textbox1.Text = 12 textbox1.Focus() End If End Sub
  16. شكراً لكم جميعاً لقد جربت طريقتك أستاذي محمد .. واشتغلت .. ولكن مشكلتها أنها تفتح كل مرة نافذة التسجيل ولم أتعب نفسي في أن أجعلها تظهر عند عدم وجود السيرفر فقط ...  وقد استغربت من عمل الطريقتين في أمثلتهما ولكن في برنامجي لا تعملان ... فراجعت كود سلسلة الإتصال فوجد أنني نسيت المسافة بين الكلمتين  Integrated Security   وهذا كود الكونفقريشن الذي فيه الخطأ ... فلما عدلته اشتغل البرنامج صح Imports System.IOPublic Class Configuration Shared Function GetConnectionString() As String Dim ConnStr As String = String.Format("data source={0};Initial Catalog=Mydataname;Integrated Security=sspi", File.ReadAllText("Configuration.txt")) Return ConnStr End FunctionEnd Class  وبالنسبة لتقارير الكريستال فهذا آخر كود توصلت إليه من مثال أستاذي محمد ( بس حولت بدل الداتاتيبل سويت داتا سيت - لأن عندي أكثر من جدول ) وجعلت كل الكود في حدث زر الفتح ليعمل البارامتر الذي وضعته في التقرير ( لأنه يأخذ قيمته من الفورم الذي فيه الزر ) وهذا كود زر فتح التقرير   con.Open() Dim cmd As New SqlCommand("Select * from table1", con) Dim cmd1 As New SqlCommand("Select * from table2", con) Dim cmd2 As New SqlCommand("Select * from table3", con) Dim dt As New DataSet Dim da = New SqlDataAdapter(cmd) Dim da1 = New SqlDataAdapter(cmd1) Dim da2 = New SqlDataAdapter(cmd2) da.Fill(dt, "table1") da1.Fill(dt, " table2") da2.Fill(dt, " table3") Dim rpt As New CrystalReport1 rpt.Load(Application.StartupPath & "\CrystalReport1.rpt") rpt.SetDataSource(dt) rpt.SetParameterValue(0, ComboBox1.Text) Dim newviewre As New viewre1 newviewre.CrystalReportViewer1.ReportSource = rpt newviewre.Text = " كشف " newviewre.CrystalReportViewer1.Refresh() newviewre.Show() con.Close()جزاكم الله خيراً وبقيت مشكلة البحث أرفقت الملف في موضوعها  http://arabteam2000-forum.com/index.php/topic/278041-%D8%A7%D9%84%D8%A8%D8%AD%D8%AB-%D9%81%D9%8A-%D8%A3%D8%B9%D9%85%D8%AF%D8%A9-%D9%85%D8%AA%D8%B9%D8%AF%D8%AF%D8%A9-%D8%AA%D8%B9%D8%B1%D8%B6-%D8%B9%D9%84%D9%89-%D8%B4%D9%83%D9%84-checkbox/
  17. السلام عليكم ورحمة الله وبركاته صممت تقرير كريستال في فيجول بيسك 10 بروفيشنال ... وشغال تمام  المشكلة عند نقل البرنامج إلى جهاز آخر سيكون اسم السيرفر مختلف عن اسم السيرفر لدي وهنا لم يعمل التقرير وطلب السيرفر على الإسم الذي في جهازي وطلب إسم المستخدم وكلمة المرور .. وفي جهازي يفتح السيرفر بحساب الويندوز السؤال هو : كيف أجعل عبارة الإتصال في الريبورت مأخوذة من عبارة الإتصال في البرنامج   عبارة الإتصال في البرنامج لدي موضوعة في موديل أستدعيه في الفورمات ... وهذا كود الموديل   Public con As New SqlClient.SqlConnection("data source=SERVERNAME;Initial Catalog=dbname;integrated security=SSPI;timeout=10") 
  18. عفواً على التأخير مرفق مثال المشروع  موضح داخله المطلوب student1.rar
  19. السلام عليكم ورحمة الله وبركاته أساتذتي الأفاضل  كنت عملت هذا الموضوع : http://arabteam2000-forum.com/index.php/topic/277232-%D8%A7%D9%84%D8%A8%D8%AD%D8%AB-%D9%81%D9%8A-%D8%B9%D9%85%D9%88%D8%AF-bit-%D9%8A%D8%B9%D8%B1%D8%B6-%D8%B9%D9%84%D9%89-%D8%B4%D9%83%D9%84-checkbox/ وقد تفضل أستاذي : محمد فؤاد    بالإجابة عليه وتم غلق الموضوع اليوم إحتجت لأن يكون البحث في عدد من الأعمدة ( bit ) في هذا الجدول  وقد كان آخر ما توصلت إليه في الموضوع السابق هو الكود التالي ويعمل بشكل صحيح على شيك بوكس واحد فقط وهو : Private Sub CheckBox1_CheckStateChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckStateChanged Select Case CheckBox1.CheckState Case CheckState.Indeterminate SQLDataSet1.Tables(0).DefaultView.RowFilter = "" Case CheckState.Checked SQLDataSet1.Tables(0).DefaultView.RowFilter = " Req_qui=" & 1 Case CheckState.Unchecked SQLDataSet1.Tables(0).DefaultView.RowFilter = " Req_qui is null" End Select End Sub  والآن عند إضافة شيك بوكس 2  ليبحث في عمود آخر .. فإنه  يلغي عملية الفلترة في الشيك الأول ولا يعتبر لها أي اعتبار   مثلا : الشيك1   هل هو متزوج            الشيك2   هل يعمل          الشيك3   هل يسافر  
  20. عفواً على التأخير والإزعاج في المرفق - أعتقد - لن يعمل عندك الكريستال لأنه مربوط بالسيرفر عندي ... كيف أجعله يعمل عند المستخدم من دون تدخل منه .. ( في مثالنا كيف تجعله يعمل عندك لو لم يكن عندك السورس - بافتراض أنك مستخدم عادي - )    وكذلك موجود فيه موديل الإتصال ... وبداخله الشرح ( افتراضياً لن يعمل البرنامج لأن السلسلة الصحيحة غير مفعلة - الشرح بداخل الموديل )    كذلك أستاذيّ ( محمد وكريم )  أجدها فرصة لأرفق ما كنت أبحث عنه في الموضوع http://arabteam2000-forum.com/index.php/topic/278041-%D8%A7%D9%84%D8%A8%D8%AD%D8%AB-%D9%81%D9%8A-%D8%A3%D8%B9%D9%85%D8%AF%D8%A9-%D9%85%D8%AA%D8%B9%D8%AF%D8%AF%D8%A9-%D8%AA%D8%B9%D8%B1%D8%B6-%D8%B9%D9%84%D9%89-%D8%B4%D9%83%D9%84-checkbox/ ففي الفورم الأول ( كود الخيار الثاني ) توضيح ومثال لما أريده .. rohiem1.rar
  21. شكراً وعفواً أستاذي لقد وضحت في ردي السابق أنني أستخدم سلسلة اتصال داخل الموديل وهي شغالة 100% حتى بعد نقل البرنامج ... ما أريده الآن شيئين : ( الثاني أهم - لأن البرنامج شغال كما ذكرت عدا الكريستال )  * تعديل السلسلة لتقبل المتغير ( أخذ الآيبي من التكست ) . * كود تعديل مصدر التقرير ( كريستال ريبورت ) ليأخذ بياناته من هذا الاتصال .
  22. أستاذ محمد جزاك الله خير على تفاعلك ذكرت في الرد السابق لي أنني أستخدم سلسلة اتصال كمتغير عام ( داخل موديل ) وجربت بع ردك بدون فائدة هذا الموديل Imports System.Data.SqlClientImports System.DataImports System.IOModule Module2 Public ConnStr As String = String.Format("data source={0};Initial Catalog=Mydbname;IntegratedSecurity=sspi", File.ReadAllText("Configuration.txt")) Public con As New SqlConnection(coonstr) Public SQLDataAdapter1 As New SqlClient.SqlDataAdapter Public sqldataset1 As DataSetEnd Moduleوهذه صورة الخطأ   كان الموديل قبل انشاء ملف التكست Public con As New SqlClient.SqlConnection("data source=" + My.Computer.Name & "\SQLEXPRESS;Initial Catalog=Mydbname;integrated security=sspi;timeout=10") 
  23. أستاذي محمد  جزاك الله خيراً على هذه الروابط ... ومما كنت أبحث عنه هذه المشاركة http://arabteam2000-forum.com/index.php/topic/242026-%D8%A7%D9%84%D8%A7%D8%AA%D8%B5%D8%A7%D9%84-%D8%A8%D9%82%D8%A7%D8%B9%D8%AF%D8%A9-%D8%A8%D9%8A%D8%A7%D9%86%D8%A7%D8%AA-sql-%D8%B9%D9%84%D9%89-%D8%A7%D9%84%D8%B4%D8%A8%D9%83%D8%A9/#entry1197689 ولكن المشكلة أنني لم أستطع استخدامها فعلياً في عبارة الإتصال ففي برنامجي قمت بعمل موديل وعرفت متغير عام عبار عن جملة الإتصال حيث يمكنني استدعائها من أي فورم والعبارة هي كالتالي Public con As New SqlClient.SqlConnection("data source=" + My.Computer.Name & "\SQLEXPRESS;Initial Catalog=’Mydbname;integrated security=sspi;timeout=10")تعبت وأنا أحاول تغييرها إلى أن تأخذ عبارة الإتصال من ذلك الملف .. حولت نتيجة ملف Configuration.vb إلى أن تظهر الآيبي فقط بدون فائدة ... قرأت كافة الردود وطبقت مافيها بدون فائدة ... من ضمن تجاربي dim con As New SqlClient.SqlConnection("data source=" + Configuration.GetConnectionString & "\SQLEXPRESS;Initial Catalog=Mydbname;IntegratedSecurity=sspi;timeout=10") 'Dim ConnStr = String.Format("data source={0};Initial Catalog=Mydbname;IntegratedSecurity=sspi", File.ReadAllText("Configuration.txt")) 'Dim con As New SqlClient.SqlConnection(ConnStr)هاتين الطريقتين وغيرها لم يفلحوا هذا كله بالنسبة لاتصال البرنامج ككل بقاعدة البيانات ... ثم بعد ذلك تأتي مشكلة التقارير بالكريستال حيث أنني لم أستطع القيام بذلك رغم عدة محاولاتي له =========================== وبالنسبة للأستاذ كريم حولت الكود إلى كود vb ولكني لم أفهمه ... وماهي العبارات التي أغيرها بما يتناسب مع برنامجي وقاعدة بياناتي ... هل تتفضل بشرح بسيط عن هذا الكود اعذروني أساتذتي
  24. معلومة جيدة  جزاك الله خيراً هل يمكن أن تشرح باقي السبيشل فيلد