تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] اريد التعديل على كود اضافة عنصر للداتا جريد مربوطة بقاعدة بيانات
#1
السلام عليكم

لدى زر اسمه اضافة صنف جديد

فلو سمحتم اريد تعديل هذا الكود

ويكون كود الحفظ لوحده وكود الاضافة لوحده

وشكرا لكم

PHP كود :
Private Sub SaveRecord()
        Try
            
con.Open()
            
sqlstr "Select * From tblInventory Where ItmID=@ItmID"
            
cmd = New OleDbCommand(sqlstrcon)
            
cmd.Parameters.Add("@ItmID"OleDbType.Integer).Value IIf(txtID.Text.Trim.Length 0System.DBNull.ValuetxtID.Text)

            If 
cmd.ExecuteScalar 0 Then
                sqlstr 
"Update tblInventory Set ItmName=@ItmName,ItmPrice=@ItmPrice,ItmIN=@ItmIN,ItmTotal=@ItmTotal,ItmOut=@ItmOut, " _
                         
"ItmRemain=@ItmRemain Where ItmID=@ItmID"
                
cmd = New OleDbCommand(sqlstrcon)
                
Dim Total As Integer Val(txtOut.Text) + Val(txtToOut.Text)
                
With cmd.Parameters
                    
.Add("@ItmName"OleDbType.VarWChar).Value IIf(txtItem.Text.Trim.Length 0System.DBNull.ValuetxtItem.Text)
                    .
Add("@ItmPrice"OleDbType.Integer).Value IIf(txtPrice.Text.Trim.Length 0System.DBNull.ValuetxtPrice.Text)
                    .
Add("@ItmIN"OleDbType.Integer).Value IIf(txtIN.Text.Trim.Length 0System.DBNull.ValuetxtIN.Text)
                    .
Add("@ItmTotal"OleDbType.Integer).Value IIf(txtTotal.Text.Trim.Length 0System.DBNull.ValuetxtTotal.Text)
                    .
Add("@ItmOut"OleDbType.Integer).Value IIf(Len(Total) = 0System.DBNull.ValueTotal)
                    .
Add("@ItmRemain"OleDbType.Integer).Value IIf(txtRemain.Text.Trim.Length 0System.DBNull.ValuetxtRemain.Text)
                    .
Add("@ItmID"OleDbType.Integer).Value IIf(txtID.Text.Trim.Length 0System.DBNull.ValuetxtID.Text)
                
End With
                cmd
.ExecuteNonQuery()
                
MsgBox("تمت عملية التحديث بنجاح"MsgBoxStyle.MsgBoxRight MsgBoxStyle.Information"إنتباه")
            Else
                
sqlstr "INSERT INTO tblInventory(ItmName,ItmPrice,ItmIN,ItmTotal,ItmOut,ItmRemain) " _
                    
"Values(@ItmName,@ItmPrice,@ItmIN,@ItmTotal,@ItmOut,@ItmRemain)"

                
cmd = New OleDbCommand(sqlstrcon)

                
With cmd.Parameters
                    
.Add("@ItmName"OleDbType.VarWChar).Value IIf(txtItem.Text.Trim.Length 0System.DBNull.ValuetxtItem.Text)
                    .
Add("@ItmPrice"OleDbType.Integer).Value IIf(txtPrice.Text.Trim.Length 0System.DBNull.ValuetxtPrice.Text)
                    .
Add("@ItmIN"OleDbType.Integer).Value IIf(txtIN.Text.Trim.Length 0System.DBNull.ValuetxtIN.Text)
                    .
Add("@ItmTotal"OleDbType.Integer).Value IIf(txtTotal.Text.Trim.Length 0System.DBNull.ValuetxtTotal.Text)
                    .
Add("@ItmOut"OleDbType.Integer).Value IIf(txtToOut.Text.Trim.Length 0System.DBNull.ValuetxtToOut.Text)
                    .
Add("@ItmRemain"OleDbType.Integer).Value IIf(txtRemain.Text.Trim.Length 0System.DBNull.ValuetxtRemain.Text)

                    
cmd.ExecuteNonQuery()
                    
MsgBox("تمت عملية الإضافة بنجاح"MsgBoxStyle.MsgBoxRight MsgBoxStyle.Information"إنتباه")

                
End With
            End 
If

            
con.Close()
            
LoaddgvInventory()
        Catch 
ex As Exception
            
If con.State ConnectionState.Open Then con.Close()
            
MsgBox(ex.Message)
        
End Try
    
End Sub 
الرد }}}}
تم الشكر بواسطة:
#2
فين الشباب؟
الرد }}}}
تم الشكر بواسطة:
#3
تم حل المشكلة بفضل الله شكرا لكم
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طلب مساعدة في اضافة save & restore trakktour 7 101 اليوم, 03:25 AM
آخر رد: trakktour
  [VB.NET] مشكلة في حفظ بيانات من الجدولين dark1459 8 116 أمس, 10:35 PM
آخر رد: dark1459
  مشكلة في اجبار المستخدم ان يحفظ صورة في قاعدة بيانات shado1796 96 6,251 أمس, 04:03 AM
آخر رد: khodor1985
  [VB.NET] داتا جريد فيو فارس احمد السيد 5 142 23-02-17, 09:48 PM
آخر رد: فارس احمد السيد
  كمبو بوكس داخل الداتا جريد فارس احمد السيد 5 131 23-02-17, 09:44 PM
آخر رد: فارس احمد السيد
  ار جو المساعدة ما هي مشكلة كود التعديل والحذف boofa2015 2 58 21-02-17, 10:58 AM
آخر رد: boofa2015
  [سؤال] اريد مثال على طريقة ادراج صورة من السكانر ناصر شير 0 37 20-02-17, 02:45 PM
آخر رد: ناصر شير
  ازاى اصمم جدول فى قاعدة بيانات 2D noway 5 115 20-02-17, 04:27 AM
آخر رد: khodor1985
Wink [VB.NET] استفسار بخصوص التعديل والحفظ علي اداة datagridview dark1459 9 129 20-02-17, 02:13 AM
آخر رد: khodor1985
  [كود] طلب التعديل على كود If Clipboard.GetText احمد مهران 8 160 18-02-17, 08:23 AM
آخر رد: أسامة السالمي

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


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