[فراس الغزي]

السلام  عليكم  الاخوة  الاعزاء  انا  كملت  كلشي  تمام  وعماليات  الضرب  كلها صحيحة  والاستعلام  وكل شي  تمام لكن  عند  الضغط  على  عملية  اضافة  المنتجات  بتطلع  عندي هذه رسالة  الخطا  

  اولا  الكود  المستخدم  

كود :

Dim strinsert As String = "Insert Into invoice (SALECODE,type_inv , cu_id , phon_cus , loc_cus , user_post , discount , totle_c , total_price , date_sel)values( @SALECODE, @type_inv ,  @cu_id ,  @phon_cus ,  @loc_cus ,  @user_post ,  @discount ,  @totle_c ,  @total_price ,  @date_sel)"

        cmd = New MySqlCommand(strinsert, con)
        Dim ID_order As Integer
        Dim dd, ddd As Decimal
        cmd.Parameters.Add(New MySqlParameter("@SALECODE", MySqlDbType.Int32)).Value = ID_order
        cmd.Parameters.Add(New MySqlParameter("@type_inv", MySqlDbType.VarChar, 200)).Value = com_type.Text
        cmd.Parameters.Add(New MySqlParameter("@cu_id", MySqlDbType.VarChar, 200)).Value = text_cus.Text
        cmd.Parameters.Add(New MySqlParameter("@phon_cus", MySqlDbType.VarChar, 200)).Value = text_ph_cus.Text
        cmd.Parameters.Add(New MySqlParameter("@loc_cus", MySqlDbType.VarChar, 200)).Value = text_loc_cus.Text
        cmd.Parameters.Add(New MySqlParameter("@user_post", MySqlDbType.VarChar, 200)).Value = txt_user.Text
        cmd.Parameters.Add(New MySqlParameter("@discount", MySqlDbType.VarChar, 200)).Value = txt_dic.Text
        cmd.Parameters.Add(New MySqlParameter("@totle_c", MySqlDbType.Double)).Value = ddd
        cmd.Parameters.Add(New MySqlParameter("@total_price", MySqlDbType.Decimal)).Value = dd
        cmd.Parameters.Add(New MySqlParameter("@date_sel", MySqlDbType.Date)).Value = date_pay.Value.Date

        con.Open()

        cmd.ExecuteNonQuery()

        cmd = New MySqlCommand("select max(id) from invoice", con)
        Dim dr As MySqlDataReader = cmd.ExecuteReader
        dr.Read()

        Dim id_orders As Integer = dr(0)




        Dim id_pro As Integer
        Dim code_itt, code_colorr, txt_name_it As String
        Dim price_one_it, totle_price2 As Decimal
        Dim num_itt, num_crt As Integer




        strinsert = "insert into invoice_dt (SALECODE,code_it,code_color,name_it,num_cr,qty,price_tak,total)values(@SALECODE,@code_it,@code_color,@name_it,@num_cr,@qty,@price_tak,@total)"

        For i As Integer = 0 To DataGridView1.RowCount - 1

            id_pro = DataGridView1.Rows(i).Cells(0).Value
            code_itt = DataGridView1.Rows(i).Cells(1).Value
            code_colorr = DataGridView1.Rows(i).Cells(2).Value
            txt_name_it = DataGridView1.Rows(i).Cells(3).Value
            num_itt = DataGridView1.Rows(i).Cells(4).Value
            num_crt = DataGridView1.Rows(i).Cells(5).Value
            price_one_it = DataGridView1.Rows(i).Cells(6).Value
            totle_price2 = DataGridView1.Rows(i).Cells(7).Value

            cmd.Parameters.Add(New MySqlParameter("@SALECODE", MySqlDbType.Int32)).Value = id_pro
            cmd.Parameters.Add(New MySqlParameter("@code_it", MySqlDbType.VarChar, 200)).Value = code_itt
            cmd.Parameters.Add(New MySqlParameter("@code_color", MySqlDbType.VarChar, 200)).Value = code_colorr
            cmd.Parameters.Add(New MySqlParameter("@name_it", MySqlDbType.VarChar, 200)).Value = txt_name_it
            cmd.Parameters.Add(New MySqlParameter("@num_cr", MySqlDbType.Float)).Value = num_crt
            cmd.Parameters.Add(New MySqlParameter("@qty", MySqlDbType.Float)).Value = num_itt
            cmd.Parameters.Add(New MySqlParameter("@price_tak", MySqlDbType.Decimal)).Value = price_one_it
            cmd.Parameters.Add(New MySqlParameter("@total", MySqlDbType.Decimal)).Value = totle_price2

            cmd.ExecuteNonQuery()

        Next
        dr.Close()
        con.Open()

        MsgBox("تم اضافة الفاتورة بنجاح", MsgBoxStyle.Information, "نجاح العملية")

رسالة  الخطا التي  تظهر  هي  كالاتي  

كود :

Additional information: There is already an open DataReader associated with this Connection which must be closed first.

علما  انا فاتح  الاتصال الريدير  وغالقه  ايضا  لكن  لا  اعرف  ايش  هي  المشكلة  اخوتي  اتمنى  من  الي  عندة  خبرة  يساعدنا  وفقكم  الله