تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
يتم الحفظ ولكن دون الترتيب بالرقم - كيف اجبره على الحفظ بالترتب ؟
#1
السلام عليكم ورحمة الله وبركاته

لدى ستورد بروسيدجر يقوم بعمل Insert Into ويأخذ البيانات من Datagridview ويتم الحفظ بشكل سليم ولكن عند فتح الجدول تكون المدخلات التى تم حفظها به غير مرتبة برقم الموظف ويكون الترقيم هكذا
1
17
18
2
21
وهكذا

كود الستورد بروسيدجر هو

كود :
USE [Emplo]
GO
/****** Object:  StoredProcedure [dbo].[add_sa_m_data]    Script Date: 14/10/2012 09:39:26 م ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO

ALTER PROCEDURE [dbo].[add_sa_m_data]
@mo_nm nvarchar(50),
@e_id int,
@e_nm nvarchar(50),
@e_bran nvarchar(50),
@e_asasy float,
@e_omal int,
@e_edafy_1_per int,
@e_edafy_1 float,
@e_edafy_2_per int,
@e_edafy_2 float,
@e_edafy float,
@e_bdl_entkal float,
@e_bdl_tmsel float,
@e_bdl_estkbal float,
@e_bdl_tfrogh float,
@e_bdl_raha float,
@e_bdl_computer float,
@e_bdl_tot float,
@e_day_edafy int,
@e_day_edafy_tot float,
@e_tamen_per_1_26 float,
@e_asay_tot float,
@e_elawa_1 float,
@e_elawa_2 float,
@e_elawa_3 float,
@e_elawa_4 float,
@e_elawa_5 float,
@e_change float,
@e_tamen_per_1_24 float,
@e_tamenat float,
@e_change_all float,
@e_mosthk_tot float,
@e_tamen_per_2_26 float,
@e_tamen_per_14 float,
@e_tamen_per_2_24 float,
@e_tamen_per_11 float,
@e_tamnen_egtmaey float,
@e_day_no_mortb int,
@e_total_day_no_mortb float,
@e_tamen_ghyab_asasy_per_26 float,
@e_tamen_ghyab_change_per_24 float,
@e_day_geza_no int,
@e_day_geza_tot float,
@e_mo_tax float,
@e_day_ghyab_no int,
@e_day_ghyab_tot float,
@e_moda_tamen float,
@e_alex_bank float,
@e_estktaat_tot float,
@e_safy_all float
as
insert into sa_m_data
(mo_nm,
e_id,
e_nm,
e_bran,
e_asasy,
e_omal,
e_edafy_1_per,
e_edafy_1,
e_edafy_2_per,
e_edafy_2,
e_edafy,
e_bdl_entkal,
e_bdl_tmsel,
e_bdl_estkbal,
e_bdl_tfrogh,
e_bdl_raha,
e_bdl_computer,
e_bdl_tot,
e_day_edafy,
e_day_edafy_tot,
e_tamen_per_1_26,
e_asay_tot,
e_elawa_1,
e_elawa_2,
e_elawa_3,
e_elawa_4,
e_elawa_5,
e_change,
e_tamen_per_1_24,
e_tamenat,
e_change_all,
e_mosthk_tot,
e_tamen_per_2_26,
e_tamen_per_14,
e_tamen_per_2_24,
e_tamen_per_11,
e_tamnen_egtmaey,
e_day_no_mortb,
e_total_day_no_mortb,
e_tamen_ghyab_asasy_per_26,
e_tamen_ghyab_change_per_24,
e_day_geza_no,
e_day_geza_tot,
e_mo_tax,
e_day_ghyab_no,
e_day_ghyab_tot,
e_moda_tamen,
e_alex_bank,
e_estktaat_tot,
e_safy_all)
values
(@mo_nm,
@e_id,
@e_nm,
@e_bran,
@e_asasy,
@e_omal,
@e_edafy_1_per,
@e_edafy_1,
@e_edafy_2_per,
@e_edafy_2,
@e_edafy,
@e_bdl_entkal,
@e_bdl_tmsel,
@e_bdl_estkbal,
@e_bdl_tfrogh,
@e_bdl_raha,
@e_bdl_computer,
@e_bdl_tot,
@e_day_edafy,
@e_day_edafy_tot,
@e_tamen_per_1_26,
@e_asay_tot,
@e_elawa_1,
@e_elawa_2,
@e_elawa_3,
@e_elawa_4,
@e_elawa_5,
@e_change,
@e_tamen_per_1_24,
@e_tamenat,
@e_change_all,
@e_mosthk_tot,
@e_tamen_per_2_26,
@e_tamen_per_14,
@e_tamen_per_2_24,
@e_tamen_per_11,
@e_tamnen_egtmaey,
@e_day_no_mortb,
@e_total_day_no_mortb,
@e_tamen_ghyab_asasy_per_26,
@e_tamen_ghyab_change_per_24,
@e_day_geza_no,
@e_day_geza_tot,
@e_mo_tax,
@e_day_ghyab_no,
@e_day_ghyab_tot,
@e_moda_tamen,
@e_alex_bank,
@e_estktaat_tot,
@e_safy_all)

الكود المستخدم فى الحفظ من الداتا جريد هو

كود :
' التأكد من عدم وجود الشهر من قبل
        Dim cn As New SqlConnection(Con_STR)
        Dim sda As New SqlDataAdapter("select * from sa_m_data where mo_nm = @mo_nm ", cn)
        sda.SelectCommand.Parameters.Add("@mo_nm", SqlDbType.NVarChar, 50).Value = mo_nm_com.SelectedItem.ToString
        Dim ds As New DataSet
        sda.Fill(ds)
        Dim dt As DataTable = ds.Tables(0)
        If dt.Rows.Count > 0 Then
            MessageBox.Show("تم عمل مرتبات هذا الشهر من قبل", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error)
            mo_nm_com.Focus()
            cn.Close()
            Exit Sub
        End If

        ' تأكيد حفظ البيانات
        Dim y As DialogResult = MessageBox.Show("هل تريد حفظ بيانات الشهر", "تنبيه", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If y = DialogResult.Yes Then
            Dim cn1 As New SqlConnection(Con_STR)
            For i As Integer = 0 To DGV1.RowCount - 1
                Dim cm As New SqlCommand("add_sa_m_data", cn1)
                cm.CommandType = CommandType.StoredProcedure
                cm.Parameters.Add("@mo_nm", SqlDbType.NVarChar, 50).Value = mo_nm_com.SelectedItem.ToString
                cm.Parameters.Add("@e_id", SqlDbType.Int).Value = DGV1.Rows(i).Cells("e_id_col").Value.ToString
                cm.Parameters.Add("@e_nm", SqlDbType.NVarChar, 50).Value = DGV1.Rows(i).Cells("e_nm_col").Value.ToString
                cm.Parameters.Add("@e_bran", SqlDbType.NVarChar, 50).Value = e_bran_com.SelectedItem.ToString
                cm.Parameters.Add("@e_asasy", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_asasy_col").Value.ToString
                cm.Parameters.Add("@e_omal", SqlDbType.Int).Value = DGV1.Rows(i).Cells("e_omal_col").Value.ToString
                cm.Parameters.Add("@e_edafy_1_per", SqlDbType.Int).Value = DGV1.Rows(i).Cells("e_edafy_1_per_col").Value.ToString
                cm.Parameters.Add("@e_edafy_1", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_edafy_1_col").Value.ToString
                cm.Parameters.Add("@e_edafy_2_per", SqlDbType.Int).Value = DGV1.Rows(i).Cells("e_edafy_2_per_col").Value.ToString
                cm.Parameters.Add("@e_edafy_2", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_edafy_2_col").Value.ToString
                cm.Parameters.Add("@e_edafy", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_edafy_col").Value.ToString
                cm.Parameters.Add("@e_bdl_entkal", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_bdl_entkal_col").Value.ToString
                cm.Parameters.Add("@e_bdl_tmsel", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_bdl_tmsel_col").Value.ToString
                cm.Parameters.Add("@e_bdl_estkbal", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_bdl_estkbal_col").Value.ToString
                cm.Parameters.Add("@e_bdl_tfrogh", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_bdl_tfrogh_col").Value.ToString
                cm.Parameters.Add("@e_bdl_raha", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_bdl_raha_col").Value.ToString
                cm.Parameters.Add("@e_bdl_computer", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_bdl_computer_col").Value.ToString
                cm.Parameters.Add("@e_bdl_tot", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_bdl_tot_col").Value.ToString
                cm.Parameters.Add("@e_day_edafy", SqlDbType.Int).Value = DGV1.Rows(i).Cells("e_day_edafy_no_col").Value.ToString
                cm.Parameters.Add("@e_day_edafy_tot", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_day_edafy_tot_col").Value.ToString
                cm.Parameters.Add("@e_tamen_per_1_26", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_tamen_per_1_26_col").Value.ToString
                cm.Parameters.Add("@e_asay_tot", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_asay_tot_col").Value.ToString
                cm.Parameters.Add("@e_elawa_1", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_elawa_1_col").Value.ToString
                cm.Parameters.Add("@e_elawa_2", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_elawa_2_col").Value.ToString
                cm.Parameters.Add("@e_elawa_3", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_elawa_3_col").Value.ToString
                cm.Parameters.Add("@e_elawa_4", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_elawa_4_col").Value.ToString
                cm.Parameters.Add("@e_elawa_5", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_elawa_5_col").Value.ToString
                cm.Parameters.Add("@e_change", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_change_tot_col").Value.ToString
                cm.Parameters.Add("@e_tamen_per_1_24", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_tamen_per_1_24_col").Value.ToString
                cm.Parameters.Add("@e_tamenat", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_tamenat_col").Value.ToString
                cm.Parameters.Add("@e_change_all", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_change_all_col").Value.ToString
                cm.Parameters.Add("@e_mosthk_tot", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_mosthk_tot_col").Value.ToString
                cm.Parameters.Add("@e_tamen_per_2_26", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_tamen_per_2_26_col").Value.ToString
                cm.Parameters.Add("@e_tamen_per_14", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_tamen_per_14_col").Value.ToString
                cm.Parameters.Add("@e_tamen_per_2_24", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_tamen_per_2_24_col").Value.ToString
                cm.Parameters.Add("@e_tamen_per_11", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_tamen_per_11_col").Value.ToString
                cm.Parameters.Add("@e_tamnen_egtmaey", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_tamnen_egtmaey_col").Value.ToString
                cm.Parameters.Add("@e_day_no_mortb", SqlDbType.Int).Value = DGV1.Rows(i).Cells("e_day_no_mortb_col").Value.ToString
                cm.Parameters.Add("@e_total_day_no_mortb", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_total_day_no_mortb_col").Value.ToString
                cm.Parameters.Add("@e_tamen_ghyab_asasy_per_26", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_tamen_ghyab_asasy_per_26_col").Value.ToString
                cm.Parameters.Add("@e_tamen_ghyab_change_per_24", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_tamen_ghyab_change_per_24_col").Value.ToString
                cm.Parameters.Add("@e_day_geza_no", SqlDbType.Int).Value = DGV1.Rows(i).Cells("e_day_geza_no_col").Value.ToString
                cm.Parameters.Add("@e_day_geza_tot", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_day_geza_tot_col").Value.ToString
                cm.Parameters.Add("@e_mo_tax", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_mo_tax_col").Value.ToString
                cm.Parameters.Add("@e_day_ghyab_no", SqlDbType.Int).Value = DGV1.Rows(i).Cells("e_day_ghyab_no_col").Value.ToString
                cm.Parameters.Add("@e_day_ghyab_tot", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_day_ghyab_tot_col").Value.ToString
                cm.Parameters.Add("@e_moda_tamen", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_moda_tamen_col").Value.ToString
                cm.Parameters.Add("@e_alex_bank", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_alex_bank_col").Value.ToString
                cm.Parameters.Add("@e_estktaat_tot", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_estktaat_tot_col").Value.ToString
                cm.Parameters.Add("@e_safy_all", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_safy_all_col").Value.ToString
                cn1.Open()
                cm.ExecuteNonQuery()
                cn1.Close()
            Next
            MessageBox.Show("تم حفظ البيانات", "تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Information)
            e_bran_com.Enabled = True
            mo_nm_com.Enabled = True
            e_bran_com.SelectedIndex = -1
            mo_nm_com.SelectedIndex = -1
            DGV1.DataSource = Nothing
        Else
            Exit Sub
        End If

فهل من توضيح لجعل الحفظ يكون بترتيب رقم الموظف e_id؟؟؟
الرد }}}}
تم الشكر بواسطة:
#2
عند عرض المعلومات في الجدول استخدم

order by id desc

للترتيب

كود :
Dim sda As New SqlDataAdapter("select * from sa_m_data where mo_nm = @mo_nm ", cn

بعد التعديل

كود :
Dim sda As New SqlDataAdapter("select * from sa_m_data where mo_nm = @mo_nm order by id desc", cn

شوف جرب
الرد }}}}
تم الشكر بواسطة:
#3
العزابي كتب :عند عرض المعلومات في الجدول استخدم

order by id desc

للترتيب

كود :
Dim sda As New SqlDataAdapter("select * from sa_m_data where mo_nm = @mo_nm ", cn

بعد التعديل

كود :
Dim sda As New SqlDataAdapter("select * from sa_m_data where mo_nm = @mo_nm order by id desc", cn

شوف جرب

للأسف نفس النتيجة وللعلم البيانات يتم إدراجها داخل الداتا جريد من View ويتم عرض البيانات بالداتا جريد تلقائيا بترتيب كود الموظف دون اى تعديل ؟؟؟

أعتقد ان المشكلة حلها يكون بإضافة Order By داخل الستورد بروسيدجر ولكن كيف ؟؟؟
الرد }}}}
تم الشكر بواسطة:
#4
هذه البيانات التي يتم عرضها في الداتاجريد من اين ؟
من جدول ؟

وفي اي مكان تظهرر البيانات غير مرتبه ؟
ما هى نوع بيانات رقم الموظف ؟
الرد }}}}
تم الشكر بواسطة:
#5
هل جربت التعديل هذا

PHP كود :
Dim sda As New SqlDataAdapter("select * from sa_m_data where mo_nm = @mo_nm ORDER BY mo_nm "cn
الرد }}}}
تم الشكر بواسطة:
#6
amgadtamer كتب :هذه البيانات التي يتم عرضها في الداتاجريد من اين ؟
من جدول ؟

وفي اي مكان تظهرر البيانات غير مرتبه ؟
ما هى نوع بيانات رقم الموظف ؟

السلام عليكم

البيانات يتم عرضها في الداتا جريد عند طريق استدعاء view من سيكول سيرفر لأننى أقوم بإستدعاء البيانات من جدولين وهو يعمل بشكل سليم ويتم إستدعاء البيانات مرتبة بكود الموظف ويتم عرضها في الداتا جريد بنفس ترتيبها

عند الحفظ من الداتا جريد الى قاعدة البيانات في جدول أخر وليس الجدولين الذين تم تعبئة الداتا جريد منهم بعد عمل التعديلات اللازمة لا يتم الحفظ بالترتيب بل تكون غير مرتبة مثلا اول موظف يكون 16 ثم التالى 20 ثم 1 وهكذا وليس ( 1 2 3 وهكذا )

نوع كود الموظف هو Integer
الرد }}}}
تم الشكر بواسطة:
#7
يعنى أنك تقوم باحضار البيانات في الداتاجريدفيو (من view عبارة عن جدولين) ثم تقوم ببعض التعديلات على البيانات هل هذه التعديلات يتم تحديثها في الجدولين ؟
الرد }}}}
تم الشكر بواسطة:
#8
amgadtamer كتب :يعنى أنك تقوم باحضار البيانات في الداتاجريدفيو (من view عبارة عن جدولين) ثم تقوم ببعض التعديلات على البيانات هل هذه التعديلات يتم تحديثها في الجدولين ؟

نعم يتم إحضار البيانات من View عبارة عن جدولين

التعلايلات يتم حفظها فى جدول أخر ولا يتم تحديث اى شيئ فى الجدولين الذين تم إستدعاء البيانات منهم نهائيا بل الغرض منهم هو عرض البيانات لتحديد بعض العمليات الحسابية والتى تتم فى اعمدة محسوبة بدلا من ادخالل القيم فى كل مرة
الرد }}}}
تم الشكر بواسطة:
#9
افي اي مكان تظهر البيانات غير مرتبة ؟ هل انت متأكد ان حقل كود الموظف رقمي ؟ هل البيانات المعروضه في الداتاجريد قبل الادخال تكون مرتبه ؟ افضل ان تقوم بتعريف متغيرات بالحقول المطلوبه مع مراعات نوع البيانات
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف يمكن عمل هذا الترتيب rabeh.ram 10 199 15-11-16, 03:11 AM
آخر رد: rabeh.ram
  استشارة بطريقة الحفظ بقواعد البيانات سكول سيرفر العواد الصغير 6 127 30-10-16, 08:07 PM
آخر رد: العواد الصغير
  [VB.NET] كود الفحص قبل الحفظ هل يوجد افضل منه ؟؟ 0theghost0 0 71 25-10-16, 07:11 PM
آخر رد: 0theghost0
  [سؤال] مشكلة في الحفظ داخل قاعدة البيانات عن طريق Dataadaptor alrawi84 1 81 16-10-16, 11:02 PM
آخر رد: alrawi84
Information [Acces2010] قدرة قاعدة بيانات على الحفظ ali777 5 186 23-09-16, 10:33 PM
آخر رد: أبو عمر
  كيفية الحفظ من أداة DataAdapter إلى قاعدة بيانات أكسس Mohamed_Saudi 2 140 18-08-16, 11:12 PM
آخر رد: Mohamed_Saudi
  كيف يتم الحفظ من أداة DataAdapter إلى قاعدة بيانات أكسس Mohamed_Saudi 2 132 18-08-16, 11:01 PM
آخر رد: Mohamed_Saudi
  [VB.NET] خطأ أثناء تنفيذ كود الحفظ أسامة السالمي 0 106 10-08-16, 07:21 PM
آخر رد: أسامة السالمي
  [VB.NET] كود الحفظ وتعديل بيانات داخل قاعدة بيانات sql لعنصر داخل كومبو بوكس عمرو نجيب 4 195 07-07-16, 05:30 PM
آخر رد: عمرو نجيب
  [VB.NET] للخبراء برمجة ازرار الحفظ والتعديل والحذف مصطفى العراقي 5 382 28-02-16, 08:14 PM
آخر رد: مصطفى العراقي

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


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