14-10-12, 11:46 PM
(آخر تعديل لهذه المشاركة : 14-10-12, 11:55 PM {2} بواسطة تركي الحلواني.)
السلام عليكم ورحمة الله وبركاته
لدى ستورد بروسيدجر يقوم بعمل Insert Into ويأخذ البيانات من Datagridview ويتم الحفظ بشكل سليم ولكن عند فتح الجدول تكون المدخلات التى تم حفظها به غير مرتبة برقم الموظف ويكون الترقيم هكذا
1
17
18
2
21
وهكذا
كود الستورد بروسيدجر هو
الكود المستخدم فى الحفظ من الداتا جريد هو
فهل من توضيح لجعل الحفظ يكون بترتيب رقم الموظف e_id؟؟؟
لدى ستورد بروسيدجر يقوم بعمل 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؟؟؟