• الإعلانات

    • فيصل الحربي

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

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

رحيّم

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

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

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

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

0 عادي

عن رحيّم

  • الرتبة
    عضو
  • تاريخ الميلاد 01/18/1983

طرق الإتصال

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

  • الجنس ذكر
  1. عمل فلترة لبيانات قريد

    الحمد لله .. بفضل الله ثم بفضل عدد من مواضيعكم المتعددة ... توصلت إلى الحل If Me.TextBox2.Text.Trim <> "" Then comm.Parameters.AddWithValue("@req_name", "%" & Me.TextBox2.Text.Trim & "%" )
  2. عمل فلترة لبيانات قريد

    الحمد لله أولاً والشكر للأستاذ محمد على تجاوبه ... لقد حلت المشكلة بما ذكره أستاذنا ( أبو رائد ) في موضوعه في منتدى فيجوال بسط لكل العرب : 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 بطرق وكيفيات مختلفة ولم أوفق إلى الطريقة الصحيحة ... كيف يمكنني ذلك ...
  3. عمل فلترة لبيانات قريد

    شكراً أستاذ محمد لقد قمت سابقاً بتطبيق الكود ولكنه لم يعمل في حالة أكثر من عمود .. والآن : في مشروعي هذا لم يعمل نهائياً لأن الداتاسيت يتم تصفيرها بعد ملئ القريد ... فوضعت الكود التالي بعد كود عملية ملئ الداتاسيت بالبيانات فأصبح كالتالي : LAdapter.Fill(LDataSet, "LoadingData") LDataSet.Tables("LoadingData").DefaultView.RowFilter = " req_quickly=" & CheckBox1.Checked RowsCount = LDataSet.Tables("LoadingData").Rows.Countولكن بدون فائدة لم يفلتر أبداً .. حتى ولو وضعت بدل CheckBox1.Checked   كلمة true  أو 1   أين أضع هذا الكود ؟؟؟
  4. السلام عليكم ورحمة الله وبركاته كيفكم أساتذتي وإخواني ...   عندي داتا قريد فيو ... أريد عمل فلترة للبيانات التي فيها .. بعيداً عن الداتاسيت ( مصدر القريد ) .. هل يمكن ذلك ... وإذا لم يمكن هذا ... فهذا كود تعبئة القريد لمساعدتي في عمل فلتر للداتاسيت ... مع العلم أن الفلترة ستكون لأكثر من عمود ( ثلاثة أو أربعة ) وكلها عبارة عن حقول بوليون (( 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
  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. جزاك الله خيراً على هذا التوضيح أحسنت : كل ما أريده هو حماية كود الفيو view ( الاستعلامات ) فقط بحيث لا يعرف كيف وضعتها ولا حقولها
  11. جزاك الله خيرا أستاذ محمد بالنسبة للكريستال ماوجدت هذا الخيار     عندي كريستال 13   و 10   وبالنسة للتشفير لم أفهم شيء من الروابط  :cry:  فبعضها يتكلم عن تشفير البيانات فقط والبعض الآخر يحذر من عدم قدرتي على الدخول إليها فيما بعد  وبعضها يتحدث عن وقوع أخطاء والبعض  الآخر يفترض وجود حساب خاص بي على السيرفر !!! ولا أملك السيرفر أرجو أن تتفضل بشرح الموضوع في موضوع مستقل ومتكامل حتى تعم الفائدة
  12. السلام عليكم ورحمة الله وبركاته أساتذتي الفضلاء : طلب مني بعض من لا أستطيع رد طلبه .. نسخة من برنامج عملته ... البرنامج يحتوي على قاعدة بيانات 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()رجاءً لا تبخلوا علي  وفقكم الله وأعانكم
  13. جزاك الله خيراً أستاذي مصدر البيانات هو ما ذكرته في الموضوع 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/
  14. السلام عليكم ورحمة الله وبركاته أساتذتي الكرام .... كيف أستطيع أن أفعّل خاصية paging في تقارير الكريستال ريبورت ؟؟؟ أصل المشكلة : كما هو الحال في القريدفيو  عند كثرة البيانات يتأخر تحميل البيانات إلى القريد فجاءت فكرة paging وهي فكرة حلوة .... الآن لدي تقارير كريستال قد يصل البعض منها إلى فوق 40 صفحة وربما أكثر في وقت يأتي ...  لاحظت أنه كلما زادت الصفحات زاد تأخر تحميل التقرير .. فما هو الحل لتسريع تحميلها ؟؟  من هنا وهناك ( عملية القريد ) فكرت أنه ربما هناك paging ولكني لم أصل إليه ؟؟