• الإعلانات

    • فيصل الحربي

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

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

كفاح

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

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

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

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

0 عادي

عن كفاح

  • الرتبة
    عضو فعال
  • تاريخ الميلاد 12/18/1982

طرق الإتصال

  • MSN masry4u@hotmail.com
  • ICQ 0
  • Yahoo zoro_145@yahoo.com

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

  • الدولة : الشرقية - مصر
  • اهتمامات مفيش هويات غير البرمجة وبس
  1. مشكلة فى زر الحذف

    Private Sub BindingNavigatorDeleteItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorDeleteItem.Click Con.Open() Try Dim mymsg As DialogResult = MessageBox.Show("هل انت متاكد من مسح الصنف" & TextBox1.Text, "مسح", MessageBoxButtons.YesNo, MessageBoxIcon.Question) If mymsg = DialogResult.Yes Then Dim cmddel As New OleDb.OleDbCommand cmddel.Connection = Con cmddel.CommandType = CommandType.Text cmddel.CommandText = "DELETE FROM Product WHERE ProdutID = '" & TextBox1.Text & "'" cmddel.ExecuteNonQuery() MessageBox.Show("تم الحذف بنجاح", "", MessageBoxButtons.OK, MessageBoxIcon.Information)DS.Clear() Dim Adapter As New OleDb.OleDbDataAdapter(sqlstring, Con) Adapter.Fill(DS, "Product") End If Con.Close() fillcombo() ' Me.BindingContext(DS, "Product").RemoveAt(Me.BindingContext(DS, "Product").Position) ' Me.BindingContext(DS, "Product").Position += 1 'End If 'Me.BindingContext(DS, "Product").EndCurrentEdit() 'Me.Adapter.Update(DS) 'DS.AcceptChanges() 'Con.Close() Catch ex As Exception MessageBox.Show(ex.Message) End Try End Sub برجاء المساعدة فى هذا الكود  لاني بأقوم بمسح بالكود عن طريق المفتاح الاساسي ونوع رقم بيعطني رسالة خطا  no value given for one or more required parameters   WindowsApplication6.zip
  2. مشكلة زر الحذف ؟؟

    للرفع
  3. مشكلة زر الحذف ؟؟

    لماذا يتم الحذف اذا كان السجل المحذوف بة حقل مفتاح اساسى يكون نص !!!! بجد اريد ان احذف السجل بمفتاح اساسى رقم فقط !!! هل من اجابة ؟ If MsgBox("هل تريد حذف السجل الحالي", MsgBoxStyle.OkCancel) = MsgBoxResult.Cancel Then Exit Sub End If Dim SavInto As New OleDb.OleDbCommand Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Conn) SavInto.Connection = Conn SavInto.CommandType = CommandType.Text SavInto.CommandText = "DELETE FROM ProductType WHERE ProductTypeID ='" & Trim(TextBox3.Text) & "'" Conn.Open() SavInto.ExecuteNonQuery() DataSet1.Clear() DataAdapter1.Fill(DataSet1, "ProductType") Conn.Close() MsgBox("تمت عملية الحذف في قاعدة البيانات بنجاح") وفى الاكواد السابقة الكود الثاني يمكن فية الحذف لكن يتطلب اغلاق والفورم وفتحها مرة اخري حتى يتم الحذف من الداتا سيت ؟؟!! المثال كامل بالمرفقات WindowsApplication1.rar
  4. مشكلة زر الحذف ؟؟

    بسم الله الرحمن الرحيم اخواني الاعزاء وجهاتنى مشكلة فى زر الحذف , يقوم بالحذف فى الداتا سيت واقوم بعمل تحديث للدابتر , ثم لا يتم الحذف الفعلي فى قاعدة البيانات مع العلم انىة عمل على نظام الاتصال المتقطع ارجوا منكم المساعدة فى هذا الموضوع ولكم جزيل الشكر والتقدير Dim aa As New BindingSource Me.BindingContext(ds.Tables("ProductType")).RemoveAt(Me.BindingContext(ds.Tables("ProductType")).Position) Me.BindingContext(ds, "ProductType").EndCurrentEdit() ds.AcceptChanges() Me.Validate() aa.EndEdit() da.Update(ds, "ProductType") ds.AcceptChanges() وهناك محاولة اخري قمت بها لكن بها مشكلة ثانية عندما يتم المسح لا يظهر فى الفورم مباشرة يتطلب اغرق الفورم ثم فتحة مرة اخري لمشاهدة نتيجة الحذف Dim cmd As New System.Data.OleDb.OleDbCommand cmd.CommandType = System.Data.CommandType.Text cmd.CommandText = "DELETE FROM ProductType WHERE ProductTypeID = " & TextBox1.Text & " AND ProductTypeNmae = '" & TextBox2.Text & "'" cmd.Connection = conn conn.Open() cmd.ExecuteNonQuery() ds.AcceptChanges() conn.Close() Me.BindingContext(ds.Tables("ProductType")).Position -= 1
  5. السلام عليكم قم بعمل استعلام فى الاكسيسس لتسيهل المهمة :) اليك كود مثال كنت قمت بكتابتة من فترة If IsNumeric(TextBox1.Text.Trim) = True And TextBox1.Text.Trim <> "" Then Try Dim adp As OleDbDataAdapter = New OleDbDataAdapter Dim cmdP As New OleDbCommand Dim dsP As New DataSet Dim dsS As New DataSet cmdP.CommandType = CommandType.Text cmdP.CommandText = "SELECT InvoicePID,DateOfInvoice,SupplierName,Quantity,Price FROM QuerySTATEMENT1 WHERE ProductID =" + TextBox1.Text.Trim + " ORDER BY DateOfInvoice,InvoicePID" TextBox1.Text & "%'" adp.SelectCommand = cmdP cmdP.Connection = CON dsS.Clear() ' QuerySTATEMENT1 هذا استعلام للفاتورة adp.Fill(dsS, "QuerySTATEMENT1") cmdP.CommandText = "SELECT ProductID,ProductName,Price,Quantity,ProductClass,ProductTypeName,SupplierName FROM Product WHERE ProductID =" + TextBox1.Text.Trim dsP.Clear() adp.Fill(dsP, "Product") If dsS.Tables("QuerySTATEMENT1").Rows.Count > 0 Then TextBox2.Text = dsP.Tables("Product").Rows(0).Item("ProductID") TextBox8.Text = dsP.Tables("Product").Rows(0).Item("Quantity") TextBox6.Text = dsP.Tables("Product").Rows(0).Item("ProductClass") TextBox7.Text = dsP.Tables("Product").Rows(0).Item("SupplierName") TextBox4.Text = dsP.Tables("Product").Rows(0).Item("ProductTypeName") TextBox3.Text = dsP.Tables("Product").Rows(0).Item("ProductName") TextBox5.Text = dsP.Tables("Product").Rows(0).Item("Price") Me.DataGrid1.DataSource = dsS.Tables(0) Else MessageBox.Show("لايوجد سلعة بهذا الرقم", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RtlReading) TextBox1.Focus() End If Catch 'Display error message, if any messagebox.show(ex.message) End Try Else MessageBox.Show("من فضلك ادخل رقم السلعة", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RtlReading) End If TextBox1.Text = "" TextBox1.Focus() جرب هذا الكود
  6. السلام عليكم اشكرك اخي a_pess بصراحة درس رائع وليك درس اخر لك والى اعضاء منتدنا الكريم http://www.arabteam2000-forum.com/index.ph...c=79044&hl= وتقبل الله منا ومنك :)
  7. تقوم بكتابة كود البحث فى الحدث TextBox1_TextChanged وطبعا يكون كود بحث مثلا وتكون النتيجة فى ال datagraid
  8. سؤال حول Datagridview

    السلام عليكم تفضل ياخي اعتقد ان هذا هو الحل SELECT * FROM Table1 Where Date1 between Format("& Text1.Text &", "mm/dd/yyyy") Date1 Format("& Text2.Text &", "mm/dd/yyyy") and
  9. بسم الله الرحمن الرحيم اخواني الاعزاء ارجوا المساعدة المثال 2005 لدى مثال 2005 احتاج ان اقوم بعمل حفظ لبيانات المدخلة من خلال TextBox والمشكلة موجودة فى ازار الحفظ والمسح زر الحفظ intOption = 1 cn.Open() Try Dim InsertCommand As OleDbCommand = New OleDbCommand() InsertCommand.Connection = cn InsertCommand.CommandText = "INSERT INTO MyTestTable(NUM,USER,PASS) VALUES('" & Me.TextBox1.Text.Trim & "', '" & Me.TextBox2.Text.Trim & "','" & Me.TextBox3.Text.Trim & "')" 'هنا يحدث الخطا InsertCommand.ExecuteNonQuery() ' cn.Close() FillDataSetAndView() BindFields() MyCurrencyManager.Position = MyCurrencyManager.Count - 1 ShowPosition() InsertCommand.Dispose() InsertCommand = Nothing Catch ex As OleDbException MessageBox.Show(ex.Message, " Save AddNew ", MessageBoxButtons.OK, _ MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, _ MessageBoxOptions.RtlReading) End Try TextBox1.Enabled = True intOption = 0 تظهر لي رسالة ان هناك فى جملة SQL وبالمرفقات المثال كامل ارجوا من الاخوة المساعدة ولكم جزيل الشكر WindowsApplication1.rar
  10. السلام عليكم اخوانى الصراحة لا اعرف ان الموضوع صعب هكذا وانا حاولت عمل التكملة التلقائية لنظام الفاتورة ولكن دون اى جدوى برجاء من لدية اي فكرة كل ما احتاج الية هو وضع السعر الموجود فى جدول السلع عند اختيار اسم السلعة الموجودة فى الكمبوبكس الموجودة فى الداتا جريد ووصلت لهذا الكود ولكن يظهر انة غير فعال <_< وطبعا الكود فى حدث NDataGrid1_CurrentCellChanged For Each dr As DataRow In CType(NDataGrid1.DataSource, DataSetbill.ProductDataTable) price = CType(dr.Item("Price"), Double) If Me.NDataGrid1.CurrentCell.ColumnNumber = 2 Then End If Next ارجوا المساعدة وشكرا لكم
  11. السلام عليكم اخوانى الاعزاء أقوم حاليا بتطوير برنامج خاص بالمخازن وواجهتنى هذه المشكلة وهى البحث فى الجدول الثالث الناتج من علاقة Many to Many يظهر لي خطا لا اعلم ما السبب فية سوف اعرض ما فعلتة فى هذا البحث يمكن ان اجد حلا ؟ *-) قاعدة البيانات مكونة من ثلاثة جدول : 1- جدول المنتجات 2- جدول المخازن 3- جدول المنتجات المخزونة ( هذا الجدول الناتج من علاقة Many to Many) أحتاج ان اقوم بعملية بحث عن المنتجات الموجودة فى المخازن عن طريق رقم المنتج وتكون نتيجة البحث (رقم المنتج - أسم المنتج - أسم المخزن - الكمية الموجودة - حد الطلب المخزني) وقمت بكتابة الاستعلام بهذا لكن هناك مشكلة لا اعرف ما هي ؟ هناك منتجات تحت ارقام يمكن البحث بها كأمثلة ( 1 , 2 , 3 ) زر البحث Dim ConditionCriteria As Boolean = True DataSet11.Clear() If TextBox1.Text <> "" Then OleDbDataAdapter1.SelectCommand.CommandText = _ "SELECT ProductsInStorge.Pro_num, ProductsInStorge.Quantity, ProductsInStorge.RecordLevelStorge, ProductsInStorge.Stor_Num FROM ((ProductsInStorge INNER JOIN Products ON ProductsInStorge.Pro_num = Products.Pro_num) INNER JOIN StorgeInformation ON ProductsInStorge.Stor_Num = StorgeInformation.Stor_Num) WHERE(Products.Pro_num = '" & TextBox1.Text & "')" Else MessageBox.Show("هذا الرقم غير موجود", "المخازن", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) ConditionCriteria = False TextBox1.Focus() End If Try If ConditionCriteria = True Then OleDbDataAdapter1.Fill(DataSet11) End If Catch ex As Exception MessageBox.Show(ex.Message) End Try Try Me.DataGrid1.PreferredColumnWidth = Me.DataGrid1.ClientSize.Width / 7 Me.DataGrid1.DataSource = DataSet11.Tables("ProductsInStorge") Catch ex As Exception MessageBox.Show(ex.Message) End Try بدء البرنامج OleDbConnection1.ConnectionString = ConString Try OleDbConnection1.Open() DataSet11.Clear() OleDbDataAdapter1.Fill(DataSet11) OleDbDataAdapter2.Fill(DataSet11) OleDbDataAdapter3.Fill(DataSet11) Catch ex As Exception MessageBox.Show(ex.Message) End Try قمت بأضافة المثال اتمنى من الله اولا ثم منكم المساعدة بأذن الله ,,, WindowsApplication1.zip
  12. السلام عليكم لو قمت بالبحث قليلا كنت وجدت حل هذه المشكلة تفقضل بعض الروابط تتكلم على هذا الموضوع http://www.arabteam2000-forum.com/index.php?showtopic=33679 http://www.arabteam2000-forum.com/index.php?showtopic=30478 اتمنى لك التوفيق ,,, وشكرا للجميع
  13. السلام عليكم شكرا لك اخى الكريم فعلا الموضوع لم يلاقى اى اهمية مع انة مهم وخصوصا عدد القراءات حتى الان 356 اعتقد شئ غريب :D وشكرا لكل من شارك فى هذا الموضوع واتمنى من الله ان نقوم بتطوير ادوات تخدم اللغة العربية وفقكم الله
  14. السلام عليكم أخوانى اعضاء المنتدى الكرام قام الاستاذ وليد أكرمة الله منذو فترة بعمل مثال لفاتورة وقد قدم لى هذا المثال استفادة كبيرة لكن هناك سؤال كثيرا ما دار فى زهنى وهو كيف يمكن جعل السعر يظهر من تلقائيا عندما اختار اسم الصنف او السلعة وكثير منا راى مثال الاخ وليد فهل احد عنده فكرة على كيفية القيام بهذا الموضوع وشكرا لكم جميعا :) سوف ارفق مثال الذى قدمة لنا الاستاذ وليد من فترة ارجوا من الله ايجاد فكرة لهذا الموضوع-waf ______.rar