23-01-17, 12:46 AM
السلام عليكم
قمت بعمل كود لامر وارد الى مخزن او صرف منه وهذا هو كود اضافة امر توريد وهذا الكود يعمل بكفاءة في الاضافة الى قاعدة البيانات ولكن هناك مشكلتين
المشكلة الاولي رسالة لا اعرف سببها وهذا نصها
اما المشكلة الثانية اني من المفترض عند الضغط علي زر حفظ يتم تفريغ الداتا جريد كيف يتم تفريغها
وجزاكم الله خيرا
قمت بعمل كود لامر وارد الى مخزن او صرف منه وهذا هو كود اضافة امر توريد وهذا الكود يعمل بكفاءة في الاضافة الى قاعدة البيانات ولكن هناك مشكلتين
كود :
Private Sub insert()
ConnectDb()
'========================================
ds = New DataSet
da = New SqlDataAdapter("SELECT * FROM income", con)
da.Fill(ds, "income")
cmd = New SqlCommand("INSERT INTO income (income_id, Suppiler_id_income, date_of_income) VALUES ( @income_id, @Suppiler_id_income, @date_of_income)", con)
With cmd.Parameters
.AddWithValue("@income_id", txtofnumorder.Text).DbType = DbType.Int32
.AddWithValue("@Suppiler_id_income", cmbSuppliers.SelectedValue).DbType = DbType.Int32
.AddWithValue("@date_of_income", dateoforder.Value).DbType = DbType.Date
End With
cmd.ExecuteNonQuery()
'========================================================
ds.Clear()
ds = New DataSet
da = New SqlDataAdapter("SELECT * FROM IncomeDetail", con)
da.Fill(ds, "IncomeDetail")
Dim i As Integer
Try
For i = 0 To DataGridView1.RowCount - 1
Dim itemo As Integer = CInt(DataGridView1.Rows(i).Cells(0).Value)
Dim Quantity1 As Integer = CInt(DataGridView1.Rows(i).Cells(1).Value)
'=============================================================
cmd = New SqlCommand("INSERT INTO IncomeDetail (income_id_det, Product_ID_income, Quantity) VALUES ( @income_id_det, @Product_ID, @Quantity)", con)
With cmd.Parameters
.AddWithValue("@income_id_det", txtofnumorder.Text).DbType = DbType.Int32
.AddWithValue("@Product_ID", itemo).DbType = DbType.Int32
.AddWithValue("@Quantity", Quantity1).DbType = DbType.Int32
End With
cmd.ExecuteNonQuery()
'===============================================
cmd = New SqlCommand("UPDATE Product Set Quanty = Quanty+" & Quantity1 & " WHERE Product_ID = '" & itemo & "'", con)
cmd.ExecuteNonQuery()
Next
MessageBox.Show("تم الحفظ بنجاح", AppError, MessageBoxButtons.OK, MessageBoxIcon.Information)
DisconnectDb()
FillData()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Subالمشكلة الاولي رسالة لا اعرف سببها وهذا نصها
اما المشكلة الثانية اني من المفترض عند الضغط علي زر حفظ يتم تفريغ الداتا جريد كيف يتم تفريغها
وجزاكم الله خيرا
