تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] يا شباب الي بيقدر يساعد ما يقصر
#1
Exclamation 
طاب مساؤكم اخواني 
انا اعمل على برنامج مبيعات باستخدام VB.NET و SQL SERVER  والحقيقة قطعت شوط طويل بالبرنامج ولكن مؤخرا واجهتني مشكلة لم استطع حلها لوحدي فرأيت ان اطلب المساعدة منكم المشكلة باختصار ان البرنامج يخصم تلقائيا الكمية المباعة من الكمية الاساسية في المخزن ولكن عند تنفيذ الكود لا يخصم الا من الصنف المضاف بالاول ويخصم كل الكمية المباعة لكل الاصناف .. فلو تكرمتم ان تصححو لي الكود لو كان هناك خطا او ان تعطوني الكود الصحيح 
الكود المكتوب هو : 

PHP كود :

كود :
Dim Qutsel as string="Select Qut From Item_Card Where Barcode=" &DGV.ORDER.row(x).cell(0).value
Dim QutUp as String="Update Item_Card SET Qut=@Qut Where Barcode= DGV.ORDER.rows(×).cells(0).value
For x as integer=0 to DGV.Order.rows.count_1
Cmd = New SqlCommand=(QutSel,Con)
Dim Dr as SQL Datareader=Cmd.excutereader
Dr.read
Qunt = dr(0)-DGV_ORDER.row(×).cell(3).value
Cmd=New SQLCommand = (QutUp,Con)
Cmd.parameters.add(New SQL Parameter("@Qut" ,OleDb.OleDbType.Integer)).value=Qunt
Cmd.ExcteNonQuery
Next
ممكن المساعدة .. الكود يعمل بشكل سليم واذا في اي خطا بكون خطا من كتابتي اله 
وشكرا سلفا 
الرد
تم الشكر بواسطة: asemshahen5
#2
السلام عليكم ورحمة الله وبركاته
اخي الكريم المعذرة منك الكود الذي وضعته انت مليئ بالاخطاء الاملائية (انا بصراحة لم انتبه اليها)
المهم اليك الكود جربه ان شاء الله ينفع 
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       If con.State = ConnectionState.Open Then con.Close()
       con.Open()
       For x As Integer = 0 To DGV_ORDER.Rows.Count - 1
           Dim cmd As New SqlCommand("Select Qut From Item_Card Where Barcode =" & DGV_ORDER.Rows(x).Cells(0).Value, con)
           Dim dr As SqlDataReader
           dr = cmd.ExecuteReader
           dr.Read()
           Dim Qunt As Integer = dr(0)(DGV_ORDER.Rows(x).Cells(3).Value)
           cmd = New SqlCommand("Update Item_Card SET Qut=@Qut Where Barcode=" & DGV_ORDER.Rows(x).Cells(0).Value, con)
           cmd.Parameters.Add(New SqlParameter("@Qut", SqlDbType.Int)).Value = Qunt
           cmd.ExecuteNonQuery()
       Next
       con.Close()
   End Sub
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد
تم الشكر بواسطة: ابو روضة , asemshahen5



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم